Client_Server

← →
Yot (2003-09-10 13:11) [0]

Мастера помогите !!!!!!!
Пишу клиент серверное приложение при соединении с клиентом сервер должен послать сообщение клиенту о соединении при этом на серверного приложения возникает ошибка. ПОМОГИТЕ.

Вот код :

procedure TForm1.Button1Click(Sender: TObject);
begin
Server.Active:=True;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Server.Active:=False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Client.Host:=Edit1.Text;
Client.Active:=True;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Client.Active:=False;
end;

procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var s:String;
begin
s:=Client.Socket.ReceiveText;
if s="hi" then MessageBox(Application.Handle,"Connection OK","Info",MB_OK);
Client.Active:=False;
end;

procedure TForm1.ServerClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Server.Socket.SendText("hi"); - Тут возникает ошибка !!!!!
Server.Active:=False;
end;

← →
panov (2003-09-10 13:15) [1]

procedure TForm1.ServerClientConnect(Sender: TObject; Socket: TCustomWinSocket); begin Server.Socket.SendText("hi"); - Тут возникает ошибка !!!!! Server.Active:=False; end;

procedure TForm1.ServerClientConnect(Sender: TObject; Socket: TCustomWinSocket); begin Socket.SendText("hi"); - Тут возникает ошибка !!!!! Server.Active:=False; end;

← →
Yot (2003-09-10 13:25) [2]

НЕ получается

← →
Digitman (2003-09-10 13:55) [3]

> НЕ получается

что ?

← →
Deff (2003-09-10 22:51) [4]

Такое бывает... Просто сделай перед
Socket.SendText("hi");
такое:
sleep(200);

← →
Digitman (2003-09-11 08:13) [5]

> Deff

это еще зачем ? где это документировано ?

← →
Verg (2003-09-11 12:33) [6]

Начинать передавать данные в сокет можно только после получения события
ServerSocket1ClientWrite(Sender: TObject; Socket: TCustomWinSocket);

До этого возникают события Connect и Accept.

Вот поэтому создается впечатление (обманчивое!), что sleep(2000) в Connect-е помогает.

← →
Deff (2003-09-11 13:31) [7]

Да ,верг, вы правы.
Однако, sleep(200) выручал меня всегда, во всяком случае, в локалке...

← →
Digitman (2003-09-11 13:48) [8]

> Deff

стоит только чуть измениться программно-аппаратной конфигурации твоей "локалки" - и твои sleep(200) коту под хвост..

равносильно тому что подстроившись по своим наручным часам под обычный вроде бы интервал движения электрички, ты рано или поздно опоздаешь на нее

← →
Verg (2003-09-11 13:57) [9]

> Однако, sleep(200) выручал меня всегда, во всяком случае,
> в локалке...

Ну что ж, удачи.

Client_Server Найти похожие ветки