Вопрос по Delphi скачать файл по HTTP

Как скачать файл по HTTP

 

Что то типа:

Code:

var 	
  stream : TMemoryStream; 	
  http : TIdHTTP; 
begin 	
 http := TIdHTTP.Create; 	
 stream := TMemoryStream.Create; 	
 try 		
    http.get('somesite.com/somefile', stream);
    stream.SaveToFile('MyFile'); 	
finally 		
    FreeAndNil(http); 		
    FreeAndNil(stream); 	
end; 
end;

ЗЫ По моему самый часто задаваемый вопрос

 

Code:

 var
  HTTP : TidHTTP;
  Strm : TMemoryStream;
 begin
  Http := TIdHTTP.Create(nil);
  strm := TMemoryStream.Create;
   
  HTTP.Request.CustomHeaders.Add('Range: bytes=0-12954');
  HTTP.Get('http://vk.com/u21312312/audio/ff75373434gf4.mp3', strm);
  
  strm.SaveToFile
  strm.free;
  http.free;

так ты закачаешь по диапозону... можешь юзать для докачки или для закачки файла по частям... главное юзай АСИнхронную передачу))
end;

 

Асинхронная передача через TIdHTTP
это как?

 

Code:

uses urlmon;

URLDownloadToFile (nil,'https://forum.antichat.ru/thread185851.html','C:/yo.html', 0, nil);

 

Запихай в поток а то при загрузке будет интерфейс виснуть особенно при загрузке жирных файлов

 

а как быть с русскими именами файлов, название кракозябрами получается

 

используй URLEncode)))

 

Почему все используют TMemoryStream?))
Не проще так

Code:

var 	
  stream : TFileStream; 	
  http : TIdHTTP; 
begin 	
 http := TIdHTTP.Create; 	
 stream := TFileStream.Create('C:/sffsf.dat', fmCreate); 	
 try 		
    http.get('somesite.com/somefile', stream);
finally 		
    FreeAndNil(http); 		
    FreeAndNil(stream); 	
end; 

Не будет тратиться время на сохранение из TMemoryStream на диск.

 

И много времени сэкономишь?

 

Одинаково. Все равно из сети в память, из памяти на диск перегонется.
Эти классы идентичны, оба наследники TStream

 

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

 

Нет

Не совсем)

function WinExec(lpCmdLine: LPCSTR; uCmdShow: UINT): UINT;

 

можно полностью код ,прогрузки к жертве и запуска

 

var
stream : TFileStream;
http : TIdHTTP;
begin
http := TIdHTTP.Create;
stream := TFileStream.Create('C:/tmp.exe', fmCreate);
try
http.get('somesite.com/somefile', stream);
WinExec(PAnsiChar('C:/tmp.exe'), SW_SHOW);
finally
FreeAndNil(http);
FreeAndNil(stream);
end;

 

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

 

Размер - idhttp1.Response.RawHeaders.Text

 

Осталось узнать скорость закачки и сколько скачалось и тогда прогресс бар можно прикрутить.

 

Сколько скачалось и осталось я думаю не составит труда.....


Парсишь в maxvalue прогресс бара "Content-Length: " - который выдал тебе (idhttp1.Response.RawHeaders.Text),

Потом в обработчике событий IdHTTP1Work пишешь progressbar.progress:=AWorkCount;;

 

А через винсок?