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.