VPF::перекодировка файла - Форум программистов

Bogus

Дата 27.6.2005, 16:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 10.4.2005
Где: Москва

Репутация: нет
Всего: нет

Проблема в следующем:
с помощью этой функции

Код


function GetInetFile(const fileURL, FileName: string): boolean;
const
BufferSize = 1024;
var
hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: file;
sAppName: string;

begin

sAppName := ExtractFileName(Application.ExeName);
hSession := InternetOpen(PChar(sAppName),
INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
try
hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0);
try
AssignFile(f, FileName);
Rewrite(f,1);
repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen);
until
BufferLen = 0;
CloseFile(f);
Result := True;
finally
InternetCloseHandle(hURL);
end;
finally
InternetCloseHandle(hSession);
end;
end;

сохраняю страницу из нета на диск, однако потом не могу прочитать
в ней кирилицу. Какие только функции для кодировки не пробовал-
не получается. В Opere подсмотрел, что сохранил WIN 1251, читается
в KOI-8 (тоже из Operы), но сам программно кирилицу прочитать не могу. Проблема в функции скачивания файла или его просмотра?
Как обойти? Что придумать?
smile

Poseidon

Дата 27.6.2005, 16:43 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(Bogus @ 27.6.2005, 16:15)

Проблема в функции скачивания файла или его просмотра?

Функция скачивания вроде нормальная. Единственное, что можно изменить, то это обьявление переменной f. Если точно известно что это текстовый файл, то лучше использовать не file, а TextFile. Но это не из разряда необходимого. А вто что касается просмотра, то тут туманно, т.к. не понятно как ты пытаешься вытащить текст. В общем, приведи код функции просмотра.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Yanis

Дата 27.6.2005, 16:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Poseidon @ 27.6.2005, 16:43)

А вто что касается просмотра, то тут туманно, т.к. не понятно как ты пытаешься вытащить текст. В общем, приведи код функции просмотра.

Наверно имеется просто ввиду обычный просмотр в броузере.

To Bogus
А через блокнот смотрел код страницы? Там тоже каракули?

--------------------

*щёлк*

Poseidon

Дата 27.6.2005, 17:12 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(Yanis @ 27.6.2005, 16:51)

Наверно имеется просто ввиду обычный просмотр в броузере.

Как я понял не это имеется ввиду, т.к.

Цитата(Bogus @ 27.6.2005, 16:15)

но сам программно кирилицу прочитать не могу

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Romtek

Дата 27.6.2005, 19:37 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 153
Регистрация: 7.12.2004
Где: Холон

Репутация: нет
Всего: 4

Функция OemToAnsi () из Windows ?

--------------------

Romiras HomeLab - материалы и статьи по разработке ПО, моделирование алгоритмов, обработка и анализ информации, нейронные сети, машинное зрение и пр.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »