Like Delphi

السلام عليكم يا أبو النور... المثال مجرب و صحيح وخالي من الأخطاء, تأكد من أنك تضع رقم الـ IP الخاص بالجهاز السيرفر هو نفسه الرقم الذي ستضعه في تطبيق السيرفر والذي سيعمل بإذن الله على هذا الجهاز, بمكنك تجريب المثال على جهاز واحد مبدئياً, وعندما تريد نقل تطبيق ا…

السلام عليكم, صباح الخير يا شباب صديقي العزيز: أعتقد أنه لا داعي لذلك, فلماذا؟ وكيف ستعرف أي جهاز هو الذي عمل؟ المهم هو معرفة وقت تشغيل كل تطبيق زبون أو بالأحرى وقت كل جلسة عمل لمواطن على الإنترنت, أي عندما يدخل الشخص اسم المستخدم و يضع كلمة السر ويضغط على زر …

صباح الخير أخ cipher أنت شرحت الفكرة بشكل عام وأنا دللت إلى الكود :) -------------------------------------------. أخي Aboalnoor-Delphi7 أتمنى أن تأخذ الموضوع على محمل الجد وتتابع بالبرنامج, عجبتني الفكرة ومنساعدك كلنا إن شاء الله. والله الموفق ;)

السلام عليكم بالنسبة لـ 1: shutdown / reboot / logoff Windows 9x/NT/Me/2000/XP 2: استعمل عناصر الـ indy إرسال أوامر بين تطبيق المخدم و تطبيق الزبون: دورة في برمجة تطبيقات مخدم-زبون باستخدام Indy وتستطيع أنت أن تعتمد مجموعة من الأوامر النصية وتختبرها عند تطبيق …

السلام عليكم أخي الكريم إن التابع Setwindowlong والتابع getwindowlong هي توابع API تستخدم للوصول إلى معلومات النظام الخاصة بأي نافذة, وهذا ما يحدده البارامتر الأول للتابع أي الـ Handle أما البارامتر GWL_EXSTYLE يستخدم للقراءة أو الكتابة من أو إلى معلومات شكل ا…

السلام عليكم أتمنى أن يفيدك هذا اللينك: http://www.swissdelphicenter.ch/torry/multimedia.php وبالتوفيق ;)

السلام عليكم أخي الكريم يمكنك استعمال تقنية المرآة إذا أردت يعني في حدث الـ Oncreat للفورم ضع الكود التالي: SetWindowLong(ProgressBar1.Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_ID) or $400000); وجرب هذا الكود في زر ما var i: integer; begin for i := 0 to 1…

أخي الكريم إذا أردت استعمال adoquery اضبط خاصية الـ SQL إلى: Select * From yourtable واستعمل الكود السابق باستبدال Adotable1 بـ adoquery وإن شاء الله يكون هذا هو المطلوب وبالتوفيق إن شاء الله ;)

السلام عليكم و رحمة الله وبركاته إذا استعملت الـ Adotable يمكنك استخدام الكود التالي أخي الكريم Adotable1.First; while not Adotable1.Eof do begin Adotable2.Append; Adotable2.FieldByName('Yourfiled').Value := Adotable1.FieldByName('Yourfiled').Value; Adotable2.…

السلام عليكم أخي DeltaAziz بالأصل كانت الفكرة هي أن يعمل البرنامج على جهاز واحد أو بالأحرى على عدة أجهزة ولكل جهاز قاعدة بيانات خاصة به طبعاً بذلك لن يحصل مشاكل بإذن الله ولكن توجب علينا إضافة موضوع تقارير متعلقة بجميع المستخدمين أو بما يحصل في هذا النظام فقمن…

معك حق. ربما يكون هناك خطأ ما لكن خطوات العمل أدت بي إلى هذه الطريقة المهم: أقصد بالجداول المؤقتة: أي أن كل مستخدم يريد بناء تسعيرة (مكتب مؤلف من مجموعة أكواد) يخزن في جداول تنشىء له وخاصة به و بعد ذلك نحذفها. فكرو معي جزاكم الله خيراً

سأشرح لك الفكرة بالتفصيل: تحتوي قاعدة البيانات على جدولين ضخمين لأكواد أصناف معينة داخل المستودع هذه الأكواد هي لقطع تستطيع تأليف منها مكاتب عمل حديثة فكرة البرنامج أنه يساعد المستخدم على بناء هذا المكتب الذي يتألف من تلك الأكواد المعقدة. البرنامج يحتوي على Ad…

اعتقد أنني بحاجة لبناء جداول مؤقتة ولكن هل يؤثر هذا على سرعة الاتصال وخصوصاً أنه يتعامل مع الملف حوالي 10 أجهزة.

السلام عليكم إخواني لقد عملت مشروع على الدلفي يرتبط بقاعدة بيانات من نوع أكسس وبعدها أردت ان يستعمل البرنامج أكثر من شخص على قاعدة بيانات واحدة قمت بوضع ملف الأكسس على أحد الأجهزة و عن طريق الـ Connectin String للـ ADO عملت اتصال لهذا الملف مع حوالي 10 ملفات ت…

شكراً إخواني على الردود أعمل على ذلك الآن جزاكم الله خيراً جميعاً ;)

السلام عليكم كنت قد أزلتها و مازالت المشكلة مع العلم أن البرنامج يعمل على أجهزة أخرى بدون رسائل كما أن الجهاز الذي لا يعمل عليه البرنامج يحتوي على دلفي 7 قمت بإصلاح الريجستري في الجهاز و لم يعمل البرنامج واجهتني المشكلة مع عدة اجهزة هل نستطيع معرفة الملفات الو…

شي يتعلق بالـ MAP File ؟؟؟ هل هو خطأ في النظام؟؟؟ للرفع

السلام عليكم قمت بعمل مشروع على الدلفي وهو يرتبط مع قاعدة بيانات أكسس المشكلة أن ملف الـ EXE يعمل على جهازي من دون مشاكل ولكنه لا يعمل على أجهزة آخرى وتظهر لي رسالتين الاولى هي أن الملف تسبب في حدوث خطأ ويجب إغلاقه والثانية: Run time error 216 at ويضع لي رقم ع…

السلام عليكم بالنسبة للطلب الثاني ضع ضمن جدول في قاعدة البيانات حقول بعدد حقول الـ checklistbox من نوع yes/no ومن ثم في حدث زر ما لديك ضع كود يقوم بتعبئة قيم الـ chekbox إلى الجدول مثلاً: ADOTable1.Edit; ADOTable1.FieldByName('anyname').Value := CheckListBox1.…

السلام عليكم عدت و ألغيت الـ DisableControls لجدول الماستر وأبقيتها لجدول الـ Details فعمل البرنامج بشكل طبيعي أعتقد أنه يجب تعطيل الـ Controls فقط على الجدول الذي تتم عليه الحلقة شكراً لجميع الردود, حلت المشكلة. وجزاكم الله خيراً جميعاً.