WinInet

[vitalik007]

как мне взять картинку с интернета и сохранить её на диске
я использую WINInet странички сохраняются а картинки нет
вот мой код

var
  hsession,hconnect,hrequest:Hinternet;
  AcceptType: LPStr;
  f: File;
  Buf: Pointer;
  dwBufLen, dwIndex: DWord;
  Data: Array[0..$400] of Char;
  TempStr: String;
  BytesToRead, BytesReaded: DWord;
begin
hsession:=InternetOpen('vital server',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
Hconnect:=InternetConnect(hsession,'www.programmersforum.ru',INTERNET_DEFAULT_HTTP_PORT,'','',INTERNET_SERVICE_HTTP,0,0);
hrequest:=HttpOpenRequest(hconnect,'Get','ymaika1.gif','HTTP/1.0','',@acceptType,0,0);
HttpSendRequest(hrequest,nil,0,nil,0);
dwindex:=0;
dwBufLen:=1024;
GetMem(buf,DwBufLen);
BytesReaded:=0;
assignfile(f,'1.gif');
rewrite(f,1);
while true do begin
  if not InternetReadFile(hRequest,@data,sizeof(data),BytesToRead) then break;
  if bytesToread=0 then break;
  blockWrite(f,data,bytesToread);
  inc(BytesReaded, BytesToRead);
end;
closefile(f);
freemem(buf);
InternetCloseHandle(hsession);
InternetCloseHandle(hconnect);
InternetCloseHandle(hrequest);

[AidarBik]

Используй IdHTTP, метод Get('Путь к файлу', Переменная типа TFileStream).