H
hmfzhao
Unregistered / Unconfirmed
GUEST, unregistred user!
我已经用如下程序导入PDF文档,我用的是ACCESS2000,FieldByName('申请书')为OLE,可在ACCESS中却不用直接打开该字段(显示长二进制数据,打开时却是“OLE有问题”),如果用ACCESS直接插入却是可以的(显示PDF格式文档),请各位老师指教,多谢!
table1.append;
str11:=Tmemorystream.Create;
str11.LoadFromFile('d:/pp/60302001.pdf');
str11.Position:=0;
Tblobfield( table1.FieldByName('申请书')).loadfromstream(str11);
try
table1.post;
finally
str11.Free;
end;
table1.append;
str11:=Tmemorystream.Create;
str11.LoadFromFile('d:/pp/60302001.pdf');
str11.Position:=0;
Tblobfield( table1.FieldByName('申请书')).loadfromstream(str11);
try
table1.post;
finally
str11.Free;
end;