Скачать: CL | DM;

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) выручал меня всегда, во всяком случае,
> в локалке...


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.055 c