如何測試 IP 中的 PORT 是否開啟 ?? 例如: 192.168.1.100:80 如何測試PORT 80 是否開啟了 ??

Try to connect  < class="code"> procedure TForm1.Button1Click(Sender: TObject); begin with TcpClient1 do begin Close; RemoteHost := '192.168.1.100'; RemotePort := '80'; Open; end; end; procedure TForm1.TcpClient1Connect(Sender: TObject); begin ShowMessage('port 80 opened'); end; procedure TForm1.TcpClient1Error(Sender: TObject; SocketError: Integer); begin ShowMessage('port 80 closed'); end;

好像不行呢 ? 有沒有完整例子下載 ??

這兒有個 port scan 的例子: http://www.1delphistreet.com/vb/scripts/ShowCode.asp?txtCodeId=571&lngWId=7    --- 每個人都是一本書

Class TClientSocket not found. 是不是少了一個組件呢 ? 如何解決 ?

你好： uses ScktComp;    

這句已經有了, 但還是這個錯誤訊息, 我想是不是我的 Delphi 缺了什麼的原因 ?

您是用 Delphi 幾？ 不知是 D6 還是 D7 以後就沒有 TClientSocket 元件了.    --- 每個人都是一本書

我是用 Delphi7 的, 有沒有其它解決方法 ?

參考: http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&oe=UTF-8&th=cb4278d62e690521&rnum=4 小弟修改如下:

uses Winsock;    procedure TForm1.Button1Click(Sender: TObject);
  procedure PortScan(AIP: string; APort: integer);
  var
    data: TWSAData;
    sock: TSocket;
    addr: TSockAddrIn;
    iaddr: TInAddr;
  begin
    try
      if (WSAStartup($0101, data) = 0) then
      begin
        sock := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
        if (sock <> INVALID_SOCKET) then
        begin
          // zero out the addr struct.
          FillChar(addr, SizeOf(TSockAddrIn), 0);
          FillChar(iaddr, SizeOf(TInAddr), 0);              //fill in the internet address
          iaddr.S_addr := inet_addr(PChar(AIP));              //fill in the rest of the address.
          addr.sin_family := PF_INET;
          addr.sin_port := htons(APort);
          addr.sin_addr := iaddr;              // try to connect, if it failes then the port is closed
          if (connect(sock, addr, SizeOf(TSockAddrIn)) = 0) then
          begin
            ShowMessage('Port ' + IntToStr(APort) + ' IS open on ' + AIP);
          end else
          begin
            ShowMessage('Port NOT open ' + IntToStr(APort) + ' on ' + AIP);
          end;
        end else
        begin
          ShowMessage('There was an error creating the socket.');
        end;
      end else
      begin
        ShowMessage('Failed to initialize winsock.');
      end;
    finally
      WSACleanup();
    end;
  end;
begin
  Button1.Enabled := False;
  PortScan('192.168.1.34', 80);
  Button1.Enabled := True;
end;

--- 每個人都是一本書

請問有沒有做好的例子作參考之用 ??

Have you ever tried yourself 

http://delphi.ktop.com.tw/loadfile.php?TOPICID=10507423&CC=234997 --- 奉行寶蘭主義 服從天使領導 保衛各版安全 完成KTop大業

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.