Pascal (Lazarus/Delphi)

Debugging with Socket Session Logging

See more Socket/SSL/TLS Examples

Debugging with socket session logging.

The Chilkat Socket component provides properties for keeping a session log making it possible to see the exact bytes received and sent on a TCP/IP or SSL connection. To enable session logging, set the KeepSessionLog property = _TRUE_. The SessionLogEncoding property controls how binary, non-printable bytes are represented in the log. There are two possible settings: Possible values are "esc" and "hex". The default value is "esc".

When set to "hex", the bytes are encoded as a hexidecimalized string. The "esc" encoding is a C-string like encoding, and is more compact than hex if most of the data to be logged is text. Printable us-ascii chars are unmodified. Common "C" control chars are represented as "\r", "\n", "\t", etc. Non-printable and byte values greater than 0x80 are escaped using a backslash and hex encoding: \xHH. Certain printable chars are backslashed: SPACE, double-quote, single-quote, etc.

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Socket;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  socket: TSocket;
  ssl: Boolean;
  maxWaitMillisec: Integer;
  httpGet: string;
  httpHeader: string;

begin
  success := False;

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

  socket := TSocket.Create;

  //  Enable session logging:
  socket.KeepSessionLog := True;
  socket.SessionLogEncoding := 'esc';

  //  To demonstrate session logging, we'll connect to an
  //  HTTP server and download the HTTP response header:
  ssl := False;
  maxWaitMillisec := 20000;
  success := socket.Connect('www.chilkatsoft.com',80,ssl,maxWaitMillisec);
  if (success <> True) then
    begin
      WriteLn(socket.LastErrorText);
      Exit;
    end;

  //  Set maximum timeouts for reading an writing (in millisec)
  socket.MaxReadIdleMs := 10000;
  socket.MaxSendIdleMs := 10000;

  //  The socket component includes a BuildHttpGetRequest
  //  method for convenience. Build a GET and send it to 
  //  the web server:

  httpGet := socket.BuildHttpGetRequest('http://www.chilkatsoft.com/');

  //  Send it...
  success := socket.SendString(httpGet);
  if (success <> True) then
    begin
      WriteLn(socket.LastErrorText);
      Exit;
    end;

  //  Read the response up to the first double CRLF:
  httpHeader := socket.ReceiveUntilMatch(#13#10 + #13#10);
  if (socket.LastMethodSuccess <> True) then
    begin
      WriteLn(socket.LastErrorText);
      Exit;
    end;

  //  Close the connection with the server
  //  Wait a max of 20 seconds (20000 millsec)
  success := socket.Close(20000);

  //  Display the session log:
  WriteLn(socket.SessionLog);

  //  Show the HTTP response header:
  WriteLn(httpHeader);


  socket.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.