Cliente Delphi de la API REST de GitHub vía sgcOpenAPI

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

File successfully created github.pas

-i acepta un archivo local o una URL, en JSON o en YAML. -o es la unit Pascal que se escribe, y la unit toma el nombre de ese archivo. -a 2 selecciona la autenticación por token, así que cada método generado envía Authorization: Bearer. El mismo ejecutable es un asistente gráfico cuando se arranca sin parámetros, y sale con 0 si todo va bien, con 5 si el archivo de entrada es incorrecto, con 6 si lo es el de salida y con 7 cuando el documento no se puede convertir en un documento OpenAPI 3 válido.

Añade el .pas generado a tu proyecto y ponlo en una cláusula uses. No hay ningún componente que instalar, porque sgcOpenAPI no registra ninguno y no incluye paquete de diseño.

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;

Cada clase de respuesta lleva Successful más una propiedad por cada código de estado que declara el documento, así que Error304, Error401, Error403 y Error422 están ahí para leerlos cuando la llamada falla. Un estado que GitHub describe con un esquema con nombre se convierte en una clase, y uno que describe sin nada se convierte en una cadena simple. La propiedad de error se crea bajo demanda, así que nunca es nil y compruebas IsSuccessful en lugar de comprobar el objeto.

El guion bajo de _message no es una errata. message es una de las 68 palabras reservadas de Pascal que el generador escapa, así que un campo de esquema con ese nombre llega con un guion bajo delante. Lo mismo le pasa a type, object, default, index y al resto de la lista, y todas ellas aparecen en algún punto de los esquemas de GitHub.