[JackRu]

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

Код:

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 ?

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

Код:

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

[s0Creator]

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

[JackRu]

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

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

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