01.02.2012, 11:58
|
|
.
|
|
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
|
|
И чему удивляешься? Открываешь файл:
Код:
h := CreateFileA(PAnsiChar(tex),GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, NIL, OPEN_EXISTING, FILE_ATTRIBUTE_ NORMAL, 0);
читаешь:
Код:
InternetReadFile(hURLa, @fBuf, SizeOf(fBuf), ReadLen);
а где его открытие? Естественно, получаешь ошибку о неверном хэдере. Как нам сообщает MSDN, открыть его можно одной из функций: InternetOpenUrl, FtpOpenFile, GopherOpenFile, or HttpOpenRequest.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
|