Delphi DLL

Add Parameters to Multipart Form-Data POSTs

Parameters (name=value) can be added to multipart/form-data POSTs (such as for file uploads) by using the AddParam method. This example sends the following HTTP POST

POST /something HTTP/1.1
Content-Type: multipart/form-data; boundary=------------010201080703010401070605
Host: domain
Content-Length: 560

--------------010201080703010401070605
Content-Disposition: form-data; name="name"

Joe
--------------010201080703010401070605
Content-Disposition: form-data; name="age"

25
--------------010201080703010401070605
Content-Disposition: form-data; name="fileA"; filename="fileA.txt"
Content-Type: text/plain

This is the contents of file A
--------------010201080703010401070605
Content-Disposition: form-data; name="fileB"; filename="fileB.txt"
Content-Type: text/plain

This is the contents of file B
--------------010201080703010401070605--

Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
req: HCkHttpRequest;

begin
req := CkHttpRequest_Create();

CkHttpRequest_putHttpVerb(req,'POST');
CkHttpRequest_putPath(req,'/something');
CkHttpRequest_putContentType(req,'multipart/form-data');

CkHttpRequest_AddParam(req,'name','Joe');
CkHttpRequest_AddParam(req,'age','25');

CkHttpRequest_AddStringForUpload(req,'fileA','fileA.txt','This is the contents of file A','utf-8');
CkHttpRequest_AddStringForUpload(req,'fileB','fileB.txt','This is the contents of file B','utf-8');

Memo1.Lines.Add(CkHttpRequest__generateRequestText(req));

CkHttpRequest_Dispose(req);

end;