Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.12.2020, 12:45   #1
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,893
Вопрос Передача Unicode через Socket

Доброго времени суток!
Подскажите, пожалуйста, как правильно передать Unicode в Delphi 10.1 Berlin с помощью Socket.
Я пытаюсь передать 日本語
Передача. Точка останова говорит, что в s находится 日本語
Код:
var
  s: String;
begin
  s := '日本語';
  ClientSocket1.Socket.SendText(AnsiString(s));
Приём
Код:
var
  s: String;
begin
  s := String(Socket.ReceiveText);
Соответственно получаю ???

Upd
Только через SendBuf

Последний раз редактировалось Shouldercannon; 13.12.2020 в 11:03.
Shouldercannon вне форума Ответить с цитированием
Старый 15.12.2020, 09:29   #2
BLACK_RAIN
Форумчанин
 
Регистрация: 13.02.2012
Сообщений: 867
По умолчанию

попробуй
Код:
var
  s: String;
begin
  s := UTF8ToString(UTF8Encode(Socket.ReceiveText));
end;
BLACK_RAIN вне форума Ответить с цитированием
Старый 15.12.2020, 20:40   #3
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,893
По умолчанию

Вот
Код:
procedure TFormMain.BSendClick(Sender: TObject);
var
  Arr: TBytes;
begin
  if ClientSocket1.Active then
  begin
    Arr := TEncoding.UTF8.GetBytes(s);
    ClientSocket1.Socket.SendText(AnsiString(Arr));
  end;
end;
 
procedure TFormMain.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  s: String;
begin
  s := UTF8ToString(Socket.ReceiveText);
  EReceiving.Text := s;
end;
Shouldercannon вне форума Ответить с цитированием
Старый 16.12.2020, 15:22   #4
BLACK_RAIN
Форумчанин
 
Регистрация: 13.02.2012
Сообщений: 867
По умолчанию

работает?
BLACK_RAIN вне форума Ответить с цитированием
Старый 16.12.2020, 21:28   #5
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,893
По умолчанию

Цитата:
Сообщение от BLACK_RAIN Посмотреть сообщение
работает?
Да и вполне успешно. Пока ошибок не заметил.
Shouldercannon вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Передача координат используя socket UDP yakimechik C/C++ Сетевое программирование 3 23.11.2015 12:12
Передача Unicode строки по сокетам coNsept Общие вопросы C/C++ 7 08.11.2015 00:42
Передача данных через socket TCP/IP hidalgo C# (си шарп) 1 10.07.2012 19:03
Передача файла по Socket KoBRaAndrey Работа с сетью в Delphi 2 13.11.2009 20:05
Client Server Socket передача информации с помощью потока One.Love Работа с сетью в Delphi 4 15.01.2008 19:06