В целом понятно пока все, но появился вопрос.
По различным примерам из инета, я получил данные из URL
- Код: Выделить всё
procedure TForm1.Button3Click(Sender: TObject);
var
url, html : String;
begin
url := 'http://enduristov.net/work/TestJson/Test.php';
html := TFPCustomHTTPClient.SimpleGet(url);
memo1.Text := trim(html);
И попробовал читать.
- Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
var
J: TJSONData;
begin
J:=GetJSON(Memo1.text); //Место где мы берем данные, в моем случаем это Memo1
Memo2.Text:=J.FindPath(Edit1.Text).AsString; //Куда копируем результат, и путь до значение которое требуется
J.Free; //Не забываем освобождать память, иначе будут утечки...
end;
Вот вопрос в следующем.
Если в мемо я руками копирую текст JSON , то все работает.
Если я получаю по URL в конце добавляются лишние пробелы, если их убрать в Мемо руками, все работает. Если использовать Trim то ошибка.
Не могу понять в чем дело.
Вывел три Лейбла, синяя просто из урл, красная трим(урл), желая из другого мемо, в которое вставил руками текст. Всю голову уже сломал..