Delphi ActiveX

HTTPS Upload File to Web Server

See more HTTP Examples

Uploads a file to a web server using HTTPS. Delphi ActiveX

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
success: Integer;
req: TChilkatHttpRequest;
http: TChilkatHttp;
useSslTls: Integer;
resp: TChilkatHttpResponse;

begin
success := 0;

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

// The ContentType, HttpVerb, and Path properties should
// always be explicitly set.
req := TChilkatHttpRequest.Create(Self);
req.HttpVerb := 'POST';
req.Path := '/receiveMyUpload.aspx';
req.ContentType := 'multipart/form-data';

req.AddStringForUpload('fileA','fileA.txt','This is the contents of file A','utf-8');
success := req.AddFileForUpload('starfish.jpg','qa_data/jpg/starfish.jpg');
if (success = 0) then
  begin
    Memo1.Lines.Add(req.LastErrorText);
    Exit;
  end;

http := TChilkatHttp.Create(Self);

// ----------------------------------------------------------------------------
// IMPORTANT:
// HTTP uploads require a counterpart implementation on the server, written in any desired language
// such as C#, Classic ASP, PHP, etc., which consumes the upload being sent.
// See: ASP.NET Receive Upload
// ----------------------------------------------------------------------------

// Do the upload.
useSslTls := 1;
resp := TChilkatHttpResponse.Create(Self);
success := http.HttpSReq('www.example.com',443,useSslTls,req.ControlInterface,resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('response status code = ' + IntToStr(resp.StatusCode));
Memo1.Lines.Add('response body:');
Memo1.Lines.Add(resp.BodyStr);
end;