Delphi ActiveX

HTTP Response Inspection

See more HTTP Examples

Demonstrates how to inspect the HTTP response, including the status code, status text, and response headers, for Chilkat methods that don't use an HttpResponse object. Delphi ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TChilkatHttp;
jsonText: WideString;
mime: TChilkatMime;
numHeaders: Integer;
i: Integer;

begin
http := TChilkatHttp.Create(Self);

// Returns the contents of the response body.
jsonText := http.QuickGetStr('https://chilkatsoft.com/helloWorld.json');

// Examine the response status code.
Memo1.Lines.Add('response status code: ' + IntToStr(http.LastStatus));

// Examine the response status text
Memo1.Lines.Add('response status text: ' + http.LastStatusText);

// Examine the full response header.
Memo1.Lines.Add('response header:');
Memo1.Lines.Add(http.LastResponseHeader);
Memo1.Lines.Add('----');

// Examine the response content-type
Memo1.Lines.Add('LastContentType = ' + http.LastContentType);

// Examine the response last-mod date
Memo1.Lines.Add('LastModDate = ' + http.LastModDate);

// Load the response header into a Chilkat MIME object to access its fields individually.
mime := TChilkatMime.Create(Self);
mime.LoadMime(http.LastResponseHeader);

numHeaders := mime.NumHeaderFields;
i := 0;
Memo1.Lines.Add('---- MIME Headers ----');
while i < numHeaders do
  begin
    Memo1.Lines.Add('name:  ' + mime.GetHeaderFieldName(i));
    Memo1.Lines.Add('value: ' + mime.GetHeaderFieldValue(i));
    i := i + 1;
  end;

Memo1.Lines.Add('----');

// Get a header field value by name:
Memo1.Lines.Add('ETag: ' + mime.GetHeaderField('ETag'));

// Output:

// response status code: 200
// response status text: OK
// response header:
// Content-Type: application/json
// Last-Modified: Sun, 20 Aug 2023 11:36:27 GMT
// Accept-Ranges: bytes
// ETag: "34c27f8e5ad3d91:0"
// Server: Microsoft-IIS/10.0
// X-Powered-By: ASP.NET
// Date: Sat, 30 Aug 2025 14:38:13 GMT
// Content-Length: 22
// ----
// LastContentType = application/json
// LastModDate = 2023-08-20
// ---- MIME Headers ----
// name:  Content-Type
// value: application/json
// name:  Last-Modified
// value: Sun, 20 Aug 2023 11:36:27 GMT
// name:  Accept-Ranges
// value: bytes
// name:  ETag
// value: "34c27f8e5ad3d91:0"
// name:  Server
// value: Microsoft-IIS/10.0
// name:  X-Powered-By
// value: ASP.NET
// name:  Date
// value: Sat, 30 Aug 2025 14:38:13 GMT
// name:  Content-Length
// value: 22
// ----
// ETag: "34c27f8e5ad3d91:0"
end;