在delphi中如何显示access数据库中的OLE字段值(急救!!)非常感谢 ( 积分: 100 )

  • 主题发起人 主题发起人 gjw96
  • 开始时间 开始时间
G

gjw96

Unregistered / Unconfirmed
GUEST, unregistred user!
是不是可以利用TDBRichEdit控件和OLE结合使用呢??
望知道的可以给出完整的代码!!!
其中OLE字段值是图文混排的格式,不单单是图片或文字
 
是不是可以利用TDBRichEdit控件和OLE结合使用呢??
望知道的可以给出完整的代码!!!
其中OLE字段值是图文混排的格式,不单单是图片或文字
 
用TOleContainer在 System选项卡里
var
SFileName:String;
BS:TADOBLobStream;
begin
bs:=TADOBLobStream.Create(TBlobField(
DM.ADOTable1.FieldByName('ASK')),bmRead);
try
sFileName:=ExtractFilePath(Application.Exename)+'tempBlob'
+'.DOC';
BS.SaveToFile(SFileName);
OleContainer1.createObjectFromFile(SFileName,False);
finally
BS.Free;
end;
 
请问上楼:这样不行吗?
var

BS:TADOBLobStream;
begin
bs:=TADOBLobStream.Create(TBlobField(
DM.ADOTable1.FieldByName('ASK')),bmRead);
try


OleContainer1.loadfromstream(bs);
finally
BS.Free;
end;
 
后退
顶部