How can I download a huge file via TIdHTTP?

delphi delphi-xe2 wininet indy10
Red October picture Red October · Mar 13, 2013 · Viewed 9.6k times · Source

I use this code to download small files: 

Var
 ms:TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  Idhttp1.get('http://mydomain.com/myfile.zip',ms);
  ms.SaveToFile('myfile.zip');
  ms.Free;
end;

But file is saved in RAM before storing to disk, so it may be difficult to download files >1Gb, for example. Is there a way to download a file by its parts? Or do I need to use the WinInet? Thanks in advance!

Answer

Rob Kennedy picture Rob Kennedy · Mar 13, 2013

TMemoryStream provides an in-memory buffer, so if you download into one, you need to have enough memory to hold everything you receive. It's not the only kind of stream, though. You can pass the Get method any kind of stream you want, including one that writes its contents to disk as it receives it. Use TFileStream, for example.

var
  s: TStream;

s := TFileStream.Create('myfile.zip', fmCreate);
try
  IdHttp1.Get(..., s);
finally
  s.Free;
end;

Anywhere you call LoadFromFile or SaveToFile on a TMemoryStream, it's possible that TFileStream is a better choice.

Related questions

Why does CreateProcess give error 193 (%1 is not a valid Win32 app)

The code below fails to start documents. I get error 193 (%1 is not a valid Win32 app). Starting executables work fine. The files are properly associated, they start the corresponding app when double clicked. I have searched SO and elsewhere for …

Read More
Using Case Statement with String

Say i have a string 'SomeName' and wanted the values return in a case statement. Can this bedone? Can strings be used in a case statement like so Case 'SomeName' of 'bobby' : 2; 'tommy' :19; 'somename' :4000; else showmessage('Error'); end;

Read More
Delphi VCL styles tutorial - how to change the style at runtime

Is there a good VCL Styles tutorial where we see how to dynamically (in run time) load/change the style ? This should work with Delphi XE2 and up, since XE2 is the first version with VCL Styles.

Read More