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

[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;