• Дата реєстрації: 18.09.2014
  • Повідомлень: 99
    • Репутація: 13

Тема: TIdTCPClient кодіровка Delphi XE 7

Я задопомогою TIdTCPClient відправляю повідомлення 'Привіт!!!' на сервер. Сервер отримав повідомлення '??????!!!'. Як зробить щоб текст був правильної кодіровки.

  
  Form1.idtcpclnt1.Host :=127.0.0.1;
  Form1.idtcpclnt1.Port:=12340;
  Form1.idtcpclnt1.Connect;
  Form1.idtcpclnt1.Socket.WriteLn('Привіт!!!');
  Form1.idtcpclnt1.Disconnect;

2 Відповідь від Chemist-i Востаннє редагувалося Chemist-i (16.10.2014 17:01:39)

  • Chemist-i
  • Chemist-i
  • Replace Team
  • Поза форумом
  • Звідки: world wide web
  • Дата реєстрації: 31.10.2012
  • Повідомлень: 3 800
    • Репутація: 2394

Re: TIdTCPClient кодіровка Delphi XE 7

AnsiToUtf8()
[code=pas]
...
Form1.idtcpclnt1.Socket.WriteLn(AnsiToUtf8('Привіт!!!'));
...
[/code]
або навпаки (ящо дельфі>2010, а сервер налаштований на прийом ansi)
Utf8ToAnsi()...

Chemist-i вебсайт

3 Відповідь від Stanislav Stecenko

  • Дата реєстрації: 18.09.2014
  • Повідомлень: 99
    • Репутація: 13

Re: TIdTCPClient кодіровка Delphi XE 7

Непрацює

Form1.idtcpclnt1.Socket.WriteLn(AnsiToUtf8('Привіт!!!'));

4 Відповідь від caballero

  • caballero
  • caballero
  • Користувач
  • Поза форумом
  • Звідки: Харків
  • Дата реєстрації: 25.09.2014
  • Повідомлень: 249
    • Репутація: 111

Re: TIdTCPClient кодіровка Delphi XE 7

ReadLn(TEncoding.ANSI);
WriteLn(S, TEncoding.ANSI);

caballero вебсайт

5 Відповідь від Stanislav Stecenko

  • Дата реєстрації: 18.09.2014
  • Повідомлень: 99
    • Репутація: 13

Re: TIdTCPClient кодіровка Delphi XE 7

Form1.idtcpclnt1.Socket.WriteLn(S, TEncoding.ANSI);

видає ошибку
E2250 There is no overloaded version of 'WriteLn' that can be called with these arguments

6 Відповідь від caballero

  • caballero
  • caballero
  • Користувач
  • Поза форумом
  • Звідки: Харків
  • Дата реєстрації: 25.09.2014
  • Повідомлень: 249
    • Репутація: 111

Re: TIdTCPClient кодіровка Delphi XE 7

значить  дивітся   в  документаціі  там  має  бути  обо  опис  агрументів   або  схожа функція  з  іншими  аргументами.
   або  передавайте  строку   як байти  і   конвертуйте  в  string  і  навпаки  окремо

caballero вебсайт

7 Відповідь від Stanislav Stecenko Востаннє редагувалося Stanislav Stecenko (17.10.2014 17:24:35)

  • Дата реєстрації: 18.09.2014
  • Повідомлень: 99
    • Репутація: 13

Re: TIdTCPClient кодіровка Delphi XE 7

Рішення проблеми!!!
Сервер 

var
  s:string;
.............
s:= AContext.Connection.Socket.ReadLn(IndyTextEncoding_UTF8);

Клієнт

var
  s:string;
.............
Form1.idtcpclnt1.Socket.WriteLn(s,IndyTextEncoding_UTF8);
Подякували: 0xDADA11C7, Torbins2