Pascal (Lazarus/Delphi)

Demonstrates UnlockComponent for Socket

Demonstrates how to unlock the Chilkat Socket functionality. The UnlockComponent method should be called once at the beginning of the program. Once unlocked, all subsequent Socket objects are created in the unlocked state. There is no need to call UnlockComponent for every instance of a Chilkat Socket object.

The object that called UnlockComponent may be discarded (deleted, deallocated, etc.). It does not need to remain in existence for subsequent objects to be already unlocked when created.

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;

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

procedure RunDemo;
var

begin
  //  See Global Unlock Sample for sample code.



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.