رفع الصور دفعة واحدة في قاعدة بيانات أكسس

[DJILANI]

السلام عليكم ورحمة الله
هل من الممكن رفع عدة صور دفعة واحدة في قاعدة ببانات أكسس من ملف معين مع العلم أضع اسم الصورة هو رقم ID الحقل والصورة توضح الاشكال

كود :

http://www.m5zn.com/newuploads/2015/01/31/png//c3232667cfe5104.png

[S.FATEH]

السلام عليكم قم باتاحة تعدد الملفات للمكون OpenPictureDialog لحفظ الصورة ابحث في المنتدى هناك مواضيع تتحدث عن الموضوع خذ ما يناسب حالتك ...

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  FileName: string;
begin
  OpenPictureDialog.Options := OpenPictureDialog.Options + [ofAllowMultiSelect];

  if not OpenPictureDialog.Execute then Exit;
  for I := 0 to OpenPictureDialog.Files.Count - 1 do
  begin
    FileName := ExtractFileName(OpenPictureDialog.Files[i]);
    FileName := Copy(FileName, 1, pos('.', FileName) - 1);
    SavePictureToDB(FileName);// Implement you own method to save pictures into database
  end;
end;