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

Помогите плз....   Найти похожие ветки 

← →
End ©   (2002-03-26 07:51) [0]

Мастера помогите....
Долго мучаюсь над этой прогой!!!
Смысл в том, что на 1122 порту висит Server
который при подключении к нему выдает приветственное сообщение...Типа "Hello World!";
Имеется мой сканер компьютеров который ищет его, в нем и проблем..
Вот код сканера:

( cln: TClientSocket;)


for i:=strtoint(beg.Text) to strtoint(ed.Text) do
begin
cln.Host:=(edit1.Text+"."+edit2.Text+"."+edit3.Text+"."+inttostr(i));
cln.Active:=true;
memo1.Lines.Add("On "+cln.Host+" --> "+rt);
cln.Active:=false;
end;
end;

Она сервер находит только после второго нажатия, а после первого выдает
что ничего не найдено, а после второго находит!!!
Но после этого, он выдает приветствие в любом случае даже если сервера
уже и нет, да и на любом компьютере выдает!!!!!!!!!!!!!!

АХ ДА !!

procedure TForm1.clnError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
errorcode:=0;
end;

procedure TForm1.clnRead(Sender: TObject; Socket: TCustomWinSocket);
begin
rt:=cln.Socket.ReceiveText;
end;

---

← →
panov ©   (2002-03-26 08:41) [1]

for i:=strtoint(beg.Text) to strtoint(ed.Text) do
begin
cln.Host:=(edit1.Text+"."+edit2.Text+"."+edit3.Text+"."+inttostr(i));
cln.Active:=true;
memo1.Lines.Add("On "+cln.Host+" --> "+rt);
cln.Active:=false;
end;
end;

Это неправильно.

после cln.Active := True; при подключении к серверу возникает событие OnClientConnect. Вот в обработчик этого события и нужно вставлять memo1.Lines.Add("On "+cln.Host+" --> "+rt);

---

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

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



Память: 0.45 MB
Время: 0.009 c