(Delphi ActiveX) HTTP multipart/form-data Upload

Demonstrates how to upload files to an HTTP server using a multipart/form-data POST.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TChilkatHttp;
req: TChilkatHttpRequest;
success: Integer;
resp: IChilkatHttpResponse;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

http := TChilkatHttp.Create(Self);

req := TChilkatHttpRequest.Create(Self);
req.HttpVerb := 'POST';
req.ContentType := 'multipart/form-data';
req.Path := 'rcvFormDataUpload.aspx';

// Send an "Expect: 100-continue" header in the request.
// This causes the HTTP server to end a 100-continue response
// immediately after receiving the HTTP header.  The client
// (Chilkat) will receive this intermediate response, and if
// it's not an error response, it knows that the HTTP server will
// accept the data that is forthcoming.
// The alternative is to get an error response after trying to upload
// the entire contents of the files.
req.AddHeader('Expect','100-continue');

// Call AddFileForUpload2 for each file to be uploaded in the HTTP multipart/form-data POST
// To allow Chilkat to determine the content-type automatically based on file-extension,
// call AddFileForUpload instead.

// The 1st arg is the filename passed in the HTTP request.
// The 2nd arg is the path in the local filesytem.
// The file is not loaded into memory.  It is streamed directly from the file
// when the HTTP POST is sent.
success := req.AddFileForUpload2('starfish.jpg','c:/qa_data/starfish.jpg','image/jpg');
if (success <> 1) then
  begin
    Memo1.Lines.Add(req.LastErrorText);
    Exit;
  end;

success := req.AddFileForUpload('something.pdf','c:/qa_data/something.pdf');
if (success <> 1) then
  begin
    Memo1.Lines.Add(req.LastErrorText);
    Exit;
  end;

// Its also possible to add a file from a string:
success := req.AddStringForUpload('test.xml','test.xml','<abc>This is the test.xml content</abc>','utf-8');
// We'll assume success since no files are involved..

// This sends the HTTP request (with 3 files being uploaded) to
// http://www.mywebserver123abc.com/rcvFormDataUpload.aspx

resp := http.SynchronousRequest('www.mywebserver123abc.com',80,0,req.ControlInterface);
if (http.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
  end
else
  begin
    Memo1.Lines.Add('HTTP response status: ' + IntToStr(resp.StatusCode));
    // See the online reference documentation for 
    // other information that can be obtained from the response object.

  end;

// To send using SSL/TLS, do this instead.
// This sends to https://www.mywebserver123abc.com/rcvFormDataUpload.aspx
resp := http.SynchronousRequest('www.mywebserver123abc.com',443,1,req.ControlInterface);
if (http.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
  end
else
  begin
    Memo1.Lines.Add('HTTP response status: ' + IntToStr(resp.StatusCode));
    // See the online reference documentation for 
    // other information that can be obtained from the response object.

  end;
end;