var bmp:Tbitmap procedure Torm.openbuttonclick(sender:tobject); begin if opendialog1.execute then image1.picture.loadfromfile(opendialog1.filename); end;
VAR I :INTEGER; begin OpenPictureDialog1.Options :=[ofAllowMultiSelect]; //加入此段可多重選擇存入資料庫檔案 if OpenPictureDialog1.Execute then begin for i:=0 to OpenPictureDialog1.Files.count-1 do begin ADOTable1.append; ADOTable1.FieldByName('IMG_FILENAME').AsString:= Extractfilename(OpenPictureDialog1.Files[i]); ADOTable1.FieldByName('IMG_FILESIZE').AsInteger:= filesizes(OpenPictureDialog1.Files[i]); TBlobField(ADOTable1.FieldByName('IMG_FILEDATA')).loadfromfile(OpenPictureDialog1.Files[i]); ADOTable1.post; ADOTable1AfterScroll(ADOTable1); end; END;
----------------------------------------------