[JackRu]

Вот написал кнопочку, которая будет сканировать порты ... Правда при проверке, пишит что порты закрыты... Толи я что-то намудрил, толи на самом деле порты закрыты ...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm3.Button3Click(Sender: TObject); var i:Integer; ip:String; begin ip:='127.0.0.1'; for i:=79 to 81 do begin TcpClient1.RemotePort:=IntToStr(i); TcpClient1.Open;   if TcpClient1.Connected then Memo1.Lines.Add(ip+' '+IntToStr(i)+' open')   else Memo1.Lines.Add(ip+' '+IntToStr(i)+' close')   end; TcpClient1.Close; end;

Admin: Для оформления кода пользуемся тегом CODE.

[s0Creator]

А где RemoteHost ?

[JackRu]

Сообщение от s0Creator

А где RemoteHost ?

Т.е. нужно чтобы было так ?

Код:

1 2 3 4 5 6

... begin TcpClient1.RemoteHost:=ip; TcpClient1.RemotePort:=IntToStr(i); TcpClient1.Open; ...

[s0Creator]

У Вас Так получилось?

[JackRu]

Сообщение от s0Creator

У Вас Так получилось?

Теперь пишит, что порты открыты, правда пришлось ставить BlockMode - bmBlocking , что он блокирует так и не понил