(Delphi DLL) HTTPS Upload File to Web Server

Uploads a file to a web server using HTTPS.

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

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
req: HCkHttpRequest;
success: Boolean;
http: HCkHttp;
useSslTls: Boolean;
resp: HCkHttpResponse;

begin
// 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 := CkHttpRequest_Create();
CkHttpRequest_putHttpVerb(req,'POST');
CkHttpRequest_putPath(req,'/receiveMyUpload.aspx');
CkHttpRequest_putContentType(req,'multipart/form-data');

CkHttpRequest_AddStringForUpload(req,'fileA','fileA.txt','This is the contents of file A','utf-8');
success := CkHttpRequest_AddFileForUpload(req,'starfish.jpg','qa_data/jpg/starfish.jpg');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkHttpRequest__lastErrorText(req));
    Exit;
  end;

http := CkHttp_Create();

// ----------------------------------------------------------------------------
// 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 := True;
resp := CkHttp_SynchronousRequest(http,'www.example.com',443,useSslTls,req);
if (CkHttp_getLastMethodSuccess(http) <> True) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

Memo1.Lines.Add('response status code = ' + IntToStr(CkHttpResponse_getStatusCode(resp)));
Memo1.Lines.Add('response body:');
Memo1.Lines.Add(CkHttpResponse__bodyStr(resp));

CkHttpResponse_Dispose(resp);

CkHttpRequest_Dispose(req);
CkHttp_Dispose(http);

end;