Delphi DLL
Delphi DLL
HTTP POST x-www-form-urlencoded
Demonstrates how to send a simple URL encoded POST (content-type = x-www-form-urlencoded). Form params are passed in the HTTP request body in x-www-form-urlencoded format.Chilkat Delphi DLL Downloads
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
success: Boolean;
http: HCkHttp;
req: HCkHttpRequest;
resp: HCkHttpResponse;
begin
success := False;
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
http := CkHttp_Create();
req := CkHttpRequest_Create();
// Add the request params expected by the server-side:
CkHttpRequest_AddParam(req,'city','Paris');
CkHttpRequest_AddParam(req,'country','France');
// Send the POST
CkHttpRequest_putHttpVerb(req,'POST');
CkHttpRequest_putContentType(req,'application/x-www-form-urlencoded');
resp := CkHttpResponse_Create();
success := CkHttp_HttpReq(http,'http://www.chilkatsoft.com/httpTest/cityCountry.asp',req,resp);
if (success = False) then
begin
Memo1.Lines.Add(CkHttp__lastErrorText(http));
Exit;
end;
// The exact HTTP request sent and response received
// by the example code above is as follows:
//
// ---- Sending ----
// POST /httpTest/cityCountry.asp HTTP/1.1
// Host: www.chilkatsoft.com
// Content-Type: application/x-www-form-urlencoded
// Content-Length: 25
//
// city=Paris&country=France
// ---- Received ----
// HTTP/1.1 200 OK
// Date: Wed, 09 Dec 2009 16:16:00 GMT
// Server: Microsoft-IIS/6.0
// X-Powered-By: ASP.NET
// Content-Length: 156
// Content-Type: text/html
// Set-Cookie: ASPSESSIONIDQCDTSSAC=MHJCNFMDENFOKGINOFEDILCM; path=/
// Cache-control: private
//
//
// <html>
// <head>
// <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
// </head>
// <body>
//
// France<br />Paris<br />
//
// </body>
// </html>
CkHttp_Dispose(http);
CkHttpRequest_Dispose(req);
CkHttpResponse_Dispose(resp);
end;