delphi4arab منتديات دلفي للعرب

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

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

أسف مأقدرت اصيغ السؤال

بسأل عن طريقه اتصال بين مخدم وزبون

اذا كان المخدم
أيبي : 127.0.0.1
البورت : 5050

الزبون يقوم بإنشاء ملف ريجستري يقوم كالاتي
client:Server=ipPort=Port

طريقه الاتصال
client:Server=127.0.0.1Port=5050

عند فتح بورت اخر في المخدم أو تغير الايبي

بمجرد وضعه بالطريقه أعلاه يقوم بالاتصال عليه

مثال كما في برنامج الشات
all2chat.com

العميل

كود :
www.all2chat.com/download

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

اخي ممكن توضح سؤال اكثر

مادا تستعمل لربط بين الخادم والزبون :

1- indy
Socket -2
3- او مادا ...

ما الهدف الدي تريد تحقيقة من هاته الطريقة ( ممكن نعطيك طريقة اخرى او نعدل على طريقتك )

ممكن ترسل السورس كود لنرى مشكلة

بالتوفيق

في امان الله

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

أستخدم indy حاليا

الهدفه منها الاتصال من صفحات الانتر نت تلقائي بدون فتحه من الجهاز

اذا وضع كرابط

client:Server=127.0.0.1Port=5050

عند الضغط عليه يقوم بتشغيل برنامج client
والاتصال علي الايبي والبورت بدون وضع أيبي وبورت يدوي

ودا راح يساعد انه مو كل فتره اسوي كومبايل للكلينت حتي أضيف فيه ايبي السيرفر أو البورت

هذا له علاقة البارامترات التي تعمل مع البرنامج

مثلاً :

كود :
client.exe 127.0.0.1:5050

اسم البرنامج يأخذ البرامتر رقم 0
و IP Tongue

ORT يأخذ الرامتر رقم 1

تستطيع التقاطها بالـ :

كود :
ParamStr(0)
ParamStr(1)

وبعد ذلك تستطيع تقطيعها إلى جزين بالحرف : [:]
وهذه دالة تريك البرامترات خطوة خطوة :

كود :
procedure showcmd;
var
  cmd : string;
  i : Integer;
begin
 cmd := CmdLine;
  ShowMessage(cmd);     // Show the execution command + parameters
  ShowMessage('There are '+IntToStr(ParamCount)+' parameters');
  for i := 0 to ParamCount do
    ShowMessage('Parameter '+IntToStr(i)+' = '+ParamStr(i));
end;

php3man

abdelmalek

php3man

أبو محمد اللحياني