http клиент в Delphi

[Alar]

Сообщение от mihali4

А как вот такой вариант:
Вложение 424

простой код, это было до indy ? и fastnet ?

NADO:= TRUE; //Надо качать...
//Открыли сессию
hSession:= InternetOpen('X-Kachalka',PRE_CONFIG_INTERNET_ACCESS,nil,nil,0);
//И наш УРЛ
hURL := InternetOpenURL(hSession,PChar(Edit1.Text),nil,0,0,0);
//Сколько там наш файл весит?
InternetQueryDataAvailable(hURL, SumSize,0,0);
label4.Caption:= IntToStr (SumSize); //Сообщим об этом
if ResumePos>0 then //Если докачиваем,
 begin
 InternetSetFilePointer(hURL,ResumePos,nil,0,0); //То сместимся
 end;

REPEAT //Качаем
 err:= InternetReadFile(hURL, @Buffer,SizeOf(Buffer),BufferLen); //Читаем буфер
 IF err= false then //Ошибка чтения
  begin
  ShowMessage ('Произошел облом :('); //Сообщим и выходим
  exit;
  end;
 BlockWrite(f, Buffer, BufferLen); //Пишем в файл
 Application.Processmessages;
UNTIL (BufferLen= 0) Or (NADO= FALSE); //Качаем, пока не все или надо
ShowMessage ('Успешно загружено!');

[Квэнди]

Если использовать Indy то коротко описывая:
используем тот же метод get
Объект idhttp создаем в потоке, execute примерно такой:

var
Response: TFileStream;
IdHTTP1:tidhttp;
begin
try
Response := TFileStream.Create('файл куда пишем', fmCreate);
try
IdHTTP1.Request.Referer := 'любой';
IdHTTP1.Get('адрес файла', Response);
finally
IdHTTP1.Free;
Response.Free;
end;
except
end;
end;

дальше можно развивать с синхронизацией во время работы, но тогда надо определять события beginwork и work