Слежка за портами локального компьютера

[Terran]

Всем привет! Подскажите, пожалуйста, как можно реализовать в Delphi слежение за портами локального компьютера? К примеру: если кто-то подключится к 139 порту, то как программно об этом узнать и получить IP адрес того, кто подключился и как узнать сколько времени он был подключен?

[uberchel]

Посмотри тут:
http://code.progler.ru/tags/Delphi,%...B5%D1%82%D0%B8

[Квэнди]

Здесь лучше смотреть в сторону pcap и его API

[Terran]

uberchel, я нашёл один примерчик попробую его разобрать.
Квэнди, поясните, пожалуйста, поподробней. pcap - это получается библиотека?

[Квэнди]

http://ru.wikipedia.org/wiki/Pcap
Одна из самых популярных библиотек для низкоуровневого доступа к сетевому стеку windows

[Terran]

Спасибо!!!

[uberchel]

Так можно посмотреть какие порты открыты:

var
 I: Integer;
 Ip: string;
begin
  Ip:= Edit3.Text;
  ListBox1.Clear;
  for I:= StrToInt(Edit1.Text)
  to StrToInt(Edit2.Text) do begin
 TcpClient1.RemotePort:= IntToStr(i);
 TcpClient1.Open;
 if TcpClient1.Connected then
 ListBox1.Items.Add(IntToStr(i) + ' : Открыт');
 TcpClient1.Close;
 end;
end;

[Квэнди]

Так можно посмотреть какие порты открыты:

самый ужасный файрвол после 2-3-й итерации вас заблокирует.