upload de arquivos por HTTP

Delphi

07/02/2003

estou tentando uzar o componente webcopy, para upload de arquivos por HTTP não estou conseguindo. alguem tem outro componente e se possivel um exemplo de como fazer :lol:


Anonymous

Anonymous

Curtidas 0

Respostas

Dantonds

Dantonds

07/02/2003

Pelo que eu enytendi vc quer fazer um download da internet e gravar em uma pasta local se for isso eu tenho esse código que eu uso :

Ele precisa de duas edit´s e um botão, mas ele pode ser fácilmente adaptado :

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, URLmon,
StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
function DownloadFile(Source, Dest: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
except
Result := False;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
if DownloadFile (edit1.text, edit2.text) then
ShowMessage(´Download Concluído!´)
else
ShowMessage(´Falha ao fazer o download!!´)

end;

end.

Espero ter ajudado.


GOSTEI 0
POSTAR