+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكنني فحص البورتات المفتوحة في جهازي (/showthread.php?tid=2970)
الصفحات:
1
2
كيف يمكنني فحص البورتات المفتوحة في جهازي - fhol - 04-04-2011
السلام عليكم
كيف يمكنني فحص البورتات المفتوحة في جهازي
و هل يمكن ذلك من دون إستعمال أي مكون
و شكرا
كيف يمكنني فحص البورتات المفتوحة في جهازي
و هل يمكن ذلك من دون إستعمال أي مكون
و شكرا
كيف يمكنني فحص البورتات المفتوحة في جهازي - محمد عبد العزيز - 04-04-2011
وعليكم السلام ورحمة الله
مكونات دلفي كافية دون استخدام مكونات اخرى (التي ربما تسهل عليك أكثر)
حسب المنفذ Port ووضيفته، جرب الاتصال به ان نجح الاتصال فهو مفتوح!
كيف يمكنني فحص البورتات المفتوحة في جهازي - fhol - 04-04-2011
لم أقهم يا أخي لاني مبتدأ في البرمجة و جزاك الله خير
كيف يمكنني فحص البورتات المفتوحة في جهازي - محمد عبد العزيز - 04-04-2011
اذن اترك الامر الأن وعد اليه عندما تتقدم البرمجة
كيف يمكنني فحص البورتات المفتوحة في جهازي - fhol - 04-04-2011
يا أخي شخصيا فكرة التأجيل لا أعرفها و الحمد لله لدي إرادة قورية و إصرار و صبر و الحمد لله و لن أجل عمل اليوم الى الغد مهما كانت الظروف
المرجوا التوضيح اكثر فلم أفهم من قولك : "حسب المنفذ Port ووضيفته، جرب الاتصال به ان نجح الاتصال فهو مفتوح"؟
كيف يمكنني فحص البورتات المفتوحة في جهازي - محمد عبد العزيز - 04-04-2011
حسنا
أولا هل تعرف معنى منفذ ؟
ثانيا هل تعرف كيف تتصل/تستخدم منفذ معين ؟
كيف يمكنني فحص البورتات المفتوحة في جهازي - fhol - 04-04-2011
المنفذ هو البورت و لكي يتم الاتصال يجب توفر الايبي على العموم اعتقد اننا سنستعمل ايبي 127.0.0.1
و سنستخدم ShellApi في قائمة uses . و ربما استخدام WinSock
هذا ما اعتقد و كفكرة إبتدائية متواضعة و العلم لله
كيف يمكنني فحص البورتات المفتوحة في جهازي - kachwahed - 04-04-2011
Port Scanner مثال جاهز لما تبحث عنه، ألق نظرة:
http://www.delphi4arab.net/forum/showthread.php?tid=1778
هناك حد أدنى لفهم الكود.
كيف يمكنني فحص البورتات المفتوحة في جهازي - yassine_hell - 05-04-2011
جرب مع هذا الكود
استعملت مكون 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;كيف يمكنني فحص البورتات المفتوحة في جهازي - fhol - 05-04-2011
اخي yassine_hell هل يمكنك ان ترفق لي المكون في المرفقات و سأكون لك من الشاكرين