Поиск сообщества

Здравствуйте. Немного предыстории. Нужно соорудить клиент-сервер. Клиент на Android, сервер на Windows. Собственно перебираю варианты. 1. Сделал с помощью DataSnap. Работает. Но очень громоздко и не понятно. 2. Tethering. Так и не смог реализовать обмен данными между сервером и клиентом типа запрос-ответ. 3. IdTCPClient, IdTCPSever. Раньше (D7) опыт работы отрицательный, но в FMX, видимо, альтернативы нет. Так что сейчас предварительно реализую простой диалог запрос-ответ. Причем все вроде работает. И кода немного и быстро. НО. Уперся в кодировку. На клиенте (Android) не получается прочитать кириллицу. Сначала пробовал общаться Read, Write и передавать просто строки. Пробовал всякие индийские компоненты для кодировки. Но без понимания ничего и не получилось. В интернете где-то наткнулся на предложение передавать потоками. Реализовал. Стало лучше, но проблема с кодировкой не пропала. Скажем так, эта проблема уменьшилась вдвое. На стороне сервера все ОК. На стороне клиента либо знаки "????", либо ромбики с вопросами, либо ошибка "No mapping for the unicode character exists in the target multi-byte code page". Это я бессистемно перебирал варианты кодировок. К сожалению до сих пор так и не понимаю эти перекодировки. Вернее не так. Не понимаю откуда и куда идут какие кодировки. В общем помогите пожалуйста советом или кодом. Ниже код с которым экспериментирую. (код не большой) Сервер procedure TForm1.IdTCPServerExecute(AContext: TIdContext); var s : TStringStream; begin s := TStringStream.Create; mem.Lines.Add(AContext.Connection.Socket.Binding.PeerIP); AContext.Connection.IOHandler.ReadStream(s); s.Position := 0; mem.Lines.Add(Utf8ToAnsi(s.ReadString(s.Size))); s.Free; s := TStringStream.Create; s.WriteString('И тебе привет');// And You, Hi с этим все нормально, проблема только с русскими буквами s.Position := 0; AContext.Connection.IOHandler.Write(s,s.Size,true); //здесь s.Size = 13. в 26 никак не получается превратить, может быть тут что-то? s.Free; end; Клиент procedure TfrmMainClient.btn1Click(Sender: TObject); var s:TStringStream; begin s := TStringStream.Create; try IdTCPClient.Connect; if IdTCPClient.Connected then mem.Lines.Add('Есть контакт с сервером ' + IdTCPClient.Socket.Binding.PeerIP); s.WriteString('Привет'); s.Position := 0; IdTCPClient.IOHandler.Write(s, s.Size, true);//здесь заметил, что s.Size = 12, похоже на unicode s.Clear; IdTCPClient.IOHandler.ReadStream(s); s.Position := 0; Mem.Lines.Add(s.ReadString(s.Size)); //ошибка здесь finally IdTCPClient.Disconnect; if Assigned(s) then s.Free; end; end; Этот код приводит на клиента к ошибке "No mapping for the unicode character exists in the target multi-byte code page". На сервере сообщение "Привет" видно нормально. Помогите, кто чем может. ЗЫ. Тему "Как Получить текст по TCP (Indy) в нужной кодировке?" смотрел. Но либо она не актуальна (инди уже изменился), либо я не смог правильно понять. По крайней мере пробовал использовать это в самом начале, когда пытался передавать строки напрямую. В указанном коде IIdTextEncoding не представляю куда и как вставить. зы2: Извините. Пишу на Delphi 10.2. Indy 10.6.2(в комплекте с Delphi). Windows 10. Android 4 и 5

Пытаюсь скачать XML с курсами валют с cbr.ru. Получаю ошибку Project raised exception class EEncodingError with message 'No mapping for the Unicode character exists in the target multi-byte code page'. Как исправить? //aUrl = http://www.cbr.ru/scripts/XML_daily.asp function GetXML(aURL: string): String; var Http: THTTPClient; Ss: TStringStream; begin Result:=''; Http:=THTTPClient.Create; try Ss:=TStringStream.Create('', TEncoding.UTF8); Http.Get(aURL,ss); Result:=Ss.DataString; // тут ошибка except end; Http.Free; end;

Доброго всем дня! У меня в самый неподходящий момент возникла следующая проблема: Есть приложение для Win и Mac. Работает с SQLite (Через FDQuery). Естественно, в базе куча данных с кириллицей. Так вот, на Win - все нормально, на одном Mac(10.10) - тоже все хорошо. Попробовал поставить на второй Mac(10.9.5) - b и вот там уже начались проблемы с кодировкой. Причем, читает из таблицы S := Query.FieldByName('Title').AsString; //Без проблем а вот при записи в таблицу Query.ParamByName('Title').AsString := 'Заголовок'; В таблицу записывается '????????' (Причем именно запись идет неправильно). При подключении к базе Указываю, что StringFormat=Unicode. Может кто-то сталкивался с таким уже? Есть подозрения, что на 10.9.5 какая-то старая dylib, которая неправильно работает с кириллицей. тогда, наверное, нужно подключать свою к приложению, но опять же, где ее взять и как подключить?

Всем приятного времени суток-столкнулся собственно с проблемой при загрузке файла на сервер ответ выдается в кодировке ISO-8859-1, которая в программе естественно не воспринимается. TStringList *SL2= new TStringList; SL2->Clear(); OpenDialog1->Execute(); TIdMultiPartFormDataStream *PostFile= new TIdMultiPartFormDataStream; PostFile->Clear(); PostFile->AddFormField("FileName",ExtractFileName(OpenDialog1->FileName)); PostFile->AddFile("Filedata",OpenDialog1->FileName); PostFile->AddFormField("Upload","Submit Query"); SL2->Text=HTTP1->Post("http://...", PostFile); Memo1->Text=SL2->Text; PostFile->Free(); SL2->Free(); HTTP1->Request->ContentType="application/x-www-form-urlencoded"; Отсюда два вопроса: есть ли возможность штатными средствами перекодировать ISO-8859-1 в UTF-8, или как-то изменить кодировку HTTP1->Request->ContentType="multipart/form-data; boundary= --"; запрос веб-браузера Запрос IdHTTP Пример ответа сервера Можно конечно сделать запрос на онлайн сервис - но как -то это