تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] برنامج تخزين الصور في قاعدة بيانات في Lazarus
#11
(29-08-16, 03:59 PM)abulayth كتب : السلام عليكم

Save_Pictures_To_Dataabase.lpi

يعطيك العافية

الله يعافيك
ايضا سؤال اخر ماهي قاعدة البيانات؟
وكيف يتم فتحها والتعديل عليها؟
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy
#12
(29-08-16, 02:42 PM)abulayth كتب :
ما شاء الله عمل ممتاز تستحق الشكر الجهد المبذول فيه

ارجو منك الانتباه الى التالي

1 - اضافة امكانية استخراج الصورة من قاعدة البيانات وتخزينها الى القرص الصلب بنفس اسم الصورة القديم
2 - تحديد انواع الملفات التي يدعمها البرنامج لانني خزنت ايقونة البرنامج وظهرت معي الرسالة التالية:



يعطيك العافية.

شكرا جزيلا أخي . هدفي من البرنامج ليس عمل برنامج متكامل فكل واحد يضيف له ما يراه مناسب لاحتياجاته  أردت توضيح فكرة تخزين الصور في قاعدة البيانات على شكل 

data و ليس رابط كما يفعل البعض  و بالنسبة للحفظ عل القرص يمكن ان تضيف مكون SavePictureDialog1 و  زر و تكتب فيه الكود :
كود :
procedure TFormMain.Button1Click(Sender: TObject);
var stream : TMemoryStream ;
begin
      SavePictureDialog1.FileName:= Query.FieldByName('pictureDescription').AsString;
     if SavePictureDialog1.execute = true then
    begin

     stream:= TMemoryStream.Create;
    stream.Position:=0;
    Image1.Picture.SaveToStream(stream);
     stream.SaveToFile(SavePictureDialog1.FileName);
     stream.Free;
    end;
end;      
 أما بالنسة لتخزين الأيقونات  يمكن استثناءها بعملية فلترة في المكون  OpenPictureDialog1

الرد }}}
#13
السلام عليكم

بعد اذن اخي ابو ناصر 

نوع قاعدة البيانات sqlite
اما اسم قاعدة البيانات mydb.db

وهذا مثال لكود الاضافة من نفس البرنامج

PHP كود :
     Stream := TMemoryStream.Create;

 
     Image1.Picture.SaveToStream(Stream);
 
     Stream.Position := 0;
 
     FormMain.Query.SQL.Text := ' insert into pictures (pictureDescription,pictureStore,pictureDate) values (:pictureDescription,:pictureStore,:pictureDate)'  ;
 
     FormMain.Query.ParamByName('pictureDescription').AsString := EditDescription.Text;
 
     FormMain.Query.ParamByName('pictureStore').LoadFromStream(Stream,ftBlob);
 
     FormMain.Query.ParamByName('pictureDate').AsDate:= Now ;

 
     FormMain.Query.ExecSQL;
 
     FormMain.trans.Commit;
 
     Stream.Free        

وايضا تستطيع استخدام قواعد بيانات access + Mysql 

يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}
تم الشكر بواسطة: Amir_Alzubidy
#14
(29-08-16, 04:09 PM)سعود كتب :
(29-08-16, 03:59 PM)abulayth كتب : السلام عليكم

Save_Pictures_To_Dataabase.lpi

يعطيك العافية

الله يعافيك
ايضا سؤال اخر ماهي قاعدة البيانات؟
وكيف يتم فتحها والتعديل عليها؟

قاعدة البيانات هي من نوع SQLite3  و البرنامج الذي استعمله هو المحرر SQLiteMaestro

أخي سعو د يمكنك بالمحرر SQLiteMaestro انشاء قاعدة البيانات أو الاتصال بها و اجراء تعديلات عليها  و اضافة بيانات 
رابط تحميل المحرر 
[url= https://www.sqlmaestro.com/products/sqlite/maestro][/url]https://www.sqlmaestro.com/products/sqlite/maestro/
الرد }}}
تم الشكر بواسطة: أبوبكر سويدان
#15
ما شاء الله على الشباب... منورين والله.
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy
#16
ABuLayth
يا جدي
اللي في الصورة فورم والا messagebox
مع انه اغلب ضني انها MessageBox  اللي خلاني افكر وجود الايقونات على زري OK & Cancel
Huh Huh Huh
????????????????????????
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: abulayth , Amir_Alzubidy
#17
ماشي يا جدو هاي msgbox من النظام

واظن انه نظام رائع لانه يعمل على كل الانظمة بما فيها Linux

يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}
تم الشكر بواسطة: أبو عمر , أبوبكر سويدان , Amir_Alzubidy
#18
نعم هي msgbox من Lasarus  مصصمة هكذا .

