Загрузка файла с сервера (Synapse)

[Terikon]

Делаю так

  http:=thttpsend.Create;
  LoadFile:=TFileStream.Create('c:\file.exe',fmCreate);
  HttpGetBinary('http://download.geo.drweb.com/pub/drweb/cureit/vq792v6y.exe',LoadFile);
  LoadFile.Free;
  http.Free;

Файл загружается, но дело в том что он грузится в память, скажите как сделать что бы файл грузился напрямую на винт.

[FanRa3]

var
  http:TIdHTTP;
  str:TFileStream; 
begin
  http:=TIdHTTP.Create(nil);
  ForceDirectories(ExtractFileDir('C:\Download'));
  str:=TFileStream.Create('C:\file.exe', fmCreate);
  try
    http.Get('http://download.geo.drweb.com/pub/drweb/cureit/vq792v6y.exe',str);
  finally
    http.Free;
    str.Free; 
end;

попробуй так

[Terikon]

На индейцах всё работает, только мне нужно на синапс!

[Пепел Феникса]

это почему это в память?
вы указали FileStream, он пишет в файл.
файл то проверьте после этого.

[Terikon]

Я смотрю через диспетчер, если работаю через синапс то файл качается сначало в память, а после того как полностью закачается сохраняется на винт

[Mifody]

Чтоб файл писался напрямую на винт, надо его кусочками сбрасывать (не скажу как, сам не знаю). Синапс (насколько я знаю) ВСЕГДА работает только с памятью, по крайней мере в такой реализации кода как у Вас. Может и есть какие "волшебные" параметры, но я их не знаю, т.к. не требовалось

[Zuzlan]

Исходники смотреть религия не позволяет?

Нужно создать альтернативу HTTPMethod заменив FDocument аналогичным но типом TFileStream. И потом нужно убедиться что в функции ReadUnknown/ReadIdentity/ReadChunked из httpsend.pas передается тот stream который нужен. и все.

но правильнее сделать наследника от HTTPSend, добавив overload-варианты новых функций (или создать новые), что бы можно было малой кровью обновить потом компонент.