Einzelnen Beitrag anzeigen

Towmuz

Registriert seit: 21. Sep 2016
Ort: Minden
127 Beiträge
 
Delphi 10.1 Berlin Professional
 
#6

AW: Web API in ein Programm einbinden

  Alt 23. Okt 2017, 08:32
Moin,

da musst du nicht viel einbinden, du sendest HTTP GET Anfragen an den Server und der liefert dir JSON zurück.

Hier nur mal so als Denkanstoß...(Umgebautes Bsp. von Emba)

Delphi-Quellcode:
uses
  IdHTTP, JSON;

procedure Form1.Button1Click(Sender: TObject);
var
  res: string;
  val: TJSONValue;
  HTTP: TIdHTTP;
begin
  HTTP := TIdHTTP.Create(nil);
  HTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:56.0) Gecko/20100101 Firefox/56.0'; // *
  res := HTTP.Get('https://api.realliferpg.de/v1/market/1');
  val := TJSONObject.ParseJSONValue(res);

  if val is TJSONObject then
  begin
    ShowMessage(val.GetValue<string>('data[0].price'));
  end;
end;
* Den Standarduseragent der in TIdHttp hinterlegt ist, hat er bei mir eben mit 403 abgelehnt (Mozilla/3.0 glaub ich und den akzeptiert der Server mit der API nicht).

Ich schätze aber mal, in deiner Delphi Version gibt´s den ganzen JSON Kram noch nicht und du müsstest wahrscheinlich mal nach Delphi JSON googlen oder du holst dir die momentan (?) kostenlose Starterversion von Embarcadero.
Thomas
  Mit Zitat antworten Zitat