回 帖 发 新 帖 刷新版面

主题:关于在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;


求各位达人帮下小弟,感激不尽

回复列表 (共1个回复)

沙发


procedure TfMain.N2Click(Sender: TObject);
var
  vWord,vDoc:Variant;
  dir:String;
begin
  dir:=ExtractFileDir(Application.ExeName);
  vWord:=CreateOleObject('Word.Application');
  try
    vDoc:=vWord.Documents.open(dir+'\help\GCpbx_help.doc');
  except
  begin
    ShowMessage('打开帮助文件时发生错误!');
    exit;
  end;
  end;
end;

我来回复

您尚未登录,请登录后再回复。点此登录或注册