Tes TCP port komputer mengunakan Delphi 7

Tes TCP port komputer mengunakan Delphi 7

Tes Tcp port mengunakan delphi 7 ini saya mengunakan "indy client" yang "TCP" pada contoh ini ip dan port tcp yang di Tes Sudah di ketahui hanya saya mengujiapakah port tcp nya terbuka atau tidak , berikut contoh nya :

sumber ilmu dari : http://www.fredshack.com/docs/indy.html

buat form seperti dibawah:

 

Sedangkan skrip program dibawah ini, hanya masuk pada button sama tambahkan "IdException" pada Uses

uses [.......], IdException;   

....

....

.....

........

procedure TForm1.Button1Click(Sender: TObject);

begin

        IdTCPClient1.Host := '10.10.1.27';//<--- ip computer yang di periksa
        IdTCPClient1.Port := 1888; //<--- port computer yang di periksa
        try
            try
                IdTCPClient1.Connect(2000);
                ShowMessage('Port Terbuka');
            finally
                IdTCPClient1.Disconnect;
            end;
        except //Failed during transfer
            on E: EIdException do begin
                ShowMessage('Port tertutup: ' + E.Message);
            end;
            on E: Exception do begin
                ShowMessage('Port Tertutup: ' + E.Message);
            end;
        end;
end;

Jika sewaktu di jalankan aplikasinya dari program delphi 7 langsung (F9) biasanya sewaktu di klik button nya jika ip nya/port nya tertutup akan ada notice itu tidak apa apa , kalian bisa coba jalan kan langsung dari  aplikasi yang sudah jadi nya (... exe )nya

SHARE

Author

Hi, Its me Hafeez. A webdesigner, blogspot developer and UI/UX Designer. I am a certified Themeforest top Author and Front-End Developer. I'am business speaker, marketer, Blogger and Javascript Programmer.

• 
• 
• 
• 
•