ClientSocket, ServerSocket - проблема с передачей сообщения

[Karateka]

Не могу понять в чем проблема. Передаю серверу сообщение, он его принимает и выдает в поле Memo кракозябры, помогите, по возможности объясните пожалуйста. На скрине показаны эти кракозябры.

Вот код:
Client

unit ClientUnit;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;
 
type
  TForm1 = class(TForm)
    Client: TClientSocket;
    log: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ClientRead(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Client.Socket.SendText(Edit1.Text);
end;
 
procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
 Log.Lines.Add(Socket.ReceiveText);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 Client.Open;
 client.close;
end;
end.

Server

unit ServerUnit;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;
 
type
  TForm1 = class(TForm)
    Server: TServerSocket;
    Log: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure ServerClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure ServerClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Server.active:=true
end;
 
procedure TForm1.ServerClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
 Log.Lines.Add('Подключился клиент с IP адресом '+Socket.RemoteAddress);
end;
 
 
procedure TForm1.ServerClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 Log.Lines.Add('Клиент '+socket.RemoteAddress+' отключился от сервера.');
end;
 
procedure TForm1.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
 str:string;
 i:integer;
begin
 str:=Socket.ReceiveText;
 log.Lines.Add(str);
 
   for i:= 0 to Server.Socket.ActiveConnections -1 do
      Server.Socket.Connections[i].SendText(str);
 
end;
 
end.

[Karateka]

Мучаюсь, мучаюсь ничего не помогает. Кстати даже когда пределываю чужие программы клиент-сервер, тоже самое и с ними происходит, хотя они в начале работают нормально и передают текст, и правильно его отображают. Вот еще скрин:

[Stilet]

string попробуй заменить на ansistring.
А вообще рекомендуется INDY ибо TServerSocket слегка устарел. Его даже как-то из Делфи пытались вывести, но видимо облом.

[Karateka]

Сообщение от Stilet

string попробуй заменить на ansistring.
А вообще рекомендуется INDY ибо TServerSocket слегка устарел. Его даже как-то из Делфи пытались вывести, но видимо облом.

Заменил на ansistring, всё-равно не помогает. Думаю может переустановить RAD Studio.

[Delphi_ProGer]

Сообщение от Karateka

Заменил на ansistring, всё-равно не помогает. Думаю может переустановить RAD Studio.

Не поможет, IMHO.

[саша40]

Попробуй компоненты Indy: idTCPClient и idTCPServer

[Karateka]

Все-таки решил удалить RAD 2009, заменил на RAD XE2. Все работает без глюков. Тему можно закрывать. Всем спасибо, что удили внимание моей проблеме))