Всем привет. Есть 2 программы: одна заливает обновление на сервер, другая - скачивает. На сервер заливается само обновление (exe-шник) и json-файл с метаифнормацией с помощью скрипта WinSCP.
Структура json такая:
{"version":"1.0.20.0",
"cdate":"17.07.2017",
"file":"Setup_System.exe",
"changes":["Изменили дизайн","исправили ошибки","и т.д."]}
Поле Changes это изменения в новой версии.
На сервер заливается нормальный json (в кодировке ANSI), все читабельно, а когда получаю json с сервера, то в массиве changes кракозябры.
К серверу подключаюсь через TIdHttp.
Создание json на клиенте:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
function TForm1.SaveToJson(): boolean;
var
JSONObject: TJSONObject;
Pair: TJSONPair;
JsonArray: TJSONArray;
S: TStringList;
i: integer;
begin
S := TStringList.Create;
try
Result := true;
JSONObject := TJSONObject.Create;
Pair := TJSONPair.Create('version', currentVersion);
JSONObject.AddPair(Pair);
Pair := TJSONPair.Create('cdate', DateToStr(dtpCurrentDate.DateTime));
JSONObject.AddPair(Pair);
Pair := TJSONPair.Create('file', GetFileName());
JSONObject.AddPair(Pair);
JsonArray := TJSONArray.Create();
for i := 0 to mmoWhatsNew.Lines.Count - 1 do
begin
if Length(mmoWhatsNew.Lines[i]) > 0 then
JsonArray.Add(mmoWhatsNew.Lines[i]);
end;
JSONObject.AddPair('changes',JsonArray);
S.Add(JSONObject.ToString);
S.SaveToFile(pathToUploader + 'release\' + jsonFile, TEncoding.ANSI);
S.Free;
JSONObject.Destroy;
end;
Чтение json-а:
1.
2.
3.
4.
5.
6.
json := Connect.Get(ServiceURL);
JsonMeta := TJSONObject.ParseJSONValue(TEncoding.ANSI.GetBytes(json), 0) as TJSONObject;
Distrib := jsonMeta.GetValue('file').Value;
CDate := jsonMeta.GetValue('cdate').Value;
Changes := jsonMeta.Get('changes').JsonValue as TJSONArray;
З.Ы. Читал другие темы на этом форуме и вообще в инете искал, так и не смог разобраться в чем дело/
