المشاركات : 79
المواضيع 16
:
: 0
الإنتساب : Sep 2010
16-09-2010, 03:08 PM
(آخر تعديل لهذه المشاركة: 16-09-2010, 03:33 PM بواسطة Admin.)
بسم الله والحمد لله والصلاة والسلام على رسول الله
السلام عليكم ورحمة الله وبركاته
هذا اول موضع لي في هذا الموقع اسئل الله ان يعين القائمين عليه وان يجعله في ميزان حسناتهم
ابرمج اداة بسيطه نوعا ما ب lazarus على نظام ويندوز
تقوم بالاتصال بقاعدة البيانات بعد اعطاء عنوان السيرفر و اسم قاعدة البيانات وكلمة المرور الخاصة بها
لكن اعتقد ان هناك خطأ لم انتبه له ولا اعلم كيف اصححه
قاعدة البيانات mysql
لتحميل الملفات على هذا الرابط
كود :
www.multiupload.com/2HN2TQ6Q8N
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
وعليكم السلام ورحمة الله وبركاته
لم تذكر ماهي رسالة الخطأ
راجع الرد 4 وما بعده بهذا الموضوع
http://www.delphi4arab.net/forum/showthr...p?tid=2141
المشاركات : 2,293
المواضيع 157
:
: 81
الإنتساب : Dec 2008
المشاركات : 79
المواضيع 16
:
: 0
الإنتساب : Sep 2010
جزاكم الله كل الخير يا شباب
واعذروني اشد العذر على عدم بحثي في المنتدى
اكرر شكري لكم يا شباب
بالنسبة للاخB.M.AbdelAziZ
لايتم الاتصال
مع العلم نظامي ويندوز7
المشاركات : 842
المواضيع 49
:
: 65
الإنتساب : Jun 2010
السلام عليكم و رحمة الله
تساؤلك حول دلفي ؟ أو Lazarus ؟ هذا قسم Lazarus
إذا كان حول Lazarus
إرفع محاولة ! ( سورس كود وحده ، حجم المرفق السابق أكثر من 4 MB )
بالتوفيق
المشاركات : 79
المواضيع 16
:
: 0
الإنتساب : Sep 2010
تساؤلي عن الlazarus
نزل الملف المرفق وتجد كل الملفات ان شاء الله
المشاركات : 842
المواضيع 49
:
: 65
الإنتساب : Jun 2010
4 MB من أجل 6 سطور :disgust:
كود :
IBConnection1.Connected := true;
IBConnection1.HostName:=edit1.text;
IBConnection1.UserName:=edit2.text;
IBConnection1.Password:=edit3.text;
IBConnection1.DatabaseName:=edit4.text;
MySQL50Connection1AfterConnect(SQLQuery1.SQL);
هذا كودك
تحاول فتح الإتصال قبل إسم القاعدة والهوست و المستعمل و كلمة المرور إضافة إلى
IBConnection مخصصة لللإنتربايز و الفايربيرد وليس للـ
mysql
و السطر الأخير لم أفهمه
جرب التالي
كود :
MySQL50Connection1.HostName:=edit1.text;
MySQL50Connection1.DatabaseName:=edit4.text;
MySQL50Connection1.UserName:=edit2.text;
MySQL50Connection1.Password:=edit3.text;
MySQL50Connection1.Connected := true;
بالنسبة للـ MySQL50Connection1AfterConnect
في الأحداث
كود :
procedure TForm1.MySQL50Connection1AfterConnect(Sender: TObject);
begin
أكتب الكود المراد تنفيذه
end;
بالتوفيق
المشاركات : 79
المواضيع 16
:
: 0
الإنتساب : Sep 2010
Lam.Abdeldjalil لساني يعجز عن شكرك
انا مبتدئ على هذه اللغه ومستواي في لغات البرمجة الاخرى متوسط
لكن مشكلة الدلفي او الlazarus كيفية التعامل مع المكونات <<<بالنسبة لي انا
هدفي من دخول هذه اللغه هو تطوير البرامج او زيادة البرامج العربي على نظام اللينكس
كيف سيكون تنفيذ امر mysqldump !!؟
بالمناسبة ضهر خطأ وتوقف البرنامج
لا اعلم ما الخطأ الان !
![[صورة: 27788911.jpg]](http://img529.imageshack.us/img529/6492/27788911.jpg)
المشاركات : 842
المواضيع 49
:
: 65
الإنتساب : Jun 2010
17-09-2010, 03:33 PM
(آخر تعديل لهذه المشاركة: 17-09-2010, 03:38 PM بواسطة Lam.Abdeldjalil.)
السلام عليكم و رحمة الله
هذا الخطأ يدل على عدم نجاح الإتصال
تأكد من القيم المكتوبة مثال
كود :
Hostname = LocalHost
DatabaseName = [COLOR=DarkOrange]mydatabase1[/COLOR]
UserName = [COLOR=DarkOrange]User1[/COLOR]
Password = [COLOR=DarkOrange]Password1[/COLOR]
أو
كود :
UserName = [COLOR=DarkOrange]Root [/COLOR]
إذا لم تغير كلمة المرور الإبتدائية ( فارغة )
إقتباس :كيف سيكون تنفيذ امر mysqldump !!؟
لم أستخدمها من قبل :unsure:
بالتوفيق
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
مبرمج هاوي كتب :لايتم الاتصال
هل قراءت المشاركات ! ماذا فهمت متها ؟
إقتباس :كيف سيكون تنفيذ امر mysqldump
http://www.delphi4arab.net/forum/showthr...p?tid=2295
