(Resolvido) Enviar um ficheiro para um sitio web

[Mario Lopes]

Bom dia

Como enviar um ficheiro para um website com delphi 7?

Alguém ajuda?

Obrigado

mario

Editado Abril 15, 2009 por Mario Lopes

[Jhonas]

Como enviar um ficheiro para um website com delphi 7?

http://www.example-code.com/delphi/upload_simpleExample.asp

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATUPLOADLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
upload: TChilkatUpload;
success: Integer;

begin
upload := TChilkatUpload.Create(Self);

//  Specify the page (ASP, ASP.NET, Perl, Python, Ruby, CGI, etc)
//  that will process the HTTP Upload.
upload.Hostname := 'www.chilkatsoft.com';
upload.Path := '/receiveUpload.aspx';

//  Add one or more files to be uploaded.
upload.AddFileReference('file1','dude.gif');
upload.AddFileReference('file2','pigs.xml');
upload.AddFileReference('file3','sample.doc');

//  Do the upload.  The method returns when the upload
//  is completed.
//  This component also includes asynchronous upload capability,
//  which is demonstrated in another example.
success := upload.BlockingUpload();
if (success <> 1) then
  begin
    ShowMessage(upload.LastErrorText);
  end
else
  begin
    ShowMessage('Files uploaded!');
  end;
end;

Baixe o componente

http://www.chilkatsoft.com/download/UploadActiveX.msi

Mais informações

http://www.devmedia.com.br/articles/viewcomp.asp?comp=409

http://www.ramosdainformatica.com.br/art_r...es01.php?CDA=37

abraço

[Mario Lopes]

Como enviar um ficheiro para um website com delphi 7?

http://www.example-code.com/delphi/upload_simpleExample.asp

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATUPLOADLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
upload: TChilkatUpload;
success: Integer;

begin
upload := TChilkatUpload.Create(Self);

//  Specify the page (ASP, ASP.NET, Perl, Python, Ruby, CGI, etc)
//  that will process the HTTP Upload.
upload.Hostname := 'www.chilkatsoft.com';
upload.Path := '/receiveUpload.aspx';

//  Add one or more files to be uploaded.
upload.AddFileReference('file1','dude.gif');
upload.AddFileReference('file2','pigs.xml');
upload.AddFileReference('file3','sample.doc');

//  Do the upload.  The method returns when the upload
//  is completed.
//  This component also includes asynchronous upload capability,
//  which is demonstrated in another example.
success := upload.BlockingUpload();
if (success <> 1) then
  begin
    ShowMessage(upload.LastErrorText);
  end
else
  begin
    ShowMessage('Files uploaded!');
  end;
end;

Baixe o componente

http://www.chilkatsoft.com/download/UploadActiveX.msi

Mais informações

http://www.devmedia.com.br/articles/viewcomp.asp?comp=409

http://www.ramosdainformatica.com.br/art_r...es01.php?CDA=37

abraço

Grande ajuda Jhonas

Mil obrigados

Mário