function IsValidJSON (MyJSONstring:string):boolean;
var
Data: TJSONData;
begin
result:=true;
Try
Data := GetJSON(MyJSONstring);
except
On E : ejsonparser do
Begin
result:=false;
end;
end;
end;
function GetWebData(market):dataconfig;
var
Data: TJSONData;
DataArrayItem: TJSONData;
JSON: TJSONStringType;
I: Integer;
ObjName: String;
Resultado: dataconfig;
ok:boolean=true;
Begin
market:= StringReplace(market,' ','',[rfReplaceAll, rfIgnoreCase]);
JSON :=Read_URL_GET('https:myweb.com?symbol='+market);
ok:=JSON<>'ERROR';
if not OK then // JSON=ERROR
Begin
Resultado.nombredata := 'ERROR';
Resultado.valordata := 'ERROR';
GetWebData:=resultado;
end
else
begin // JSON IS OK
ok:=IsValidJSON(JSON); // CHECK if Valid
if Not ok then // Not Valid
begin
Resultado.nombredata := 'ERROR';
Resultado.valordata := 'ERROR';
GetWebData:=resultado;
end
else
begin // isValidJson returns OK; so lets process it.
Data := GetJSON(JSON);
for I := 0 to Data.Count - 1 do
begin
ObjName := TJSONObject(Data).Names[I];
if Data.Items[I].JSONType = jtArray then
begin
DataArrayItem := TJSONObject(Data.Items[I]);
if (ObjName = 'pros') then Resultado.nombredata := float_changeformat(TJSONObject(DataArrayItem.Items[0]).Items[0].Value);
if (ObjName = 'cons') then Resultado.valordata := float_changeformat(TJSONObject(DataArrayItem.Items[0]).Items[0].Value);
end;
end;
GetWebData:=resultado;
data.Free;
end;
end;
end;