To upload files into database, such as photos or any other files type, you need first to create a Blob field in a proper table structure in your favourite database engine. For this example we are using FireBird database table:
create table PHOTOS ( PHOTOID INTEGER, FILENAME VARCHAR(50) , CONTENT BLOB , primary key (PHOTOID) );
Create a new Lazarus application and add the following components:
TButton, TIBConnection, TSQLTransaction, TSQLQuery, and TOpenDialog:
Then add db unit to uses Clause.
on button’s OnClick write this code:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
SQLQuery1.SQL.Text:= 'insert into Photos (FileName, Content) values (:FileName, :Content)';
SQLQuery1.ParamByName('FileName').AsString:= ExtractFileName(OpenDialog1.FileName);
SQLQuery1.ParamByName('Content').LoadFromFile(OpenDialog1.FileName, ftBlob);
SQLQuery1.ExecSQL;
SQLTransaction1.Commit;
end;
end;
AFter running this sample you can load the entire file contents into your database.
Later you can download it using this example
Free Pascal Answers 
Pingback: How to download files from database using Free Pascal/Lazarus « Free Pascal Answers
Is it possible to display a progres indicator which could be important especially for big files?
salem alakom
can you upload the project , because i have same problem with ftBlob
Wa Alikum alsalam, what did you mean by the same problem?
السلام عليكم
شكرا على الاجابة يا أخي ابو اياس
لقد كان ينقصني use db unit
لكني الآن عندي مشكل آخر وهو كيفية استعمال TDBImage
جزاك الله عنا كل خير
I’m using normal TImage componet, look at this code:
var BlobStream : TStream; begin Screen.Cursor:= crSQLWait; BlobStream := CreateBlobStream(SQLQuery1.FieldByName('Contents'),bmRead); BlobStream.Position:= 0; Image1.Picture.LoadFromStream(BlobStream); Screen.Cursor:= crDefault; BlobStream.Free; endالله يفتح عليك و ينورك
السلام عليكم و رحمة الله و بركاته
كيف الحال يا أخي أبو إياس
ممكن لو سمحت مثال عن طريق
dbimage
و جزاك الله خيرا و زادك من علمه
I couldn’t make dbImage work, it generates “Stream read error” message
الله ينور عليك على سرعة الإجابة
سأحاول انشاء الله العمل لحل المشكل و ان امكنني ذلك
سأرسل لك شرحا لتعم الفائدة
بارك الله فيك يا أخي أبو إياس
أخوك عبد القادر من الجزائر
السلام عليكم يا أخي ابو إياس
الحمد لله تمكنت من استعمال
dbimage
وهو الآن يعمل كأنه
dbEdit
بكل سهولة و مع فورمات متعدد
لحد الان bmp و jpeg
وأيضا مع سجلات ثنائية الاتجاه
سأبعث إليك انشاء الله الحل مع المثال لتعم الفائدة
Can you please explain what did you do for “Stream read error”
السلام عليكم و رحمة الله و بركاته
استسمحك على التأخير نظرا لظروف امر بها ادعوا لي بالتوفيق
اما بخصوص الطريقة التي اتبعتها فهي كالتالي:
اضف زر به الكود الآتي
if OpenDialog1.Execute then
begin
Datasource1.DataSet.Edit;
DBImage1.Picture.LoadFromFile(OpenDialog1.FileName);
end;
و استعمل TDBImage
لكن بعد ان تقوم بتحميل الصور في القاعدة عن طريق الطريقة السابقة
Pingback: Firebird News » How to upload/download files from database using Free Pascal/Lazarus
الكود بيرفع صور و فى صور مش بيرضى يرفعها
ماهي نوعية الصور التي لم يتم رفعها
وماهي رسالة الخطأ التي تحدث
صور jpg
كل الصور اللى حاولت ارفعها jpg
ماهي رسالة الخطأ الناتجة عن تحميل الصورة
can’t open file “image path”
that means the file path is incorrect
ازاى وانا باخده من open image dialogue
يمكنك طرح هذه المشكلة في موقع لازاراس
http://forum.lazarus.freepascal.org/
ماهو نظام التشغيل الذي تستخدمه
المشكلة حصلت معايا على ويندوز 7 و 8.1