04-04-2011, 12:26 AM
السلام عليكم
كيف يمكنني فحص البورتات المفتوحة في جهازي
و هل يمكن ذلك من دون إستعمال أي مكون
و شكرا
كيف يمكنني فحص البورتات المفتوحة في جهازي
و هل يمكن ذلك من دون إستعمال أي مكون
و شكرا
delphi4arab منتديات دلفي للعرب
›
منتديات دلفي للعرب التعليمية
›
سؤال و جواب حول دلفي
كيف يمكنني فحص البورتات المفتوحة في جهازي
كيف يمكنني فحص البورتات المفتوحة في جهازي
|
كيف يمكنني فحص البورتات المفتوحة في جهازي
|
04-04-2011, 11:18 AM
وعليكم السلام ورحمة الله مكونات دلفي كافية دون استخدام مكونات اخرى (التي ربما تسهل عليك أكثر) حسب المنفذ Port ووضيفته، جرب الاتصال به ان نجح الاتصال فهو مفتوح!
04-04-2011, 01:59 PM
اذن اترك الامر الأن وعد اليه عندما تتقدم البرمجة 
04-04-2011, 04:01 PM
يا أخي شخصيا فكرة التأجيل لا أعرفها و الحمد لله لدي إرادة قورية و إصرار و صبر و الحمد لله و لن أجل عمل اليوم الى الغد مهما كانت الظروف
المرجوا التوضيح اكثر فلم أفهم من قولك : "حسب المنفذ Port ووضيفته، جرب الاتصال به ان نجح الاتصال فهو مفتوح"؟
04-04-2011, 04:52 PM
حسنا أولا هل تعرف معنى منفذ ؟ ثانيا هل تعرف كيف تتصل/تستخدم منفذ معين ؟
04-04-2011, 06:05 PM
المنفذ هو البورت و لكي يتم الاتصال يجب توفر الايبي على العموم اعتقد اننا سنستعمل ايبي 127.0.0.1
و سنستخدم ShellApi في قائمة uses . و ربما استخدام WinSock هذا ما اعتقد و كفكرة إبتدائية متواضعة و العلم لله
04-04-2011, 10:21 PM
Port Scanner مثال جاهز لما تبحث عنه، ألق نظرة:
http://www.delphi4arab.net/forum/showthr...p?tid=1778 هناك حد أدنى لفهم الكود.
05-04-2011, 10:37 AM
جرب مع هذا الكود
استعملت مكون indy IdTCPClient كود : procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
IdTCPClient1.Host := '127.0.0.1';
IdTCPClient1.ConnectTimeout := 100;
for i := 1 to 300 do
begin
Application.ProcessMessages;
if IdTCPClient1.Connected then
begin
IdTCPClient1.Disconnect;
IdTCPClient1.IOHandler.Free;
end;
IdTCPClient1.Port := i;
try
IdTCPClient1.Connect;
Memo1.Lines.Add('port '+IntTostr(i)+' is open');
Except
Memo1.Lines.Add('port '+IntTostr(i)+' is closed');
end;
end;
end; |
|
|
يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم