主题:关于在DELPHI环境下调用WORD的问题,高手来看下
我用的是DELPHI7.0,数据平台是SQL2000
在用数据库管理WORD的 设计中遇到困难
调用的控件:
DBlookuplistBox,Olecontainer,ADOTable,Datesource,
并建立一个主菜单,
数据库建表的时候,找不到参考书上说的BLOB数据类型。
而且在选择DBlookuplistBox中建立的文件的时候,出现Stream read error!提示
我的代码是:
var
Bfield:TBlobField;
sm:TMemoryStream;
Begin
sm:=TMemoryStream.Create();
AdoTable1.Open();
Bfield:=AdoTable1.FieldByName('Doc') as TBlobField;
bfield.SaveToStream(sm);
sm.Position:=0;
OleContainer1.LoadFromStream(sm);
sm.Free();
end;
procedure TForm9.SaveOleField();
var
Bfield:TBlobField;
Sm:TMemoryStream;
begin
Bfield:=AdoTable1.FieldByName('Doc') as TBlobField;
sm:=TMemoryStream.Create();
Olecontainer1.SaveToStream(sm);
sm.Position:=0;
bfield.LoadFromStream(sm);
sm.Free();
end;
求各位达人帮下小弟,感激不尽
在用数据库管理WORD的 设计中遇到困难
调用的控件:
DBlookuplistBox,Olecontainer,ADOTable,Datesource,
并建立一个主菜单,
数据库建表的时候,找不到参考书上说的BLOB数据类型。
而且在选择DBlookuplistBox中建立的文件的时候,出现Stream read error!提示
我的代码是:
var
Bfield:TBlobField;
sm:TMemoryStream;
Begin
sm:=TMemoryStream.Create();
AdoTable1.Open();
Bfield:=AdoTable1.FieldByName('Doc') as TBlobField;
bfield.SaveToStream(sm);
sm.Position:=0;
OleContainer1.LoadFromStream(sm);
sm.Free();
end;
procedure TForm9.SaveOleField();
var
Bfield:TBlobField;
Sm:TMemoryStream;
begin
Bfield:=AdoTable1.FieldByName('Doc') as TBlobField;
sm:=TMemoryStream.Create();
Olecontainer1.SaveToStream(sm);
sm.Position:=0;
bfield.LoadFromStream(sm);
sm.Free();
end;
求各位达人帮下小弟,感激不尽