【搞定】如何实现在X3平台对Word受控？**

xieyingliang

[B]以下是对Word受控的一段Delphi代码，可以编译通过[/B] procedure TForm1.Button1Click(Sender: TObject);
var
    BS: tmemorystream;
    word:variant;
    s:string;
    BlobField: TField;
begin                                //分解Word 原文
    dbedit1.DataField:='';
    delete_s_ole;
    if not OpenDialog1.Execute then exit;
    with adoquery1 do begin
        close;
        sql.Text:='delete from File_nr';
        execsql;
        close;
        sql.Text:='select * from File_nr';
        open;
    end;
    word:=createoleobject('word.application');
    word.documents.add;
    word.Selection.InsertFile(OpenDialog1.FileName);   //打开word文件
    s:='s';
    while s<>'' do begin
        s:=get_olecontainer(word);          // 得到Word的每一页
        if olecontainer2.canpaste then olecontainer2.paste;
        olecontainer2.update;
        with adoquery1 do begin                        //存贮得到的一页Word文件
            bs:=tmemorystream.Create;;
            olecontainer2.SaveToStream(bs);
            blobField:=fieldbyname('nr');
            Append;
            (BlobField as Tblobfield).loadFromStream(bs);
            Post;
        end;
    end;
    word.ActiveDocument.Saved:=True;
    word.quit;
    BitBtn1.Click;              //   预览
end;
我的问题是代码移植到平台后，定义了一个Variant类型的变量Word，下面的代码如：word.documents.add;
word.Selection.InsertFile(OpenDialog1.FileName);   
word.ActiveDocument.Saved:=True;
等编译不能通过，请教一下各位大侠，要实现类似的功能，代码该怎么写啊？

xieyingliang

狂顶

lisb

想在平台中直接操作word需要在delphi中写好相关代码，然后生成bpl和dll包，引入到平台中，然后再调用外部包中的方法，不能在平台中直接写类似上面的代码。关于如何引入外部包，请在论坛中搜索“引用外部包”

xieyingliang

此法太复杂！是否还有第二条路？？？

lisb

应该是没有了，我们自己做也是要这样做的。

xieyingliang

谢谢大侠指点，既然这样，结贴！

alang

1楼的代码可以参考  http://bbs.justep.com/forum.php? ... ght=createoleobject

xieyingliang

多谢alang

newjack

调用外部包实在太麻烦了。

我觉得X3不能自由的引用DLL和COM是一个不小的失败。

这么做，把我们原来的优势全部都封死了。

alang

封死不至于吧，至少是可以做，而且现在支持接口了，调入控件就几步，应该不算很麻烦吧