Сокеты в Delphi 2009

[TzX]

В Delphi 7 создал проект использующий TServerSocket и TClientSocket, он отлично работал. После перехода на Delphi 2009 текст, передаваемый по принципу

PHP код:

 Socket.SendText('текст'); 


на сторону сервера (клиента) стал приходить непонятными символами. Где-то читал что это из-за проблем с кодировкой, и проще перейти на WinSoc, но проект довольно таки большой, и не хотелось бы отказываться от использования данных компонентов. Помогите решить проблему. Заранее спасибо за ответ.

[MalCer]

В Delphi 2009 Unicod, а в 7 версии - ANSI, поэтому вам нужно просто перевести полученный код в ANSI. В гугле полно ответов как это сделать

[TzX]

А может наоборот, перед отправкой в Юникод?

[MalCer]

Текст который отправляете переведите в ANSI

[profi]

Сталкивался с такой проблемой. Мой совет - пользуйтесь WinSock.

[TzX]

ВинСок использовать не могу.

Перед отправкой перекодировал такой функцией

PHP код:

function WideStringToString(const ws: WideString): AnsiString;
var
  l: integer;
begin
  if ws = '' then
    Result := ''
else
  begin
    l := WideCharToMultiByte(CP_ACP,
      WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR,
      @ws[1], -1, nil, 0, nil, nil);
    SetLength(Result, l - 1);
    if l > 1 then
      WideCharToMultiByte(CP_ACP,
        WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR,
        @ws[1], -1, @Result[1], l - 1, nil, nil);
  end;
end; 


Про получении на другой стороне Вылетают китайские иероглифы. Либо функция не работает, либо опять я что-то....

[BOBAH13]

Если память не подводит, то:

1. Простое преобразование и так катит - AnsiString(WideString);
2. Кто мешает отправлять Unicode ? Просто на стороне сервера получайте Unicode, а не ANSI (т.е. обработка приема изменится немного)

Проблема в чем именно ?

[TzX]

2 BOBAH13
Как будет происходить обработка приема если делать всё в Юникоде, пример можно?

2 ALL
При Получении пробовал примерно так

PHP код:

 Clientsay:=Socket.ReceiveText;
 LogMemo.Lines.Add(ANSIString(Clientsay)); 


Теперь в Мемо вместе Иероглифов знаки вопроса

И еще, у меня все переменные типа String, может что то нужно в WideString или UnicodeString в 2009 есть и такие типы данных

[BOBAH13]

1. Если сервер и клиент откомпилированы в Unicode версии Delphi (RAD and etc.)
2.

(ANSIString(Clientsay));

Зачем ?
3. Clientsay - это WideString (ну простой String в Unicode ver.) ?
4. Сам не помню уже, Socket.ReceiveText - возвращает Unicode строку ? Если нет, шлите буфер, и читайте буфер, а не текст.

[TzX]

2.

(ANSIString(Clientsay));

Зачем ?

Хм, Клиент откомпилирован в юникод версии Delphi, вот и была мысль, что шлет юникод.

3. Clientsay - это WideString (ну простой String в Unicode ver.) ?

Просто String, пробовал WdieString - итог один

4. Сам не помню уже, Socket.ReceiveText - возвращает Unicode строку ? Если нет, шлите буфер, и читайте буфер, а не текст.

Вот на счет того в какой кодировке с сокета забирает не знаю....