Форум: "Сети";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];
ВнизПомогите плз.... Найти похожие ветки
← →
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 вся ветка
Форум: "Сети";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c