Z
zrj
Unregistered / Unconfirmed
GUEST, unregistred user!
如何用一个按钮启动word并同时创建两个文档,一个叫question,一个叫answer,
question文档插入当前表的question字段(blob字段),answer文档插入当前表的
answer字段(blob字段),我用了delphi5的wordapplication和worddocument,看
delphi5的例子只能产生一个文档,并且没有插入blob字段的例子,(那个是插入
图片的,好象不一样吧),大家帮忙改改这断程序吧,以后我也少些麻烦.第一次
启动了word之后,以后插入记录哪段代码可以不要??请高手仔细分析一下,以后我等
小虾也好少犯错误啊,(重要的句子加些注释,我认为例子还不详细)
procedure Tselectquestion.PaperClick(Sender: TObject);
var Template,NewTemplate,ItemIndex:OleVariant;
begin
if bool then
begin
try
Template := EmptyParam;
NewTemplate:= True;
ItemIndex:= 1;
try
Wordapplication.Connect;
except
MessageDlg('Microsoft Word 可能没有安装', mtError, [mbOk], 0);
Abort;
end;
Wordapplication.Visible :=True;
WordApplication.Caption := '无标题试卷';
Template := EmptyParam;
NewTemplate := False;
WordApplication.Documents.Add(Template, NewTemplate);
WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));
WordApplication.Options.CheckSpellingAsYouType := False;
WordApplication.Options.CheckGrammarAsYouType := False;
bool:=false;
except
on E: Exception do
begin
ShowMessage(E.Message);
WordApplication.Disconnect;
end;
end;
end;
{Insert data}
//DBImgFishImg.CopyToClipboard;
// WordDocument.Sentences.Last.Paste;
WordDocument.Range.InsertAfter('Common Name: 1' + #13);
WordDocument.Range.InsertAfter('Common Name: ' + #13);
end;
end.
我想用bool(boolean变量)确定word文档是不是已经创建,要是创建了
就直接插入word文档中,不过这个字段是blob字段,直接用
worddocument.range.insertafter(dm.questiontable.fieldbyname('question').asstring+#13);
好象不行的吧,据说要用流的概念的,请大虾写出代码来,最后请写出如何把修改完的word
文档重新写会数据库的blob字段的例子,先谢谢大家!!
question文档插入当前表的question字段(blob字段),answer文档插入当前表的
answer字段(blob字段),我用了delphi5的wordapplication和worddocument,看
delphi5的例子只能产生一个文档,并且没有插入blob字段的例子,(那个是插入
图片的,好象不一样吧),大家帮忙改改这断程序吧,以后我也少些麻烦.第一次
启动了word之后,以后插入记录哪段代码可以不要??请高手仔细分析一下,以后我等
小虾也好少犯错误啊,(重要的句子加些注释,我认为例子还不详细)
procedure Tselectquestion.PaperClick(Sender: TObject);
var Template,NewTemplate,ItemIndex:OleVariant;
begin
if bool then
begin
try
Template := EmptyParam;
NewTemplate:= True;
ItemIndex:= 1;
try
Wordapplication.Connect;
except
MessageDlg('Microsoft Word 可能没有安装', mtError, [mbOk], 0);
Abort;
end;
Wordapplication.Visible :=True;
WordApplication.Caption := '无标题试卷';
Template := EmptyParam;
NewTemplate := False;
WordApplication.Documents.Add(Template, NewTemplate);
WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));
WordApplication.Options.CheckSpellingAsYouType := False;
WordApplication.Options.CheckGrammarAsYouType := False;
bool:=false;
except
on E: Exception do
begin
ShowMessage(E.Message);
WordApplication.Disconnect;
end;
end;
end;
{Insert data}
//DBImgFishImg.CopyToClipboard;
// WordDocument.Sentences.Last.Paste;
WordDocument.Range.InsertAfter('Common Name: 1' + #13);
WordDocument.Range.InsertAfter('Common Name: ' + #13);
end;
end.
我想用bool(boolean变量)确定word文档是不是已经创建,要是创建了
就直接插入word文档中,不过这个字段是blob字段,直接用
worddocument.range.insertafter(dm.questiontable.fieldbyname('question').asstring+#13);
好象不行的吧,据说要用流的概念的,请大虾写出代码来,最后请写出如何把修改完的word
文档重新写会数据库的blob字段的例子,先谢谢大家!!