да собственно кода немного:
прием данных сервером:
Цитата:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
a:=ServerSocket1.Socket.ReceiveText;
if a = '1' then
begin
Label1.Caption := 'Ок';
end;
end;
|
Отправка данных клиентом:
Цитата:
procedure TForm1.Button3Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText(Edit2.text);
end;
|