Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
В соответствии со спецификацией JSON RFC 7159 (Раздел 8.1): "Реализации JSON НЕ ДОЛЖНЫ добавлять метку порядка байтов в начало текста JSON.". У Вас в ответе на запрос "TestFile.json"...Большое спасибо за терпение и погружение в вопрос. Будем с нетерпением ждать обновления, поскольку изменить ответ HTTP сервера не получится
var
aHTTP: TM_HTTP;
aRequest: string;
begin
aHTTP := RequestHTTP;
aHTTP.SetHeader('Accept', 'application/json');
aHTTP.Get('https://rogalsky83.github.io/test/TestFile.json', 55);
end.
var
aResult: string;
aNode: TM_JSONNode;
begin
if response.Code <>200 then
Text1.Text:= 'Ошибка ' + IntToStr(Response.Code);
if response.code = 200 then
if Response.Tag = 55 then
begin
aNode := Response.NodesStr['drtc'];
if Assigned(aNode) then
Text5.text := aNode.AsStr;
Text3.Text:=IntToStr(Response.Count);
Text1.Text:=Response.Text;
end;
end.
var
aHTTP: TM_HTTP;
aRequest: string;
begin
aHTTP := RequestHTTP;
aHTTP.SetHeader('Accept', 'application/json');
aHTTP.Get('https://rogalsky83.github.io/test/kamera4.json', 55);
end.
if Response.Tag = 10 then
begin
Log1.Text := IntToStr(Response.Code);
Text255.Text:=Response.text;
Text257.Text:= IntToStr(Response.Count);
Text258.Text := Response['hptr'].AsStr;
end;
