delphi操作coreldrwa的CDR文件

Question

如何用DELPHI打开coreldrwa的CDR文件，然后导出成JPG格式的图片，谢谢！

Answer 1

这个貌似比较难。不知道有没有第三方的控件支持或者 corldraw 提供不提供 ocx 之类的。如果从头自己写的话，我觉得不是个明智的办法，而且可能还涉嫌侵权。

Answer 2

我知道用OLE是可以的，不过不知道VBA代码怎么写？

Answer 3

现在已经可以打开CDR格式的文件了，就是不知道怎么导出或者导出的方法是什么：procedure TForm1.Button1Click(Sender: TObject);
var
    Draw: OleVariant;
begin
    Draw := CreateOleObject('CorelDraw.Automation.12');
    Draw.FileOpen('C:\Documents and Settings\becky\桌面\Temp\001.cdr');
    //接下来应该是导出了，不知道怎么写
end;以下是我通过CorelDraw录制的打开和导出的宏，不知道用DELPHI怎么用：
Sub Macro1()
    Dim doc1 As Document
    Set doc1 = OpenDocument("C:\Documents and Settings\becky\桌面\Temp\001.cdr")
    Dim expflt As ExportFilter
    Set expflt = doc1.ExportBitmap("C:\Documents and Settings\becky\桌面\Temp\001.jpg", cdrJPEG, cdrAllPages, cdrRGBColorImage, 1873, 2402, 300, 300, cdrNormalAntiAliasing, False, False, True, False, cdrCompressionNone)
    With expflt
        .Progressive = False
        .Optimized = False
        .SubFormat = 0
        .Compression = 10
        .Smoothing = 10
        .Finish
    End With
    doc1.Close
End Sub接下来怎么处理，请高手们帮忙看看！

Answer 4

你都打开OLE了，把这个CorelDraw.Automation.12 导出类型库，Dim expflt As ExportFilter ，再使用ExportFilter接口进行操作