Помогите плз.... [D6, Win2k]
End © (2002-03-26 07:51:00)
Мастера помогите....
Долго мучаюсь над этой прогой!!!
Смысл в том, что на 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:00) [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);
Наверх 
ЧАТ |
Орешник |
|
