Delphi 二次开发 CorelDRAW

我们首先通过一个简单的程序例子来看一下Delphi对CorelDRAW二次开发有什么样的效果。本程序实现CorelDRAW程序的打开和关闭。

1.1 Delphi与CorelDRAW连接

在程序与CorelDRAW进行控制的时候，必须要通过一个桥梁，而这个桥梁需要通过我们的代码来实现。只有实现了程序与CorelDRAW之间的通讯，才能进行下一步的工作。再次我们为您提供一个Delphi连接CorelDRAW的样板代码，每次进行开发的时候您可以通过修改此代码来实现与CorelDRAW之间的连接。

新建一个工程，然后向新建的工程中加入CorelDRAW类库，步骤如下所示（这里以Delphi 2009 为例，其它类似）：

1.选择菜单"Component"—"Import Component"，在对话框中选择Import a Type Component单选按钮，单击Next按钮；

 

2.在新跳出的对话框中单击Add（添加）按钮，然后找到CorelDRAW的类型库文件。CorelDRAW类型库文件有版本区分（这里以CorelDRAW X4 为例），说明文字为Corel-Vector Graphics Core XX.0 Type Library，名称为VGCoreAuto.tlb，这个文件保存在“C:\Program Files\Corel\Corel Graphics XX\Programs”目录下。（C:为默认安装盘，XX为CorelDRAW的版本号），点击Next按钮；

3.保持默认值，点击Next，选择“Add Unit to Project1.dproj project”，单击Finish按钮完成添加。保存工程到文件夹。

4.如下图所示，这样我们就在Delphi中成功的添加了CorelDRAW类库。

5.在窗体上添加两个按钮控件，分别为两个按钮命名为打开和关闭，在代码引用部分添加一下引用：VGCore_TLB。

代码如下：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, VGCore_TLB;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end; 

//定义全局变量
var
　m_pApp: IVGApplication;
　Form1: TForm1;

implementation

{$R *.dfm}

uses
　ComObj; //Delphi开发CorelDRAW利用的是COM编程，在这里需要添加COM对象
 
//打开CDR窗口
procedure TForm1.Button1Click(Sender: TObject);
begin
  m_pApp := CreateOLEObject('CorelDRAW.Application.12') as IVGApplication;
  //在这里我们利用 CreateOLEObjec 函数来创建新的 CorelDRAW，从而实现打开 CorelDRAW。
  m_pApp.Visible := True;
  //创建了 CorelDRAW 需要对 CorelDRAW 的可见性进行定义，如果没有这一条，CorelDRAW 将不以窗口形式显现。
end;

//关闭CorelDRAW窗口
procedure TForm1.Button2Click(Sender: TObject);
begin
  try
    m_pApp := GetActiveOleObject('CorelDRAW.Application.12') as IVGApplication;
　　//获得活动的CorelDRAW对象
    m_pApp.Quit;
  except
    MessageBox(Handle, 'CorelDRAW没有运行', '提示', MB_OK + MB_iconinformation);
  end;
end;

end.