Delphi DLL

Upload Files to a Web Server - Simplest TLS Example

See more Upload Examples

This is the simplest example for uploading some files to a web server using SSL/TLS. the BlockingUpload call is synchronous and returns when the upload is finished (or failed).

A server-side C# example showing how to receive an upload is located at C# ASP.NET Code to Receive Upload

Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
upload: HCkUpload;

begin
success := False;

upload := CkUpload_Create();

// Specify the page (ASP, ASP.NET, Perl, Python, Ruby, CGI, etc)
// that will receive and process the HTTPS Upload.
CkUpload_putHostname(upload,'www.mywebserver.com');
CkUpload_putPath(upload,'/receiveUpload.aspx');

// Make sure to indicate that TLS is to be used, and the port should be
// 443 rather than 80.
CkUpload_putSsl(upload,True);
CkUpload_putPort(upload,443);

// Add one or more files to be uploaded.
CkUpload_AddFileReference(upload,'file1','dude.gif');
CkUpload_AddFileReference(upload,'file2','swordfish.xml');
CkUpload_AddFileReference(upload,'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 := CkUpload_BlockingUpload(upload);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkUpload__lastErrorText(upload));
  end
else
  begin
    Memo1.Lines.Add('Files uploaded!');
  end;

CkUpload_Dispose(upload);

end;