Delphi-REST-API-Post-Beispiel -

Kann jemand die post-ein einfaches Beispiel für ein JSON-POST-Anforderung an eine API mit Delphi 2005. Ich fand zahlreiche Beispiele für die Verwendung von BEKOMMEN, aber der API-Anbieter nicht erlauben, Anfragen per HTTP GET und unterstützt keine URL-Codierung Parameter.

Ich bin ganz neu auf den Aufruf von REST-Diensten (haben SEIFE verwendet in der Vergangenheit) also, bitte lassen Sie mich wissen, wenn Sie weitere Informationen benötigen.

InformationsquelleAutor BrianKE | 2012-03-16
  1. 7

    Würden Sie nur verwenden, Indy TIdHTTP - Komponente und rufen Sie die Post Methode. Übergeben Sie die URL als erstes argument und Ihre JSON-string als zweites argument. So etwas wie dieses:

    procedure TForm1.Button1Click(Sender: TObject);
var
  jsonToSend: TStringList;
  http: TIdHTTP;
begin
  http := TIdHTTP.Create(nil);
  try
    http.HandleRedirects := True;
    http.ReadTimeout := 5000;
    jsonToSend := TStringList.create;
    try
      jsonToSend.Add('{ Your JSON-encoded request goes here }');
      http.Post('http://your.restapi.url', jsonToSend);
    finally
      jsonToSend.Destroy;
    end;
  finally
    http.Destroy;
  end;
end;

    Ich nehme an, Sie sind bereits in der Lage, um das Kodieren und Dekodieren von JSON und dass Sie waren nur zu Fragen, wie führen Sie ein HTTP post mit Delphi.

    • dieser code Lecks eine TStringList-Instanz pro Anruf
    • ... und wird eine Speicherleck (http+jsontosend Instanzen), wenn eine exception ausgelöst, die innerhalb http.post()...
    InformationsquelleAutor Jeff Wilhite
  2. 7

    Einer option, mit einem Teil unserer mORMot Open-Source-framework:

    uses SynCrtSock, SynCommons;
var t: variant;
begin
  TDocVariant.New(t);
  t.name := 'john';
  t.year := 1982;
  TWinHTTP.Post('http://servername/resourcename',t,'Content-Type: application/json');
end;

    Beachten Sie, dass die hier bauen Sie Ihre JSON-Inhalte mit einer custom variant Speicher -, die umgewandelt werden als JSON-text an den server.

    InformationsquelleAutor Arnaud Bouchez
Schreibe einen Kommentar