Троянский конь из книги Фленова

[demiancz]

Вроде помогло. проверил правда на одном компе. Одновременно запустил сервер и клиент. Нажал на кнопку - ничего, потом еще раз нажал и заработало. Получается что тормозит почему то. С первого нажатия на кнопку не получается. Как решить эту проблему?
И второй вопрос. Что лучше использовать Indy (которые работают во втором примере) или Соккеты (которые описывает Фленов)?

[Aliens_wolfs]

Indy вес большой имеют, если хотите вес меньше то лучше неиспользовать компоненты, а писать руками о чем тоже упоминал в этой книге Фленов.

WinSock хорошо использовать. Еще обратите внимание на Synapse


Добавьте на сервер Мемо и посмотрите что с переменной S приходит возможно там иногда лишние символы приписываются

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
 S: AnsiString;
begin
 s:= Socket.ReceiveText;
 Memo1.Lines.add(s); //будет видно ваши комманды посланные с клиента

[demiancz]

Спасибо. Но теперь другая проблема. С первого нажатия на кнопку ничего не происходит. Нажимаю один раз - ничего, потом второй раз - код выполняется, опять нажимаю - ничего, опять - работает. Тоесть работает через один клик.
Код сервера

procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.active:=true;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
serversocket1.active:=false;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
 S: AnsiString;
begin
 s:= Socket.ReceiveText;
 Memo1.Lines.add(s);
end;

Код клиента

procedure TForm1.Button1Click(Sender: TObject);
begin
clientsocket1.Host:=edit1.text;
clientsocket1.active:=true;
clientsocket1.Socket.SendText('test');
clientsocket1.active:=false;
end;

[Aliens_wolfs]

Ваша проблема в том что вы делаете постоянно подключение и шлете сообщение, а потом отключение от сервера, так ненужно делать сообщение неуспевает дойти до сервера, так как вы отключаетесь от него.
Лучше сделайте следующее, добавьте в клиент 2 кнопки, одна для подключения к серверу и отключения от него, вторая для отправления сообщений, и нажимайте ее сколько угодно, должны сообщения сразу без потерь приходить на сервер.

// С помощью этой кнопки вы делаете подключение к серверу и отключение от него
procedure TForm1.Button1Click(Sender: TObject);
begin
clientsocket1.Host:=edit1.text;
// Если подключение неактивно то делаем его активным и меняем название кнопки то что следующиее ее нажатие будет отключение
if not clientsocket1.active then
Begin
Button1.caption:= 'Disconnect';
clientsocket1.active:=true;
end
else
// Если подключение активно то делаем его неактивным и меняем название кнопки то что следующиее ее нажатие будет подключение
begin
Button1.caption:= 'Connect';
clientsocket1.active:=false;
end;

end;

// с помощью этой кнопки шлем сообщение
procedure TForm1.Button2Click(Sender: TObject);
begin
clientsocket1.Socket.SendText('test');
end;

[demiancz]

Спасибо!!!