Bir Delphi Stripe İstemcisi Üretin

> sgcOpenAPI.exe -i "spec3.json" -o "stripe.pas" -a 2

File successfully created stripe.pas

-i yerel bir dosya ya da bir URL alır, JSON ve YAML kabul eder. -o yazılacak Pascal birimidir ve birim bu dosyanın adını taşır. -a 2 belirteç kimlik doğrulamasını seçer, Stripe'ın gizli anahtarının ihtiyaç duyduğu da budur. Aynı çalıştırılabilir dosya, parametresiz başlattığınızda bir grafik sihirbaz olarak çalışır. Çalışma başarılı olduğunda 0 çıkış koduyla biter ve bir derleme betiği 5 (giriş dosyası), 6 (çıkış dosyası) veya 7 (belge geçerli bir OpenAPI 3 belgesine dönüştürülemedi) değerlerini sınayabilir.

Üretilen .pas dosyasını projenize ekleyin, uses bölümüne koyun, tüm entegrasyon bundan ibarettir. Kurulacak bir bileşen yoktur, çünkü sgcOpenAPI hiçbir bileşen kaydetmez ve tasarım zamanı paketi sunmaz.

var
  oCustomer: TsgcOpenAPI_PostCustomers_Response;
  oSub: TsgcOpenAPI_PostSubscriptions_Response;
begin
  oCustomer := GetOpenAPIClient.PostCustomers(
    'email=jane@example.com&payment_method=pm_card_visa');
  try
    if not oCustomer.IsSuccessful then
      raise Exception.Create(oCustomer.ResponseError);

    oSub := GetOpenAPIClient.PostSubscriptions(
      'customer=' + oCustomer.Successful.Id +
      '&items[0][price]=price_1JxYzZAbCdEfGhIj');
    try
      memoLog.Lines.Add(oSub.Successful.Id);
    finally
      oSub.Free;
    end;
  finally
    oCustomer.Free;
  end;
end;

Stripe'ın spesifikasyonundaki 593 istek gövdesinin her biri application/x-www-form-urlencoded olarak bildirilmiştir, bu yüzden üretilen parametre const aBody: string olur ve formu Stripe'ın kendi köşeli parantez gösterimiyle siz kurarsınız. Yanıtlarda durum bambaşkadır: adlandırılmış şemalarla bildirildikleri için her biri, özellikler üzerinden okuduğunuz bir sınıfa dönüşür.