كيف نقوم بالمزامنة بين وظائف indy و VCL

[abdelmalek]

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

كما نعرف ان server indy يستعمل تقنية multithreading ؟

كيف نقوم بالمزامنة في هاته الحالة بين وظائف indy و VCL

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
Memo1.Lines.Add('Connect');
end;
procedure TForm1.IdTCPServer1Disconnect(AThread: TIdPeerThread);
begin
Memo1.Lines.Add('Disconnect');
end;
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
Memo1.Lines.Add('execute');
end;

بارك الله فيكم وجزاكم خيرا

بالتوفيق للجميع

[o15s19]

باستخدام TIdSync أو TidNotify و إذا اردت استخدامهما راجع المشاركة التالية هنا (http://www.delphi4arab.com/forum/showthread.php?t=1789)
أو انظر للسورس في مشروع برنامج محادثة (http://www.delphi4arab.com/forum/showthread.php?t=2326&page=8)

[abdelmalek]

بارك فيك اخي o15s19 على المشاركة

لكن لم افهم شيئ عن المزامنة وطريقة عملها

[abdelmalek]

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

ما معنا المزامنة ؟

ماهي المشكلة التي تجبرنا على مزامنة بين main thread و الثريدات الاخرة ؟

هل هناك طريقة اخرى غير المزامنة ؟

اعطي مثال بسيط على عمل دلك ؟

اسف على كثرة الاسئلة ( موضوع المزامنة هدا ريح يخرجني من عقلي ) اه اه اه اه اه

بارك الله فيكم وجزاكم خيرا

بالتوفيق للجميع

سلام

[musvc]

آسف لاني لا اتابع الأسئلة هذه ِ الأيام بسبب الأنشغال...

بالنسبة للسؤال, صدقني لم ادخل في طريق الـ indy بعد
بالنسبة الى المثال, في المرفقات مثال جميل جدا ً
ارجـو ان تستفاد منه...
في المثال الـ Client يكون في جهاز العميل و الـ Server يكون في جهازك :)
حيث سيتصل بك مباشرتا ً.
ببساطة تربطه بـ no-ip على سبيل المثال ثم تبدأ بالتحكم :)

ارجـوان اكون قد افدت ولو بقليل
سلامي لك

[abdelmalek]

بارك الله فيك اخي musvc على المرور
لكن المشكلة لم تنحل بعد
بالتوفيق للجميع