--不多说，直接上代码 procedure TFrmMain.Brand; var   JSONObject, jsonparam: TJSONObject; // JSON类   jsonArray: TJSONArray; // JSON数组变量   i: Integer;   Flag_Do: Boolean;   jsonToSend: TStringStream;   jsonStr,