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

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

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

السلام عليكم قم باتاحة تعدد الملفات للمكون 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; 

DJILANI

S.FATEH