Klient REST API GitHub dla Delphi przez sgcOpenAPI

> sgcOpenAPI.exe -i "api.github.com.json" -o "github.pas" -a 2

File successfully created github.pas

-i przyjmuje plik lokalny lub adres URL i akceptuje JSON oraz YAML. -o to jednostka Pascala do zapisania, a jednostka bierze nazwę od tego pliku. -a 2 wybiera uwierzytelnianie tokenem, więc każda wygenerowana metoda wysyła Authorization: Bearer. Ten sam plik wykonywalny jest kreatorem graficznym, kiedy uruchomisz go bez parametrów, i kończy się kodem 0 przy powodzeniu, 5 przy złym pliku wejściowym, 6 przy złym pliku wyjściowym oraz 7, kiedy dokumentu nie da się zamienić w poprawny dokument OpenAPI 3.

Dodaj wygenerowany plik .pas do projektu i wpisz go do klauzuli uses. Nie ma komponentu do zainstalowania, ponieważ sgcOpenAPI nie rejestruje żadnego i nie dostarcza pakietu design-time.

var
  oIssue: TsgcOpenAPI_issuescreate_Response;
  oPulls: TsgcOpenAPI_pullslist_Response;
begin
  oIssue := GetOpenAPIClient.issuescreate('octocat', 'Hello-World',
    '{"title":"Memory leak in the HTTP/2 reader",' +
    '"body":"Repro steps: ...","labels":["bug","http2"]}');
  try
    if oIssue.IsSuccessful then
      memoLog.Lines.Add('filed issue #' +
        IntToStr(oIssue.Successful.Number) + ' ' + oIssue.Successful.Html_url)
    else
      memoLog.Lines.Add(oIssue.Error422._message);
  finally
    oIssue.Free;
  end;

  oPulls := GetOpenAPIClient.pullslist('octocat', 'Hello-World',
    'open', 'updated');
  try
    memoLog.Lines.Add(IntToStr(oPulls.ResponseCode));
  finally
    oPulls.Free;
  end;
end;

Każda klasa odpowiedzi niesie Successful plus jedną właściwość na każdy kod statusu zadeklarowany w dokumencie, więc Error304, Error401, Error403 i Error422 są na miejscu do odczytania, kiedy wywołanie się nie powiedzie. Status, który GitHub opisuje nazwanym schematem, staje się klasą, a taki, którego nie opisuje niczym, staje się zwykłym łańcuchem znaków. Właściwość błędu jest tworzona na żądanie, więc nigdy nie jest nil i sprawdzasz IsSuccessful, a nie sam obiekt.

Podkreślenie w _message nie jest literówką. message to jedno z 68 słów zastrzeżonych Pascala, które generator poprzedza znakiem ucieczki, więc pole schematu o tej nazwie przychodzi z wiodącym podkreśleniem. To samo dzieje się z type, object, default, index i resztą listy, a wszystkie one pojawiają się gdzieś w schematach GitHub.