forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)
-   -   Не считывает русский текст (http://forum.boolean.name/showthread.php?t=13648)

Rameron 05.11.2010 10:21

Не считывает русский текст
 
Появилась очередная проблема... Прошу помощи...
В ресурсах приложения находится txt-файл с русским текстом. При попытке прочитать и отрисовать хотя-бы первую строку, на экран выводятся "квадраты" и приложение виснет.

PHP код:

procedure readText;
var 
curLine:string;
begin
pathFile
:='/File.txt';
txtFile:=OpenResource(pathFile);
if (
resourceAvailable(txtFile)) then
begin
curLine
:= ReadLine(txtFile); 
drawText(curLine,0,0); //выводятся "квадраты"
Delay(2000);
end;
CloseResource(txtFile); 
end

Пытался изменять кодировку файла, но результат от этого не менялся.
При попытке открыть сам файл в MP - всякие иероглифы.

cherepets 05.11.2010 11:59

Ответ: Не считывает русский текст
 
см. lib_resloader

Rameron 05.11.2010 12:37

Ответ: Не считывает русский текст
 
Цитата:

Сообщение от cherepets (Сообщение 167173)
см. lib_resloader

Я смотрел, но не до конца понял, как ею пользоваться. Можно мой пример переделать под неё, пожалуйста?

GRAY_WOLF 05.11.2010 13:42

Ответ: Не считывает русский текст
 
Вот http://www.forum.boolean.name/showthread.php?t=11688 наипрекраснейший пример. Нужно только шрифты поставить новые т.к. библиотека font32 после этого примера сменилась.

cherepets 05.11.2010 13:51

Ответ: Не считывает русский текст
 
там есть функция win2utf (вроде так звалась).
кормишь ей "квадраты", а получаешь текст.
вот так:

curLine:= win2utf(ReadLine(txtFile));

Rameron 05.11.2010 17:08

Ответ: Не считывает русский текст
 
Цитата:

Сообщение от cherepets (Сообщение 167181)
там есть функция win2utf (вроде так звалась).
кормишь ей "квадраты", а получаешь текст.
вот так:

curLine:= win2utf(ReadLine(txtFile));

Вот, спасибо, это как раз оно.


Часовой пояс GMT +4, время: 04:55.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot