一个比较难的问题，谁能将这段VC的代码转成Delphi的。。。高手请进

[black_fox]

#include "stdafx.h"
#include "stdio.h"
#include "activeds.h"
int main(int argc, char* argv[])
{
HRESULT hr;
IADsContainer *pCont;
CoInitialize(NULL);
hr = ADsGetObject(L"IIS://blackfox/w3svc/1/root", IID_IADsContainer, (void**) &pCont );
if ( !SUCCEEDED(hr) )
{
return 0;
}

IEnumVARIANT *pEnum = NULL;
hr = ADsBuildEnumerator( pCont, &pEnum );
if ( SUCCEEDED(hr) )
{
VARIANT var;
ULONG lFetch;
IADs *pChild=NULL;
VariantInit(&var);

while( SUCCEEDED(ADsEnumerateNext( pEnum, 1, &var, &lFetch )) && lFetch == 1 )
{
hr = V_DISPATCH(&var)->QueryInterface( IID_IADs, (void**) &pChild );
if ( SUCCEEDED(hr) )
{
BSTR bstrName;
BSTR bstrClass;
pChild->get_Name(&bstrName);
pChild->get_Class(&bstrClass);
printf("%S\t(%S)\n", bstrName,bstrClass );
SysFreeString(bstrName);
SysFreeString(bstrClass);
pChild->Release();
}
VariantClear(&var);
}
}
if ( pEnum )
{
ADsFreeEnumerator( pEnum );
}
pCont->Release();
CoUninitialize();
return 0;
}

[Kingron]

你这段代码，还缺少那个Activexds.h文件，否则翻译成Delphi也没有办法编译。需要翻译相应的头文件。

[black_fox]

我快搞定了。。只差一点

[black_fox]

HRESULT ADsEnumerateNext(
IEnumVARIANT *pEnumVariant,
ULONG cElements,
VARIANT FAR *pvar,
ULONG FAR *pcElementsFetched
);
这个不知到能不能搞定啊。

[black_fox]

function ADsEnumerateNext(pEnumVariant:IUnknown;cElements:longint; pvar:VARIANT;out pcElementsFetched:longint):hresult;stdcall;

这样不行啊。。

[copy_paste]

type
PVariant = ^Variant;

function ADsEnumerateNext(var pEnumVariant: IUnknown; cElements: longint; var pvar: PVARIANT; out pcElementsFetched: longint): hresult; stdcall;
这样试试

[black_fox]

还是不行啊
高手救命。。。

[copy_paste]

那些函数是哪个DLL的,我试试看

[copy_paste]

还有像Kingron所说即使函数能用了，还得去把那个IADs接口翻译过来，不然还是不能编绎的。
IEnumVARIANT 在ActiveX.pas有，就是IADs和那些函数

[black_fox]

function ADsEnumerateNext(pEnumVariant:IUnknown;cElements:LongWord; pvar:OleVariant;out pcElementsFetched:LongWord):hresult;stdcall;
这样也能不过。。天啊。。。delphi真的搞不定吗。

[black_fox]

是这样的。。
function ADsGetObject(const PathName: WideString; const GUID: TGUID; out I: IUnknown): HRESULT; stdcall;
function ADsBuildEnumerator(pADsContainer:IADsContainer;out oppEnumVariant:IUnknown):hresult;stdcall;
function ADsEnumerateNext(pEnumVariant:IUnknown;cElements:LongWord; pvar:OleVariant;out pcElementsFetched:LongWord):hresult;stdcall;

function ADsGetObject; external 'activeds.dll' name 'ADsGetObject';
function ADsBuildEnumerator; external 'activeds.dll' name 'ADsBuildEnumerator';
function ADsEnumerateNext; external 'activeds.dll' name 'ADsEnumerateNext';
前面两个都可以成功，在C中定义为..
HRESULT ADsGetObject(
LPWSTR lpszPathName,
REFIID riid,
VOID **ppObject
);
HRESULT ADsBuildEnumerator(
IADsContainer *pADsContainer,
IEnumVARIANT **ppEnumVariant
);
HRESULT ADsEnumerateNext(
IEnumVARIANT *pEnumVariant,
ULONG cElements,
VARIANT FAR *pvar,
ULONG FAR *pcElementsFetched
);

我就想不通前两个都可以。。为什么最后一个不行。。。问题出在哪了

[black_fox]

问题还是没有解决。。。。。。。
不过我找到另外的一个方法实现这个功能了。。
明天贴出来。。
另外：哪个高手能解决上面的问题。。。。。。。其实关键是ADsEnumerateNext的声明怎么写？？