[UltraBloxX]

Вообщем пробую сделать приложение клиент-сервер в Delphi 2009 на сокетах, тестирую на локалхосте. Клиент с сервером соединяется, а при попытке послать текст (как клиент -> сервер так и наоборот) приходит пустая строка. Что не так?

[Ultras]

покажи процедуры отправки-получения текста

[UltraBloxX]

Код:

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
if Socket.ReceiveText = '12' then ShowMessage('Test Command Arrived')
else
begin
ShowMessage('Arrived data: ' + Socket.ReceiveText);
ClientSocket1.Socket.SendText('Error!');
end;
end;

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
test: string;
begin
if ServerSocket1.Socket.Connected = true then
begin
test := '12';
ServerSocket1.Socket.Connections[0].SendText(test);
end
else
ShowMessage('No connection...');
end;

На клиентсокет приходит строка '?'#0

[Ultras]

а где ServerSocket1.Active := True; и ClientSocket1.Open?

на клиентской стороне:

Код:

  ClientSocket1.Open;
  ClientSocket1.Socket.SendText('test');
  ClientSocket1.Close;

на серверной:

Код:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ShowMessage(Socket.ReceiveText);
end;

и чтобы в ServerSocket1.Active было True;

[UltraBloxX]

Да, Open не было. Но сейчас оба сокета активны и открыты а строка всё равно не приходит...

[Ultras]

попробуй сделать вначале как я показал, будет работать или нет...