ANTICHAT — форум по информационной безопасности, OSINT и технологиям

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;

 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;

uses urlmon;

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

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;