Код:
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