Pascal (Lazarus/Delphi)

Set Default NTLM Protocol Version (v1 or v2)

Demonstrates how to set the default NTLM protocol version. 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.Global;

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

procedure RunDemo;
var
  glob1: TGlobal;
  glob2: TGlobal;

begin
  //  The default NTLM protocol version used Chilkat-wide, for any 
  //  operations involving NTLM can be set like this:

  glob1 := TGlobal.Create;

  //  Choose 1 or 2:
  glob1.DefaultNtlmVersion := 1;

  //  That is all.  The variable named "glob1"
  //  does not need to be kept in existence. 

  //  For example:
  glob2 := TGlobal.Create;
  //  Should show the value 1.
  WriteLn('New NTLM default version: ' + glob2.DefaultNtlmVersion);

  //  The Chilkat global object follows the singleton design pattern.
  //  There is only one instance of the global object within Chilkat.
  //  When your program creates a new instance, such as glob1 or glob2,
  //  they are reallly just references to the same singleton object
  //  within Chilkat.


  glob1.Free;
  glob2.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.