Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3/4 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Delphi DLL) Unlocks the Chilkat Ftp2 Class
Demonstrates how to unlock the Chilkat Ftp2 functionality. The UnlockComponent method should be called once at the beginning of the program. Once unlocked, all subsequent objects are created in the unlocked state. There is no need to call UnlockComponent for every instance of a Chilkat 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.
Also, the LastErrorText method can be examined to verify that a purchased unlock code was indeed recognized.
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 glob: HCkGlobal; success: Boolean; status: Integer; begin // The Chilkat API can be unlocked for a fully-functional 30-day trial by passing any // string to the UnlockBundle method. A program can unlock once at the start. Once unlocked, // all subsequently instantiated objects are created in the unlocked state. // // After licensing Chilkat, replace the "Anything for 30-day trial" with the purchased unlock code. // To verify the purchased unlock code was recognized, examine the contents of the LastErrorText // property after unlocking. For example: glob := CkGlobal_Create(); success := CkGlobal_UnlockBundle(glob,'Anything for 30-day trial'); if (success <> True) then begin Memo1.Lines.Add(CkGlobal__lastErrorText(glob)); Exit; end; status := CkGlobal_getUnlockStatus(glob); if (status = 2) then begin Memo1.Lines.Add('Unlocked using purchased unlock code.'); end else begin Memo1.Lines.Add('Unlocked in trial mode.'); end; // The LastErrorText can be examined in the success case to see if it was unlocked in // trial more, or with a purchased unlock code. Memo1.Lines.Add(CkGlobal__lastErrorText(glob)); CkGlobal_Dispose(glob); end;
© 2000-2020 Chilkat Software, Inc. All Rights Reserved.