Показать сообщение отдельно
  #17  
Старый 01.02.2012, 11:58
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 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 в.д.
Ответить с цитированием