试试:
procedure TForm1.Button1Click(Sender: TObject);
begin
   if OpenPictureDialog1.Execute then
   Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
   ADOTable1.Append;
   TBlobField(ADOTable1.FieldByName('FImage')).LoadFromFile(OpenPictureDialog1.FileName);
   ADOTable1.Post;
end;

解决方案 »

  1.   

    用text类型,用ole容器存取,Image是二进制文件
      

  2.   

    Word文件太大时出错,我试了一下大于100K就出错
      

  3.   

    兄弟姐妹们!CSDN视我们的信誉如草芥,想扣就扣,想删ID就删ID,是我们深刻反省的时候了! 我们不应该继续支持CSDN! 我们应该建立一个自己的论坛!