我有一个程序中也用到这个功能,你看看行不行:
//选择位图,写入数据库
procedure Tdriverinfform.SpeedButton1Click(Sender: TObject);
var
bmp:tbitmap;
begin
if driverinfform.OpenpictureDialog1.Execute then
begin
bmp:=tbitmap.Create;
try
try
bmp.LoadFromFile(driverinfform.OpenpictureDialog1.FileName);
driverinfform.Table1.Edit;
driverinfform.Table1.FieldByName('照片').Assign(bmp);
driverinfform.Table1.Post;
except
on einvalidgraphic do application.MessageBox('错误的位图文件[.bmp]!','通知');
end;
finally
bmp.Free;
end;
end;
end;
//从数据库读出并保存为位图文件
procedure Tdriverinfform.SpeedButton2Click(Sender: TObject);
var
bmp:tbitmap;
begin
if driverinfform.saveDialog1.Execute then
begin
bmp:=tbitmap.Create;
try
bmp.Assign(driverinfform.Table1.FieldByName('照片'));
bmp.savetoFile(driverinfform.saveDialog1.FileName);
finally
bmp.Free;
end;
end;
end;