Как проверить открыты ли порты x на своей машине

← →
SamAlex (2005-08-19 08:14) [0]

привет всем Как проверить открыты ли порты x на своей машине с помощью delphi?

← →
pOLYmORph © (2005-08-19 08:22) [1]

напиши сканер портов

← →
SamAlex (2005-08-19 08:38) [2]

написал не работает говорю проверить хост 127.0.0.1 а он молчит еслиесть код пришлите плиз

← →
BiN © (2005-08-19 09:12) [3]

Получить список TCP-соединений на локальной машине можно с помощью GetTcpTable.

← →
XProger © (2005-08-19 10:07) [4]

http://XProger.mirgames.ru/ - XScanner

← →
OldNaum © (2005-08-19 10:25) [5]

глупости какие-то, имхо =) вопрос задан таким образом, что тут просто делается все =) имеешь массив портов. в цикле перебирая массив портов, пытаемся "открыть" сокет по указаному порту, соответственно обрабатывая ошибку, которая возникает в случае наличия уже открытого порта (#16060 вроде бы, константы не помню, юзай F1). вот и все проблемы решаются.

З.Ы. Если нужно действительно сканер портов, то уже и решения другие )

← →
Nes © (2005-08-19 14:43) [6]

Тебе нужно проверить парочку нужных портов или все?

← →
Nes © (2005-08-19 14:53) [7]

Конечно не летает со скоростью света, но открытые порты выдаёт...
procedure TForm1.Button1Click(Sender: TObject);
begin
tcpclient1.RemotePort:=inttostr(spinedit1.Value);
tcpclient1.RemoteHost:=edit1.Text;
memo1.Lines.Add("It may take some time...");
tcpclient1.Open;
if tcpclient1.Connected then memo1.Lines.Add(edit1.Text+":"+inttostr(spinedit1.Value)+" opened") else begin
memo1.Lines.Add(edit1.Text+": "+inttostr(spinedit1.Value)+" closed")
end;
tcpclient1.Close;
end;

← →
SamAlex (2005-08-22 06:08) [8]

Nes ©
Я написал один в один такойже код не работет я не могу понять почему:(((

← →
BiN © (2005-08-22 09:40) [9]

Для военных -) повторяю: Список TCP-портов можно получить вызовом одной функции. см. [3].

← →
AbrosimovA (2005-08-23 08:30) [10]

procedure TForm1.Scan; var i:word; begin tcpclient1.RemoteHost:=edit3.text; for i:=StrToInt(Edit4.Text) to StrToInt(Edit5.Text) do begin Application.ProcessMessages; if Stop then begin Stop:=false; Box1.Caption:=" Сканирование портов "; Exit; end; Box1.Caption:=" Сканирование портов: "+inttostr(i)+" "; tcpclient1.RemotePort:=IntToStr(i); tcpclient1.Connect; if tcpclient1.Connected then listbox1.Items.Add("Найден порт: "+IntToStr(i)); end; end;

← →
Fay © (2005-08-23 09:09) [11]

2 OldNaum © (19.08.05 10:25) [5]
А "массив портов" - не глупость?

← →
SamAlex (2005-08-24 10:44) [13]

спасибо огромное увожаемые мастера

← →
ДосЯ (2005-08-24 17:23) [14]

>127.0.0.1

этот ip зарезервирован за loop-девайсом и поэтому может не работать так листинеры Вешают на внешнии IP

2 SamAlex (24.08.05 10:44) [13]
Тогда уж
спосибо огромное увожаемые мостера
8)

Как проверить открыты ли порты x на своей машине Найти похожие ветки