El Sun, 12 Mar 2006 00:21:15 +0100
bobby <[EMAIL PROTECTED]> escribió:
> My app need to download one file from the internet, and thats all.
> Can someone explain to me how to do this?
> regards
> bobby
You can use synapse (www.ararat.cz/synapse)
***********************************************
<sample app>
{$MODE DELPHI}
Program testhttp;
uses
httpsend, classes;
var
HTTP: THTTPSend;
l: tstringlist;
begin
HTTP := THTTPSend.Create;
l := TStringList.create;
try
if not HTTP.HTTPMethod('GET', Paramstr(1)) then
//replace paramstr(1) with an url or run program with url argument
begin
writeln('ERROR');
writeln(Http.Resultcode);
end
else
begin
writeln(Http.Resultcode, ' ', Http.Resultstring);
writeln;
writeln(Http.headers.text);//writes the headers if your need
writeln;
l.loadfromstream(Http.Document);
l.savetofile('test.htm');
writeln(l.text);
end;
finally
HTTP.Free;
l.free;
end;
end.
___________________________________________________________
1GB gratis, Antivirus y Antispam
Correo Yahoo!, el mejor correo web del mundo
http://correo.yahoo.com.ar
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
