Delphi DLL

multipart/form-data HTTP POST

Demonstrates how to construct and send a multipart/form-data HTTP POST. Delphi 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, BinData;

...

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

begin
success := False;

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

// Sends the following multipart/form-data POST:

// POST /xyz/something HTTP/1.1
// Host: domain
// Content-Type: multipart/form-data; boundary=------------090708030009010000030901
// Content-Length: 2220
// 
// --------------090708030009010000030901
// Content-Disposition: form-data; name="param1"
// 
// value1
// --------------090708030009010000030901
// Content-Disposition: form-data; name="param2"
// 
// value2
// --------------090708030009010000030901
// Content-Disposition: form-data; name="starfish20"; filename="starfish20.jpg"
// Content-Type: image/jpeg
// 
// JPEG DATA HERE...
// --------------090708030009010000030901
// Content-Disposition: form-data; name="helloWorld"; filename="helloWorld.pdf"
// Content-Type: application/pdf
// 
// PDF DATA HERE...
// --------------090708030009010000030901
// Content-Disposition: form-data; name="tinyA"; filename="tinyA.xml"
// Content-Type: text/xml
// 
// XML DATA HERE...
// --------------090708030009010000030901--
// 

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

CkHttpRequest_AddParam(req,'param1','value1');
CkHttpRequest_AddParam(req,'param2','value2');

// Add some small files to the request. (Small so we can see what the full request looks like without too much data..)
bd := CkBinData_Create();
success := CkBinData_LoadFile(bd,'qa_data/jpg/starfish20.jpg');
CkHttpRequest_AddBdForUpload(req,'starfish20','starfish20.jpg',bd,'image/jpeg');

success := CkBinData_LoadFile(bd,'qa_data/pdf/helloWorld.pdf');
CkHttpRequest_AddBdForUpload(req,'helloWorld','helloWorld.pdf',bd,'application/pdf');

success := CkBinData_LoadFile(bd,'qa_data/xml/tinyA.xml');
CkHttpRequest_AddBdForUpload(req,'tinyA','tinyA.xml',bd,'text/xml');

http := CkHttp_Create();

resp := CkHttpResponse_Create();
success := CkHttp_HttpSReq(http,'example.com',443,True,req,resp);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

Memo1.Lines.Add('HTTP response status: ' + IntToStr(CkHttpResponse_getStatusCode(resp)));

Memo1.Lines.Add('Received:');
Memo1.Lines.Add(CkHttpResponse__bodyStr(resp));

CkHttpRequest_Dispose(req);
CkBinData_Dispose(bd);
CkHttp_Dispose(http);
CkHttpResponse_Dispose(resp);

end;