Кодировка в сообщениях между клиентом-сервером.

[Willer55]

Доброго времени суток.

Сервер - Delphi;
Клиент - Flash;

Прблема в следующем.

С клиента отправляю строку "Test". А сервер получает кракозябры(佌彇义ㄻ㘹㔱㤴਷leBuffer). Думаю что проблема с кодировкой, но не как не могу ее решить.

на клиенте код который посылает:
socket.writeUTFbytes("Test");

на сервере принимаю
str := Socket.ReceiveText.

Хотя когда посылаю с сервера клиенту, все проходит нормально.

Использую Delphi 2009 и Flash Pro CS5.

[Willer55]

Нашел решение проблемы.

Проблема связанна, как я и думал с кодировкой. Дело в том, что Flash посылает сообщения с кодировкой Utf-8, а на Delphi 2009 и 2010 кодировка Utf-16 и что бы все прочитать нормально, надо сделать маленькую махинацию.

var
 msg : string;
 A_msg : AnsiString;

begin
   SetLength(A_msg,Socket.ReceiveLength);
  SetLength(A_msg,Socket.ReceiveBuf(Pointer(A_msg)^,Length(A_msg)));
  msg := A_msg;
  ShowMessage(msg); // проверяем, что получили
end;

Тогда все будет правильно отображаться.