ft!有这么散分的吗?我cbuilder中的代码: CoInitialize(NULL);
HRESULT hr;
LPSQLDMOSERVER pSQLServer;
LPSQLDMOAPPLICATION pApplication;
LPSQLDMONAMELIST pNameList;
long lSqlCount = 0L; hr = CoCreateInstance(CLSID_SQLDMOServer,NULL,CLSCTX_INPROC_SERVER,IID_ISQLDMOServer,(void**)&pSQLServer);
if(SUCCEEDED(hr)==false){
logtext = "CoCreateInstance调用失败!!!返回值是:"+IntToStr(hr);
WriteLog();
CoUninitialize();
}
else{
wchar_t* sqlserver = new wchar_t[240];
try{
pSQLServer->GetApplication(&pApplication);
pApplication->ListAvailableSQLServers(&pNameList);
pNameList->GetCount(&lSqlCount);
logtext = "下面是网上邻居中找到的可用的SqlServer2000服务器:";
WriteLog();
for(long i=0;i<lSqlCount;i++){
pNameList->GetItemByOrd(i,&sqlserver);
comboboxSqlserverList->Items->Add(AnsiString(sqlserver));
logtext = AnsiString(sqlserver);
WriteLog();
}
pSQLServer->Release();
}
__finally{
logtext = "正在进行COM反初始化";
WriteLog();
// delete sqlserver;
logtext = "删除SqlServer成功";
WriteLog();
CoUninitialize();
logtext = "COM反初始化成功";
WriteLog();
}
}
HRESULT hr;
LPSQLDMOSERVER pSQLServer;
LPSQLDMOAPPLICATION pApplication;
LPSQLDMONAMELIST pNameList;
long lSqlCount = 0L; hr = CoCreateInstance(CLSID_SQLDMOServer,NULL,CLSCTX_INPROC_SERVER,IID_ISQLDMOServer,(void**)&pSQLServer);
if(SUCCEEDED(hr)==false){
logtext = "CoCreateInstance调用失败!!!返回值是:"+IntToStr(hr);
WriteLog();
CoUninitialize();
}
else{
wchar_t* sqlserver = new wchar_t[240];
try{
pSQLServer->GetApplication(&pApplication);
pApplication->ListAvailableSQLServers(&pNameList);
pNameList->GetCount(&lSqlCount);
logtext = "下面是网上邻居中找到的可用的SqlServer2000服务器:";
WriteLog();
for(long i=0;i<lSqlCount;i++){
pNameList->GetItemByOrd(i,&sqlserver);
comboboxSqlserverList->Items->Add(AnsiString(sqlserver));
logtext = AnsiString(sqlserver);
WriteLog();
}
pSQLServer->Release();
}
__finally{
logtext = "正在进行COM反初始化";
WriteLog();
// delete sqlserver;
logtext = "删除SqlServer成功";
WriteLog();
CoUninitialize();
logtext = "COM反初始化成功";
WriteLog();
}
}
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货