This works for me:
uses httpsend, ssl_openssl;
...
procedure TForm1.btnGoClick(Sender: TObject);
var strmIn: TMemoryStream;
strmSv: TFileStream;
begin
strmSv := TFileStream.Create('/home/myhome/file_name.exe',fmCreate);
strmIn := TMemoryStream.Create;
lblInfo.Caption := 'Downloading...';
Application.ProcessMessages;
try
try
if HttpGetBinary('https://path/file_name.exe',strmIn) then
begin
strmIn.Seek(0,0);
strmSv.Write(strmIn.Memory, strmIn.Size);
lblInfo.Caption := 'Finished';
end else
lblInfo.Caption := 'Error downloading file';
except
on E:Exception do
lblInfo.Caption := E.Message;
end;
finally
strmIn.Free;
strmSv.Free;
end;
end;
On Mon, May 23, 2011 at 4:25 PM, Marcos Douglas <m...@delfire.net> wrote:
> On Mon, May 23, 2011 at 9:32 AM, silvioprog <silviop...@gmail.com> wrote:
>>> 2011/5/21 Marcos Douglas <m...@delfire.net>
>>> Hi,
>>> I need do a download of a file using https, on WinXP SP3.
>>> How I can do this just using Synapse?
>>>
>>> My FPC is 2.4.5 version.
>>>
>>> Thanks,
>>> Marcos Douglas
>>
>> Please, see: http://code.google.com/p/lazsolutions/wiki/Tip?wl=pt-BR
>> (or http://goo.gl/8lWXP).
>
> Oh Silvio. The answer was so close that I didn't imagine... sorry not
> ask in Lazarus-br list.
>
> Marcos Douglas
>
> ------------------------------------------------------------------------------
> What Every C/C++ and Fortran developer Should Know!
> Read this article and learn how Intel has extended the reach of its
> next-generation tools to help Windows* and Linux* C/C++ and Fortran
> developers boost performance applications - including clusters.
> http://p.sf.net/sfu/intel-dev2devmay
> _______________________________________________
> synalist-public mailing list
> synalist-public@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/synalist-public
>
------------------------------------------------------------------------------
vRanger cuts backup time in half-while increasing security.
With the market-leading solution for virtual backup and recovery,
you get blazing-fast, flexible, and affordable data protection.
Download your free trial now.
http://p.sf.net/sfu/quest-d2dcopy1
_______________________________________________
synalist-public mailing list
synalist-public@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/synalist-public
