Поможите, плиззз, дайте код для чтения Unicode файла....

Вобщем есть файл писаный в Unicode кодировке, я хочу загрузить его в SynEdit...

1. Стандартные загрузчик SynEdit.Lines.LoadFromFile ничего хорошего не даёт
2. При попытке читать файл с помощью Readln(f,s) а потом строку s приобразовывать в ANSI, тоже ничего хорошего не даёт т.к. зачастую в любом, заранее не известном, месте файла встречается что-то что востпринимается как конец файла
3. Читать файл через BlockRead - очень медленно..

PS. К сожалению др. методов работы с файлами я не знаю...


ЗЗЫ. Видел на форуме код http://forum.vingrad.ru/index.php?showtopi...indpost&p=50099 - но он тоже читает не весь файл и вместо русских букв выдаёт '?'

Цитата(BDmV @ 15.5.2005, 16:04)

3. Читать файл через BlockRead - очень медленно..

Это наверное если читать побайтово. А если большими блоками, то это достаточно быстро.

А вообще, можешь попробовать что-то вроде:

Код

function FileToWideStr (FileName :String) :WideString;   // Возвращает содержимое файла FileName как строку var   h :THandle;   FileSize, rFileSize :Cardinal; begin   try     h := FileOpen(FileName,(fmOpenRead+fmShareDenyNone));     try       CheckOSError(h<>INVALID_HANDLE_VALUE,sErrorFileOpen,[q(FileName)]);       FileSize := GetFileSize(h,nil);       CheckOSError(FileSize<>$FFFFFFFF);       SetLength(Result,FileSize div 2);       CheckOSError(ReadFile(h,Result[1],FileSize,rFileSize,nil));       if  rFileSize <> FileSize  then         raise EOSError.CreateFmt(sErrorFileRead,[FileSize,rFileSize]);     finally       FileClose(h);     end;   except     ExMsg(sErrorFileToStr,[qd(FileName)]);     raise;   end; end;

Соответственно, далее делаешь что-то вроде:

Код

var   s :String; ...   s := FileToWideStr('вася');

и получаешь в s содержимое файла в ANSI-кодировке.

Правда, в некоторых UNICODE-файлах, первые два байта не являются текстом, а признаком порядка байт.

Спасибо за код, но у мя появился вопрос... В какой библиотеке, в Delphi7, искать CheckOSError и sErrorFileOpen?

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 20:31

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 20:31

Цитата(BDmV @ 16.5.2005, 19:01)

CheckOSError и sErrorFileOpen

Таких нет, это из моей библиотеки. Но их суть такова:
CheckOSError - нужна для проверки на ошибки;
sErrorFileOpen - константа, строки с сообщением об ошибке;
ExMsg - добавляет сообщение к тексту текущего исключения;

В общем, не сложно самому сделать .
Но, если лениво, то можешь найти их в моем модуле awString.

Цитата(Quadr0 @ 16.5.2005, 18:26)

Уже вышла версия SynEdit специально для работы с ЮНИКОДОМ:

Вот спасиба

Жаль только, что он воспринимает файлы, как Unicode, только если он начинается с FFFE. Во всех остальных случаях гонит его как простой Ansi.

Да и не подходит он к моей задаче, т.к. там конец абзаца заканчивается кодом 0D0A00, вместо 0D000A00

Вощем здесь можно только читать файл самому и обрабатывать полученный текст перед тем как загнать его в SynEdit...

PS. Хотя мож есть и др. вариант, но я об этом пока не знаю..

Цитата(BDmV @ 18.5.2005, 19:32)

Жаль только, что он воспринимает файлы, как Unicode, только если он начинается с FFFE.

ну вобщем то так и должно быть. Если файл начинается с других байтов, то это не Unicode - text file

Цитата(BDmV @ 18.5.2005, 19:32)

т.к. там конец абзаца заканчивается кодом 0D0A00,

ну так считывай вручную. Никакие стандартные средства тебе не помогут - у тебя же не текстовый файл..

Спасибо Петрович, я в свой модуль uutils, обязательно добавлю эту функцию. Лаконичная реализация.