procedure TDemoMainForm.Button13Click(Sender: TObject);//从文件装入
begin
Table2.Edit;
TBlobField(Table2.FieldByName('照片')).LoadFromFile('C:/TEMP/TEMP.BMP');
Table2.Post;
end;
procedure TDemoMainForm.Button14Click(Sender: TObject);//存入文件
begin
TBlobField(Table2.FieldByName('照片')).SaveToFile('C:/TEMP/TEMP.BMP');
end;
procedure TDemoMainForm.Button15Click(Sender: TObject); //创建连接并显示
begin
OleContainer1.CreateLinkToFile('C:/TEMP/TEMP.BMP',False);
end;
没有问题的.
是不是你数据库中原来的数据是坏的.