На форуме както раз прозвучало вот такое:
Quote Задание разработать два приложения: «Сервер» и «Клиент».
По нажатию «кнопки» на «Клиенте» содержание первой строки поля «Memo» «Сервера» должно отобразиться в «Edit» «Клиента»
Вот собственно и решение... Создаём приложение сервер,на него кидаем Button,ServerSocket и Memo...
Code
procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
s := InputBox('Старт сервера','Введите адресс порта:','1001');
if s = '' then
Exit;
ServerSocket1.Port := StrToInt(s);
ServerSocket1.Open;
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var s: string;
i: Integer;
begin
s := Socket.ReceiveText;
if Copy(s,1,2) = '#M' then begin
ServerSocket1.Socket.Connections[0].SendText(Memo1.Lines.Strings[0]);
end;
Создаём клиент, кидаем туда 2 Button и Edit и не забываем про ClientSocket...
Code
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText('#M');
end;
procedure TForm1.Button2Click(Sender: TObject);
var s: string;
begin
s := InputBox('Соединение с сервером','Введите адресс порта:','1001');
if s = '' then
Exit;
ClientSocket1.Port := StrToInt(s);
ClientSocket1.Open;
end;
procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
Edit1.text := Socket.ReceiveText;
end;
Вот собственно и всё,никакой сложности...Отсылаем запрос от клиента-серверу,а тот в ответ отсылает нужную нам строку... ааа...забыл...у ClientSocke в настройках выставить Host=localhost
| 
