起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 142|回复: 7

【结贴】delphi office问题**

[复制链接]
发表于 2008-7-22 10:54:00 | 显示全部楼层 |阅读模式
我想先在delphi下实现word功能,然后拿.pas文件按引入第三方控件的方法导进X3,但到批处理命令时就通不过,出现无效的单元名Word2000的错误
回复

使用道具 举报

发表于 2008-7-22 10:57:53 | 显示全部楼层
详细描述一下楼主是怎么做的,
另外请提供详细错误信息或截图
回复 支持 反对

使用道具 举报

发表于 2008-7-22 11:00:38 | 显示全部楼层
参考文档
http://www.justep.com/ftp/Busine ... rdPartyControls.rar
其中有详细的错误说明及解决方法
回复 支持 反对

使用道具 举报

发表于 2008-7-22 11:05:24 | 显示全部楼层
错误的意思是批处理没找到这个单元,把这个单元拷贝到当前目录即可
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-7-22 11:20:02 | 显示全部楼层
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Word2000, OleServer;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    WordApplication1: TWordApplication;
    WordDocument1: TWordDocument;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
     WordApplication1.Connect;
    WordApplication1.Visible:=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    WordDocument1.Range.InsertAfter('asdfasd');
end;
end.
回复 支持 反对

使用道具 举报

发表于 2008-7-22 11:26:48 | 显示全部楼层
按4楼的做一下
回复 支持 反对

使用道具 举报

发表于 2008-7-22 14:26:41 | 显示全部楼层
楼主,你把它封装成一个dll,再往平台里导。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-7-22 15:05:38 | 显示全部楼层
这个先结了吧,遇到其它问题另发个贴问
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-19 13:20 , Processed in 0.046188 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表