uses
sgcHTTP_REST_Server, sgcHTTP_OpenAPI_Client;
var
RESTServer: TsgcHTTPRESTServer;
APIClient: TsgcOpenAPI_Client;
Request: TsgcOpenAPIRequest;
Response: TsgcOpenAPIResponse;
begin
RESTServer := TsgcHTTPRESTServer.Create(nil);
RESTServer.Bindings.Add.Port := 8080;
RESTServer.CORSOptions.Enabled := True;
RESTServer.ServerStats := HTTPServerStats1;
RESTServer.Active := True;
APIClient := TsgcOpenAPI_Client.Create(nil);
APIClient.SetBaseURL('https://api.example.com');
APIClient.Authentication.Basic.Enabled := True;
APIClient.Authentication.Basic.Username := 'apiuser';
APIClient.Authentication.Basic.Password := '...';
Request := TsgcOpenAPIRequest.Create;
Response := TsgcOpenAPIResponse.Create;
APIClient.HTTP_REQUEST(Request, Response);
end;
TsgcHTTPRESTServer *RESTServer = new TsgcHTTPRESTServer(this);
RESTServer->Bindings->Add()->Port = 8080;
RESTServer->CORSOptions->Enabled = true;
RESTServer->ServerStats = HTTPServerStats1;
RESTServer->Active = true;
TsgcOpenAPI_Client *APIClient = new TsgcOpenAPI_Client(this);
APIClient->SetBaseURL("https://api.example.com");
APIClient->Authentication->Basic->Enabled = true;
APIClient->Authentication->Basic->Username = "apiuser";
APIClient->Authentication->Basic->Password = "...";
TsgcOpenAPIRequest *Request = new TsgcOpenAPIRequest();
TsgcOpenAPIResponse *Response = new TsgcOpenAPIResponse();
APIClient->HTTP_REQUEST(Request, Response);