الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

برمجة الشبكات بستخدام الدلفي

بدأه HMAMH في 14 يونيو 2010 · 4 رد · 873 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

بسم الله الرحمن الرحيم

اعضاء المنتدى الكرام لديا سؤال يتعلق بالحصول على عنوان المتصل (client) اي address IP ؟

مثلا انا الان على برنامج الخادم (server) و اتصل بي احد البرامج الموجود عند الزبائن (client) اريد من برنامج

الخادم ان يظهر لي عنوان المتصل و اسم الجهاز المتصل منه وهدا بستخدام المكون indy

لا دعي لشرح عملية الاتصال بين الجهازين ؟

انا عندي مثال على هده الطريقة ولكن بستخدام socket :

للحصول على اسم الجهاز المتصل بي الخادم نستعمل هدا الامر :

ServerSocket1.Socket.Connections.RemoteHost;

للحصول على عنوان الجهاز المتصل بي الخادم نستعمل هدا الامر :

ServerSocket1.Socket.Connections.RemoteAddress

بارك الله فيكم وزادكم علما

تم تعديل هذه المشاركة بواسطة HMAMH في 14 يونيو 2010 في 13:18

#2

السلام عليكم ورحمة الله وبركاته

اين عباقرة هدا المنتدى ؟

نرجو منكم المشاركة في هدا الموضوع الدي قلى وان وجته في المواقع والمنتديات العربية ؟

#3

السلام عليكم ورحمة الله وبركاته

اخي / اختي الكريم HMAMH نحن هنا دائما

تفضل الحل لمشكلتك :

1- للحصول على عنوان المتصل (client) باستخدام المكون indy استعمل هدا الكود :

AContext.Connection.Socket.Binding.PeerIP;

2- للحصول على اسم الجهاز المتصل (client) باستخدام المكون indy استعمل هدا الكود :

GStack.HostByAddress(AContext.Connection.Socket.Binding.PeerIP);

ملاحظة هامة : لا تنسئ اضافة الوحدة IdStack

بتوفيق إن شاء الله

تم تعديل هذه المشاركة بواسطة HMAMH في 15 يونيو 2010 في 11:37

#4

السلام عليكم

عجبا لك تسأل و تجيب نفسك لو كل واحد فعل فعلتك لعم المنتدى الخير الكثير...

شكرا للسآل و الاجابة...

سلامي

#5
HMAMH كتب:

السلام عليكم ورحمة الله وبركاته

اخي / اختي الكريم HMAMH نحن هنا دائما

تفضل الحل لمشكلتك :

1- للحصول على عنوان المتصل (client) باستخدام المكون indy استعمل هدا الكود :

AContext.Connection.Socket.Binding.PeerIP;

2- للحصول على اسم الجهاز المتصل (client) باستخدام المكون indy استعمل هدا الكود :

GStack.HostByAddress(AContext.Connection.Socket.Binding.PeerIP);

ملاحظة هامة : لا تنسئ اضافة الوحدة IdStack

بتوفيق إن شاء الله

السلام عليكم ورحمة الله وبركاته /اختي حمامه

يا انشتاين انتي

ممكن ارفاق project+forms صغير ينوه عن ذلك لتعم الفائده

نسأل الله الجنه لنا ولوالدينا ولمن لهم حق علينا

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…