بالنسبة للازاروس شبيهة جدا جدا بالدلفي من ناحية الأكواد فهما يعملان تحت منصتين مصممتين بلغة باسكال
هما توربو باسكال و فري باسكال  و من لديه خبرة في الدلفي لن يجد صعوبة في لازاروس
الرد }}}
#19
ماذا لو أحببنا عرض الصورة في تقرير Lazreport؟
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy
#20
(19-11-16, 12:20 AM)أبوبكر سويدان كتب : ماذا لو أحببنا عرض الصورة في تقرير Lazreport؟

    السلام عليكم و رحمة الله ، أولا أعتذر عن انقطاعي عن المنتدى بسبب ظروف شغلي 
   أما بالنسبة لعرض الصورة في تقرير قبل ذلك فأستسمح أستاذنا أبو بكر أن يتضمن شرحي فكرة بسيطة عن اضافة و تصميم تقرير لكي تعم الفائدة و الذي سنخصص له ان      شاء الله شرحا وافيا في احدى المشاركات ان سنحت الفرصة .
   1 - نضيف لفورم المشروع الموجود في بداية المشاركة زر BUTTON1 لعرض التقرير و  ومن التبويب LazReport نضيف المكونين  frReport1  و frDBDataSet1  ونغير                      الخصائص من المحرر كمايلي :
     Button1.Caption  الى عرض التقرير
     frReport1.Dataset  الى frDBDataSet1
     frDBDataSet1.DataSet الى Query حيث Query هو الاسم البرمجي للمكون SQLQuery  في المشروع الأصلي الموجود في بداية المشاركة
   2- نضغط ضغطا مزدوجا على المكون frReport1 لعرض مصمم التقارير و ندرج له :
    * band من نوع Page header  و ندرج فوق هذا الباند عدد 2 من  Rectangle Object  نكتب في الأول النص : و صف الصورة  و في الثاني النص عرض الصورة 
    * و Band  من نوع  Master data ونغير  له data source من [None] الى frDBDataSet1  و ندرج فوقه :
                       -   Rectangle Object و نكتب فيه الكود [Query.pictureDescription]  و ذلك لربطه باسم حقل وصف الصورة في قاعدة البيانات ، Query تم شرحا آنفا 
                      -  و Picture  التي نضغط عليها ضغطا مزدوجا ثم نختار Memo و نكتب الكود [Query.pictureStore] و ذلك لربطها باسم حقل تخزين الصورة في قاعدة البيانات
    ثم نحفظ التقرير المصمم باسم report  في مجلد المشروع و نغلق التقرير لنعود للفورم الرئيسية .
   3 - نضغط ضغطا مزدوجا على زر عرض التقرير و نكتب الكود :
                                                                   frReport1.LoadFromFile('report.lrf');
                                                                   frReport1.ShowReport; 

 وأخيرا نحفظ المشروع . و عند تنفيذ البرنامج و عرض التقرير يظهر كما في الصورة


الملفات المرفقة صورة/صور
   
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  صدور النسخة 3.0 من برنامج لازاروس vbtemp 0 165 31-12-23, 01:44 PM
آخر رد: vbtemp
Wink طلب برنامج Mareo 0 1,897 19-04-22, 06:56 AM
آخر رد: Mareo
  قسم العربي في المنتدى الرسمي لـ Lazarus العيد1403 1 2,360 29-07-21, 06:14 PM
آخر رد: vbtemp
  [مشروع] برنامج إدارة الديون - بحلته الجديدة أبوبكر سويدان 25 14,946 01-05-21, 11:04 PM
آخر رد: مصطفى العراقي75867
  برنامج إدارة قواعد بيانات SQLite أبوبكر سويدان 10 5,082 10-04-21, 09:58 PM
آخر رد: Abdouhk
  تمهيدي - لازاروس Lazarus أبوبكر سويدان 24 34,641 25-03-21, 01:11 AM
آخر رد: Abdouhk
  [كود] برنامج إدارة الديون - مفتوح المصدر أبوبكر سويدان 6 6,791 15-12-20, 12:02 AM
آخر رد: أبوبكر سويدان
  المساعدة في تجربة وتقييم برنامج مبيعات أبوبكر سويدان 22 10,078 09-07-20, 05:16 PM
آخر رد: أبوبكر سويدان
  برنامج لاستخراج الرقم التسلسلي للسواقة C أبوبكر سويدان 2 2,789 09-07-20, 05:14 PM
آخر رد: أبوبكر سويدان
  برنامج لفحص الاتصال بشبكة الإنترنت أبوبكر سويدان 1 2,198 07-07-20, 12:37 PM
آخر رد: العيد1403

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم