iNTERFACEWARE™ Inc.
Previous iNTERFACEWARE Products Manual > Chameleon > Deploying Chameleon Applications > Registering Automatically Through a Registration API > License Object Usage Example For Delphi 4 Next

License Object Usage Example For Delphi 4

To use Delphi:

  • Add a CHMlicense object to your project (e.g. CHMlicense1). The object can be found with the other Chameleon components.

Chameleon Components Shown Above a Form

  • Use the following code (or something similar) to use the object:
procedure TForm1.Button1Click(Sender: TObject);
var
   Registered,RegistrationCode,MachineId : string;
begin
   try
      //Print true if machine is registered.
      if CHMlicense1.IsLicensed then
         Registered := 'true'
      else
         Registered := 'false';
      ShowMessage( 'Machine is registered: ' + Registered );

      //Fetch the machine id.
      MachineId := CHMlicense1.MachineId;
      ShowMessage( 'The machine id is : ' + MachineId );

      //Set a proxy if required.
      //License.Proxy = "webproxy.acme.com";

      //Fetch the registration code.
      RegistrationCode := CHMlicense1.FetchRegistrationCode(MachineId,
                                                       'your.name@yourcompany.com',
                                                       'password01',
                                                       'My Development Code');

      //Register this machine with this code.
      CHMlicense1.RegisterHost(RegistrationCode);
   except
      on E : Exception do
         ShowMessage( E.Message )
   end;
end;

Delphi Example

Previous iNTERFACEWARE Products Manual > Chameleon > Deploying Chameleon Applications > Registering Automatically Through a Registration API > License Object Usage Example For Delphi 4 Next