Public Function Unlock( _
   ByVal code As String _
) As Boolean

Visual Basic (Usage)	Copy Code
Dim instance As ServiceAdministrator Dim code As String Dim value As Boolean   value = instance.Unlock(code)

public bool Unlock( 
   string code
)

public: bool Unlock( 
   string* code
) 

public:
bool Unlock( 
   String^ code
) 

Parameters

code

The LEADTOOLS PACS Framework unlock key.

Return Value

Check to see if LEADTOOLS Dicom Server Framework has been unlocked or is in evaluation mode.

Visual Basic

Copy Code

Public Sub LockCheck()    Dim admin As ServiceAdministrator = New ServiceAdministrator("C:\Program Files\LEAD Technologies, Inc\Leadtools Dicom Server Framework")    If (Not admin.IsEval) Then       '       ' If it isn't an eval then we need to unlock       '       If admin.IsLocked Then          admin.Unlock("Substitute Your Code")          If admin.IsLocked Then             Console.WriteLine("Invalid unlock code")             Return          Else             '             ' Once unlocked the Services property will be valid             '             For Each service As KeyValuePair(Of String, DicomService) In admin.Services                Console.WriteLine(service.Value.Settings.AETitle)                For Each o As IAddInOptions In service.Value.AddInOptions                   Console.WriteLine("Option: {0}", o.Text)                Next o             Next service          End If       End If       Console.WriteLine("Support is Unlocked")    Else       If admin.IsExpired Then          Console.WriteLine("Evaluation has expired")       End If    End If End Sub

C#

Copy Code

public void LockCheck()  {     ServiceAdministrator admin = new ServiceAdministrator(@"C:\Program Files\LEAD Technologies, Inc\Leadtools Dicom Server Framework");       if(!admin.IsEval)     {        //        // If it isn't an eval then we need to unlock        //        if(admin.IsLocked)        {           admin.Unlock("Substitute Your Code");           if(admin.IsLocked)           {              Console.WriteLine("Invalid unlock code");              return;           }           else           {              //              // Once unlocked the Services property will be valid              //              foreach(KeyValuePair<string,DicomService> service in admin.Services)              {                 Console.WriteLine(service.Value.Settings.AETitle);                 foreach(IAddInOptions option in service.Value.AddInOptions)                 {                    Console.WriteLine("Option: {0}", option.Text);                 }              }           }        }                   Console.WriteLine("Support is Unlocked");                 }     else     {        if(admin.IsExpired)        {           Console.WriteLine("Evaluation has expired");        }     }           }

Target Platforms: Microsoft .NET Framework 2.0, Windows 98, Windows NT 4.0, Windows Millennium Edition, Windows 2000, Windows XP Home Edition, Windows XP Professional, Windows Server 2003 family

Reference