Delphi DLL

Set Default NTLM Protocol Version (v1 or v2)

Demonstrates how to set the default NTLM protocol version. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
glob1: HCkGlobal;
glob2: HCkGlobal;

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

glob1 := CkGlobal_Create();

// Choose 1 or 2:
CkGlobal_putDefaultNtlmVersion(glob1,1);

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

// For example:
glob2 := CkGlobal_Create();
// Should show the value 1.
Memo1.Lines.Add('New NTLM default version: ' + IntToStr(CkGlobal_getDefaultNtlmVersion(glob2)));

// 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.

CkGlobal_Dispose(glob1);
CkGlobal_Dispose(glob2);

end;