这个可以保存多个
procedure TMainFrm.SavePhotoActExecute(Sender: TObject);
var i: integer;
begin
if opendialog1.Execute then
for i := 0 to opendialog1.Files.Count - 1 do
begin
try
Table1.Append;
(Table1.FieldByName('Photo') as TBlobField).loadfromfile(opendialog1.Files);
Table1.post;
except
showmessage('不能打开文件!');
end;
end;
end;