+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفيه إنشاء أتصال بين مخدم وزبون بإضافه مخرجات (/showthread.php?tid=2426)
كيفيه إنشاء أتصال بين مخدم وزبون بإضافه مخرجات - php3man - 18-09-2010
بسم الله الله الرحمن الرحيم
السلام عليكم ورحمه الله وبركاته
أسف مأقدرت اصيغ السؤال
بسأل عن طريقه اتصال بين مخدم وزبون
اذا كان المخدم
أيبي : 127.0.0.1
البورت : 5050
الزبون يقوم بإنشاء ملف ريجستري يقوم كالاتي
client:Server=ipPort=Port
طريقه الاتصال
client:Server=127.0.0.1Port=5050
عند فتح بورت اخر في المخدم أو تغير الايبي
بمجرد وضعه بالطريقه أعلاه يقوم بالاتصال عليه
مثال كما في برنامج الشات
all2chat.com
العميل
كود :
www.all2chat.com/downloadكيفيه إنشاء أتصال بين مخدم وزبون بإضافه مخرجات - abdelmalek - 18-09-2010
وعليكم السلام ورحمة الله وبركاته
اخي ممكن توضح سؤال اكثر
مادا تستعمل لربط بين الخادم والزبون :
1- indy
Socket -2
3- او مادا ...
ما الهدف الدي تريد تحقيقة من هاته الطريقة ( ممكن نعطيك طريقة اخرى او نعدل على طريقتك )
ممكن ترسل السورس كود لنرى مشكلة
بالتوفيق
في امان الله
اخي ممكن توضح سؤال اكثر
مادا تستعمل لربط بين الخادم والزبون :
1- indy
Socket -2
3- او مادا ...
ما الهدف الدي تريد تحقيقة من هاته الطريقة ( ممكن نعطيك طريقة اخرى او نعدل على طريقتك )
ممكن ترسل السورس كود لنرى مشكلة
بالتوفيق
في امان الله
كيفيه إنشاء أتصال بين مخدم وزبون بإضافه مخرجات - php3man - 18-09-2010
السلام عليكم ورحمه الله وبركاته
أستخدم indy حاليا
الهدفه منها الاتصال من صفحات الانتر نت تلقائي بدون فتحه من الجهاز
اذا وضع كرابط
client:Server=127.0.0.1Port=5050
عند الضغط عليه يقوم بتشغيل برنامج client
والاتصال علي الايبي والبورت بدون وضع أيبي وبورت يدوي
ودا راح يساعد انه مو كل فتره اسوي كومبايل للكلينت حتي أضيف فيه ايبي السيرفر أو البورت
كيفيه إنشاء أتصال بين مخدم وزبون بإضافه مخرجات - أبو محمد اللحياني - 18-09-2010
هذا له علاقة البارامترات التي تعمل مع البرنامج
مثلاً :
كود :
client.exe 127.0.0.1:5050اسم البرنامج يأخذ البرامتر رقم 0
و IP
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;