Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.116 c
1-1109667772
Димон
2005-03-01 12:02
2005.03.13
Выяснение причины сообщения "A component named . already exists"


1-1109234272
Zhekson
2005-02-24 11:37
2005.03.13
запуск процедур в отдельных потоках


1-1109581838
Vasek
2005-02-28 12:10
2005.03.13
Координаты выделенной ячейки в DBGridEh


1-1109233490
TankMan
2005-02-24 11:24
2005.03.13
Можно ли скомпилировать проект без установленного дельфи?


3-1107902461
TechnoDreamer
2005-02-09 01:41
2005.03.13
Порядок записей в TADODataSet