简单的delphi函数翻译成C++Builder

nickgg 2009-09-11 02:39:31

谁能帮忙翻译:
function CreateObject(const ClassID: TGUID): IDispatch;
var
Unk: IUnknown;
begin
CoCreateInstance(ClassID, nil, CLSCTX_INPROC_SERVER, IUnknown, Unk);
Result := Unk as IDispatch;
end;

...全文

151 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

mjp1234airen4385 2009-09-12

打赏
举报

我在Delphi论坛翻译了。为什么不行？

laowang2 2009-09-12

打赏
举报

xjq2003 2009-09-11

打赏
举报

[Quote=引用 1 楼 ccrun 的回复:]
C/C++ code#include<objbase.h>

IDispatch*CreateObject(const GUID ClassID)
{
IUnknown*Unk;

CoCreateInstance(ClassID, NULL, CLSCTX_INPROC_SERVER, IID_IUnknown, (void**)&Unk);return (IDispatch*)¡
[/Quote]
ok

mazm_yanzhu 2009-09-11

打赏
举报

学习

ccrun.com 2009-09-11

打赏
举报

#include <objbase.h>



IDispatch *CreateObject(const GUID ClassID)

{

	IUnknown *Unk;



	CoCreateInstance(ClassID, NULL, CLSCTX_INPROC_SERVER, IID_IUnknown, (void **)&Unk);

	return (IDispatch *)Unk;

}