Сканер портов

[One.Love]

Вот через TCP Client у меня сканируются все порты и виндовозовские и фтп и веб сервера все сканит, вот код:

var
i:Integer;
ipstr:String;
begin
ipstr:='127.0.0.1';
//Запрашиваем адрес компьютера.
if not InputQuery('Внимание', 'Введи IP-адрес', ipstr) then exit;
//Запускаю цикл
for i:=StrToInt(Edit1.Text) to StrToInt(Edit2.Text) do
begin
//Устанавливаем порт
TcpClient1.RemotePort:=IntToStr(i);
//Пытаемся его открыть
TcpClient1.Open;
//Если удалось, то сообщаем об этом
if TcpClient1.Connected then
begin
Memo1.Lines.Add(IntToStr(i)+' открыт');
//Закрываем порт
TcpClient1.Close
end
end;
end;

, а подскажите плиз как мне просканировать Порты Server или Client Socket`ов плиз

[Stilet]

ТОчно так же, если конечно этот код сканирует, просто для обычных сокетов нужно еще свойство Port устанавливать.

Хотя чет тут сканирования я не вижу...

[One.Love]

короче он сканирует обычные виндовозовские порты.
А вообще Client Socket может сканировать другой Client Socket? Помойму между ними не произойдет соединения?

Выложи если не сложно код как ето сделать?

[Stilet]

Сначала поясни что ты назвал "сканированием портов"
Если это просто пробивка на открытость то тут и пинг простой подойдет

[One.Love]

я ввожу порт (диапазоном) от такого до такого и IP-Адрес (диапазоном) от такого до такого и он должен мне показать в диапазоне от таких то таких то IP адресов запущены в диапазоне от ваших портов такие то такие то порты
Вот и все что мне надо.