04-04-2011, 12:26 AM
الصفحات : 1 2
04-04-2011, 11:18 AM
وعليكم السلام ورحمة الله
مكونات دلفي كافية دون استخدام مكونات اخرى (التي ربما تسهل عليك أكثر)
حسب المنفذ Port ووضيفته، جرب الاتصال به ان نجح الاتصال فهو مفتوح!
04-04-2011, 12:37 PM
لم أقهم يا أخي لاني مبتدأ في البرمجة و جزاك الله خير
04-04-2011, 01:59 PM
اذن اترك الامر الأن وعد اليه عندما تتقدم البرمجة
04-04-2011, 04:01 PM
يا أخي شخصيا فكرة التأجيل لا أعرفها و الحمد لله لدي إرادة قورية و إصرار و صبر و الحمد لله و لن أجل عمل اليوم الى الغد مهما كانت الظروف
المرجوا التوضيح اكثر فلم أفهم من قولك : "حسب المنفذ Port ووضيفته، جرب الاتصال به ان نجح الاتصال فهو مفتوح"؟
المرجوا التوضيح اكثر فلم أفهم من قولك : "حسب المنفذ Port ووضيفته، جرب الاتصال به ان نجح الاتصال فهو مفتوح"؟
04-04-2011, 04:52 PM
حسنا
أولا هل تعرف معنى منفذ ؟
ثانيا هل تعرف كيف تتصل/تستخدم منفذ معين ؟
04-04-2011, 06:05 PM
المنفذ هو البورت و لكي يتم الاتصال يجب توفر الايبي على العموم اعتقد اننا سنستعمل ايبي 127.0.0.1
و سنستخدم ShellApi في قائمة uses . و ربما استخدام WinSock
هذا ما اعتقد و كفكرة إبتدائية متواضعة و العلم لله
و سنستخدم ShellApi في قائمة uses . و ربما استخدام WinSock
هذا ما اعتقد و كفكرة إبتدائية متواضعة و العلم لله
04-04-2011, 10:21 PM
Port Scanner مثال جاهز لما تبحث عنه، ألق نظرة:
http://www.delphi4arab.net/forum/showthr...p?tid=1778
هناك حد أدنى لفهم الكود.
http://www.delphi4arab.net/forum/showthr...p?tid=1778
هناك حد أدنى لفهم الكود.
05-04-2011, 10:37 AM
جرب مع هذا الكود
استعملت مكون indy
IdTCPClient
استعملت مكون 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;05-04-2011, 11:43 PM
اخي yassine_hell هل يمكنك ان ترفق لي المكون في المرفقات و سأكون لك من الشاكرين
الصفحات : 1 2