[أبو ناصر]

(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