+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : رفع الصور دفعة واحدة في قاعدة بيانات أكسس (/showthread.php?tid=6749)
رفع الصور دفعة واحدة في قاعدة بيانات أكسس - DJILANI - 31-01-2015
السلام عليكم ورحمة الله
هل من الممكن رفع عدة صور دفعة واحدة في قاعدة ببانات أكسس من ملف معين مع العلم أضع اسم الصورة هو رقم ID الحقل والصورة توضح الاشكال
كود :
http://www.m5zn.com/newuploads/2015/01/31/png//c3232667cfe5104.pngرفع الصور دفعة واحدة في قاعدة بيانات أكسس - S.FATEH - 01-02-2015
السلام عليكم قم باتاحة تعدد الملفات للمكون 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;