1. Verbind met een WebSocket-server
Gebruik TsgcWebSocketClient om verbinding te maken met elke RFC 6455-conforme server, een bericht te sturen, en op binnenkomende frames te reageren.
uses
sgcWebSocket;
var
oClient: TsgcWebSocketClient;
begin
oClient := TsgcWebSocketClient.Create(nil);
try
oClient.URL := 'wss://echo.websocket.org';
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;
2. Genereer een Delphi REST-client uit OpenAPI
Wijs TsgcOpenAPI_Generator naar een OpenAPI 3-spec (lokaal bestand of HTTP-URL) en lever een typed Delphi-client op — klassen, methodes, auth, en request/response DTO’s — in een aanroep.
uses
sgcOpenAPI_Parser, sgcOpenAPI_Generator;
var
oGen: TsgcOpenAPI_Generator;
begin
oGen := TsgcOpenAPI_Generator.Create(nil);
try
oGen.Source := 'https://petstore3.swagger.io/api/v3/openapi.json';
oGen.OutputFolder := 'C:\Projects\PetStoreClient\src';
oGen.Language := lngDelphi;
oGen.Namespace := 'PetStore.Client';
oGen.Generate;
Writeln('Generated ', oGen.Files.Count, ' Delphi units');
finally
oGen.Free;
end;
end;
3. Onderteken een PDF
Gebruik TsgcSignPDF om een PAdES-conforme handtekening te produceren met een certificaat van een van de ondersteunde key-providers (PKCS#11, Azure Key Vault, AWS KMS, Windows Cert Store, lokale PFX).
uses
sgcSign_PAdES, sgcSign_KeyProvider_Windows;
var
oSigner: TsgcSignPDF;
oKey : TsgcSign_KeyProvider_Windows;
begin
oKey := TsgcSign_KeyProvider_Windows.Create(nil);
oKey.CertificateThumbprint := 'a1b2c3d4...';
oSigner := TsgcSignPDF.Create(nil);
try
oSigner.KeyProvider := oKey;
oSigner.Profile := 'PAdES-B-LT';
oSigner.SignFile(
'C:\docs\contract.pdf',
'C:\docs\contract.signed.pdf');
Writeln('Signed: ', oSigner.LastSignatureId);
finally
oSigner.Free;
oKey.Free;
end;
end;