1. Mit einem WebSocket-Server verbinden
Verwende TsgcWebSocketClient, um dich mit jedem RFC-6455-konformen Server zu verbinden, eine Nachricht zu senden und auf eingehende Frames zu reagieren.
uses
sgcWebSocket;
var
oClient: TsgcWebSocketClient;
begin
oClient := TsgcWebSocketClient.Create(nil);
try
oClient.URL := 'wss://www.esegece.com:2053';
oClient.WatchDog.Enabled := True;
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. Einen Delphi-REST-Client aus OpenAPI generieren
Zeige TsgcOpenAPI_Generator auf eine beliebige OpenAPI-3-Spezifikation (lokale Datei oder HTTP-URL) und gib einen typisierten Delphi-Client aus — Klassen, Methoden, Auth und Request-/Response-DTOs — in einem einzigen Aufruf.
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. Ein PDF signieren
Verwende TsgcSignPDF, um eine PAdES-konforme Signatur mit einem Zertifikat aus einem der unterstützten Key Provider zu erzeugen (PKCS#11, Azure Key Vault, AWS KMS, Windows-Zertifikatsspeicher, lokales 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;