With these little modifications you can easily do this:
procedure TForm1.Button1Click(Sender: TObject);
> Var h: THTTPSend;
> begin
> h := THTTPSend.Create;
> h.HTTPMethodToFile('GET','http://pathtofile.zip','c:\testfile.zip');
> h.Free;
> Caption := 'ok';
> end;
modifications on
Hi Brian,
I build a "fake stream" for that. Derived from TMemoryStream, but
actually just a wrapper around a basic TStream class.
The only troublesome thing is that synapse uses the same string for up-
and downloaded data
Cheers,
Benito
On 04/15/2017 01:29 AM, brian - wrote:
Other than
You will need to work with the Status event, capturing data read and then
deciding a threshold to flush the buffer to a file and clear it
I made a custom class/wrapper for this
Type
TOnReceiveData = procedure(Len,Max: Int64) of object;
Var
DownloadSize: Int64;
xOnReceiveData: