Genereer automatisch native Pascal-SDK's vanuit OpenAPI 3.x-specificaties. Importeer, parse en genereer typeveilige API-clients — rechtstreeks vanuit je Delphi-IDE.
Zet elke OpenAPI-specificatie om in productieklare Pascal-code met volledige typeveiligheid en IntelliSense-ondersteuning.
Importeer elke OpenAPI- of Swagger-specificatie en laat sgcOpenAPI nette, idiomatische Object Pascal-interfaces genereren die klaar zijn voor je project.
Ga direct aan de slag met kant-en-klare Pascal-SDK's voor de grootste cloudproviders. Alle SDK's worden regelmatig bijgewerkt op de nieuwste API-specificaties.
Drie eenvoudige stappen om van een API-specificatie naar volledig geïntegreerde Pascal-code te gaan.
Laad je OpenAPI 3.x-specificatiebestand in JSON- of YAML-formaat. Swagger 1.x- en 2.x-specificaties worden automatisch gedetecteerd en omgezet naar het OpenAPI 3.x-schema.
De parser analyseert endpoints, parameters, request-/responsemodellen en authenticatieschema's en genereert vervolgens nette, idiomatische Pascal-code met de juiste typemappings.
Plaats de gegenereerde units in je Delphi-project. Volledige typeveiligheid, IntelliSense-ondersteuning en geen externe afhankelijkheden. Begin direct met het aanroepen van API's.
Werkt met elke belangrijke versie van de Delphi- en Pascal-toolchain.
Volledige ondersteuning van Delphi 7 tot en met RAD Studio 13. VCL- en FireMonkey-frameworks met designtime-componentregistratie.
Native C++ Builder-ondersteuning met wrapperheaders. Compatibel met C++ Builder 2007 tot en met C++ Builder 13.
Zie hoe een gegenereerde Pascal-SDK er in de praktijk uitziet — netjes, typeveilig en klaar voor gebruik.
uses sgcOpenAPI_PetStore; // Generated from petstore.yaml procedure TForm1.btnGetPetClick(Sender: TObject); var Client: TsgcOpenAPI_PetStoreClient; Pet: TsgcOpenAPI_Pet; begin Client := TsgcOpenAPI_PetStoreClient.Create(nil); try Client.BaseURL := 'https://petstore.swagger.io/v2'; Client.ApiKey := 'your-api-key'; // Type-safe API call with IntelliSense Pet := Client.GetPetById(42); try Memo1.Lines.Add('Name: ' + Pet.Name); Memo1.Lines.Add('Status: ' + Pet.Status); Memo1.Lines.Add('Category: ' + Pet.Category.Name); finally Pet.Free; end; finally Client.Free; end; end; procedure TForm1.btnListPetsClick(Sender: TObject); var Client: TsgcOpenAPI_PetStoreClient; Pets: TsgcOpenAPI_PetList; i: Integer; begin Client := TsgcOpenAPI_PetStoreClient.Create(nil); try Client.BaseURL := 'https://petstore.swagger.io/v2'; // Strongly-typed list of Pet objects Pets := Client.FindPetsByStatus('available'); try for i := 0 to Pets.Count - 1 do ListBox1.Items.Add(Pets[i].Name); finally Pets.Free; end; finally Client.Free; end; end;