VC 调用DELPHI 的dll （急急）

Question

接口说明
a) 接口注册的COM类型标b) 识：P2PDown.PPDown
c) 接口GUID：{C57AD031-5D18-4942-A32B-E209A072AA55}
d) 接口声明：
IPPDown = interface(IDispatch)
    ['{D56077D8-6428-4DD3-8BF6-64B7396DFCFF}']
    function AddTask(AHandle: Integer; const AURL: WideString; const AReferURL: WideString; 
                     const AMD5: WideString; const AFileName: WideString; AFileSize: Int64; 
                     const ASavePath: WideString): Integer; safecall;
    function DeleteTask(ATaskID: Integer; ADeleteFile: WordBool): Integer; safecall;

Answer 1

这个dll好眼熟+___+举例如下：
首先你应当把这个COM库导入进来：#pragma import("dll路径")
它会为你生成头文件.tlh
然后包含这个头文件，你就有了例如CPPDown之类的类。
然后你可以用智能指针来创建对象：
CComPtr<IPPDown> ppdown;
ppdown.CoCreateInstance(IID_IPPDown);
然后就可以用了。
记得在程序开头要加::CoInitialize(NULL);末尾加CoUninitialize();

Answer 2

#pragma   import( "dll路径 ")  就通不过编译也