关于IMAGE字段

Question

如果用DELPHI
访问控件用DBIMAGE，通过剪贴版给DBIMAGE赋值

Answer 1

procedure TForm4.BitBtn1Click(Sender: TObject);
var graphic1:timage;
begin
graphic1:=timage.Create(self);
openpicturedialog1.Execute;
try
graphic1.Picture.LoadFromFile(openpicturedialog1.FileName);
clipboard.Assign(graphic1.Picture);
except
 on EInvalidGraphic do  showmessage('没有图片');
end;
if Clipboard.HasFormat(CF_BITMAP) then
   dbimage2.PasteFromClipboard
else
    showmessage('剪贴板空');   end;