HTTP Upload using a Proxy Server

HTTP Upload using a proxy server. For more information about HTTP Upload, see this blog post: HTTP Upload Overview

Download Chilkat Upload ActiveX

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);

//  You may send test uploads to this URL:
//  http://www.chilkatsoft.com/cgi-bin/ConsumeUpload.exe
// 
//  A test HTML page is located at:
//  http://www.chilkatsoft.com/upload.html

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

//  Specify an HTTP proxy server:
upload.ProxyDomain := 'localhost';
upload.ProxyPort := 808;

//  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;