Текущий архив: 2005.03.13;
Скачать: CL | DM;
Вниз
Поиск сервера Найти похожие ветки
← →
Raider © (2005-01-09 02:30) [0]Прива всем. Тут такая проблема, ни как не могу сделать прогу типа поиск своего сервера в одном диапазоне (т.е 0..254) использую(TClientSocket) вот исходник:
procedure TfrmSearchServ.btnFindServerClick(Sender: TObject);
var
I: Integer;
StartIP: Integer;
FinalIP: Integer;
begin
StartIP:= StrToInt(edtStart.Text);
FinalIP:= StrToInt(edtFinal.Text);
for I:= StartIP to FinalIP do
begin
Client.Port:= // Порт неважно какой
Client.Address:= "192.168.0." + IntToStr(I);
Client.Open;
if Client.Socket.Connected = True then
begin
memo1.Lines.Add(Client.Socket.RemoteAddress);
Client.Close;
end;
end;
end;
P.S.
Помоему это из за того что слишком быстро цикл прогоняется, помогите кто может.
← →
Piter © (2005-01-09 02:38) [1]Ты наверняка используешь неблокирующий режим. В этом случае факт установки соединения отслеживается возникновением события OnConnect
Страницы: 1 вся ветка
Текущий архив: 2005.03.13;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.049 c
