delphi4arab منتديات دلفي للعرب

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

PHP كود :
ADOTable1.first;
  while 
not ADOTable1.eof do
  
begin
    s
:=ADOTable1name_image.Value;
     if 
DBImage2.Picture.Bitmap.Empty=false Then
   Begin
     DBImage2
.Picture.SaveToFile('C:\eeeee\'+s+'.jpg');
   End ;
    ADOTable1.next
  end 

وهو يعمل جيد ، لكن يعيبه التالي:

1-ان امتداد الصورة اصبح اجباري.

آمل من الجميع ابداء الملاحظات او التعديل.

واذا فيه طريقه لنقله على ملف ورد مباشرك يكون افضل واسهل.