我在我的DataSnap服务器中返回一个字符串响应。 function TServerMethods1.GetImagem(PhotoPath: string): string;
var
...
begin
...
Result := StrEnv.DataString;
end; 这会成功地返回一个包含base64字符串的响应 {"result":["Qk02...."]} 我需要获取result的内容,这是我的base64字符串'Qk02...'。我尝试以TJSONObject形式获取响应,然后使用TJSONObject.Get
我遇到了一个完全出乎我意料的错误,所以我想和你确认一下这是否有意义…… Item := Songs.Items[Index] as TJSONObject;
ThisTrack := Item.Values['track'] as TJSONObject;
if (Assigned(ThisTrack)) then Begin;
End; Songs是TJSONArray,Item和ThisTrack是TJSONObject。 如果Item不包含"track",上面的代码会在第二行抛出ERangeError异常。 这是我第一次看到这一点,我非常确定,我在过
我需要读取fuelTanks的值。在此之前的所有内容都归我所有/事实上,还有更多的条目/,但我不知道如何读取fuelTanks字段。 我当前的代码: procedure TMain.JsonAktStav;
var
JSonObject: TJSonObject;
data: TJSONArray;
JSonValue: TJSonValue;
//*** bJSon is the TByteStream from the previous procedure ***
idx: integer;
begin
JSonObject := TJSonObject.Crea