Get started in 5 minutes

uses
  sgcWebSocket;

var
  oClient: TsgcWebSocketClient;
begin
  oClient := TsgcWebSocketClient.Create(nil);
  try
    oClient.URL := 'wss://www.esegece.com:2053';
    oClient.WatchDog.Enabled := True;     // auto-reconnect
    oClient.OnMessage := procedure(Connection: TsgcWSConnection;
                                   const Text: string)
      begin
        Writeln('Server says: ', Text);
      end;
    oClient.Active := True;
    oClient.WriteData('Hello from Delphi!');
    Readln;
  finally
    oClient.Free;
  end;
end;

sgcOpenAPI.exe -i "geolocation.json" -o "geolocation.pas"

uses
  geolocation;   // the unit you just generated

var
  oResponse: TsgcOpenAPI_Retrieve_the_location_of_an_IP_address_Response;
begin
  oResponse := GetOpenAPIClient.Retrieve_the_location_of_an_IP_address(
    aApiKey, aIPAddress);
  try
    if oResponse.IsSuccessful then
      Writeln('country: ', oResponse.Successful.Country)
    else
      Writeln(oResponse.ResponseError);
  finally
    oResponse.Free;
  end;
end;

uses
  sgcSign_Types, sgcSign_Interfaces, sgcSign_Classes,
  sgcSign_PAdES, sgcSign_KeyProvider_WinCertStore;

var
  vSigner      : TsgcPAdESSigner;
  vKeyProvider : TsgcWindowsCertStoreProvider;
  vProviderIntf: IsgcKeyProvider;
begin
  vKeyProvider := TsgcWindowsCertStoreProvider.Create(nil);
  vSigner := TsgcPAdESSigner.Create(nil);
  try
    vKeyProvider.SelectCertificateByThumbprint('a1b2c3d4...');
    Writeln('Certificate: ', vKeyProvider.Certificate.Subject);

    // hold the interface in a named local, so the temporary is
    // released before the provider component is freed
    vProviderIntf := vKeyProvider as IsgcKeyProvider;
    vSigner.KeyProvider := vProviderIntf;
    vSigner.Reason := 'Approved';

    vSigner.SignPDFFile(
      'C:\docs\contract.pdf',
      'C:\docs\contract_signed.pdf');
    Writeln('Signed');
  finally
    vSigner.Free;
    vProviderIntf := nil;
    vKeyProvider.Free;
  end;
end;