// Input: url mit Datenanbieter und korrektem Anforderungslink, Ooutput: json-String
function TAktienkurse_holen.GetUrlJsonResponse(Url: string): string;
var
HttpClient: TFPHTTPClient;
Json_Response: string;
Json_Obj: TJSONObject;
begin
HttpClient := TFPHTTPClient.Create(nil);
// Sende die Anfrage und erhalte die Antwort als String
Json_Response := HttpClient.Get(Url);
// Prüfen, ob die Antwort im JSON-Format vorliegt
Json_Obj := TJSONObject(GetJSON(Json_Response));
// Wenn das Parsen erfolgreich war, gebe die Antwort im JSON-Format zurück
Result := Json_Obj.FormatJSON;
HttpClient.Free; // Stelle sicher, dass das Objekt freigegeben wird
end;