[求助]有个很少的C++源码急着需要翻译成其它源码

专属天使

下面的源码是用来判断数据流的编码的，由一个叫jiangsheng的朋友提供，在此先谢谢他。
但是我不会用C++，现在急着需要用这个源码，请大虾们帮个忙，帮个忙把下面的源码翻译成vb\delphi或net的，或者做个DLL给我，最好是翻译成VB.NET的，小弟不胜感激，在此先谢谢了。
我的联系方式:
QQ:237019683(网页编码)
Mail:237019683@qq.com
static HRESULT DetectCodePage(
IStreamPtr spStream,
std::vector<DWORD>& dwCodePages,
DWORD dwFlag = MLDETECTCP_8BIT,
DWORD dwPrefWinCodePage = 0)
{
HRESULT hr = S_OK;
const int N = 32;
INT nScores = N;
DetectEncodingInfo info[N];
hr = DetectCodepageInIStream(
dwFlag,
dwPrefWinCodePage,
spStream,
info,
&nScores);
if (FAILED(hr))
{
return hr;
}
for (int i = 0; i < nScores; i++)
{
dwCodePages.push_back(info[i].nCodePage);
}
return S_OK;
}
// IE5.0 or lator
static HRESULT DetectCodepageInIStream(
DWORD dwFlag,
DWORD dwPrefWinCodePage,
IStream *pstmIn,
DetectEncodingInfo *lpEncoding,
INT *pnScores)
{
HRESULT hr = S_OK;
try
{
IMultiLanguage2Ptr spMultiLanguage2 = GetMultiLanguage();
if (spMultiLanguage2 == NULL)
{
return E_FAIL;
}
这个是调用浏览器的spMultiLanguage2接口的一个方法DetectCodepageInIStream
hr = spMultiLanguage2->DetectCodepageInIStream(
dwFlag,
dwPrefWinCodePage,
pstmIn,
lpEncoding,
pnScores);
if (FAILED(hr))
{
return hr;
}
}
catch (...)
{
return E_FAIL;
}
return S_OK;
}
static IMultiLanguagePtr GetMultiLanguage()
{
HRESULT hr = S_OK;
IMultiLanguagePtr spMultiLanguage;
hr = spMultiLanguage.CreateInstance(__uuidof(CMultiLanguage));
if (FAILED(hr))
{
return NULL;
}
return spMultiLanguage;
}

爱琴海

我的VC6，是准备帮你写成dll的，但是发现VC6里的头文件不全，没有包含这些代码里某些类型的声明和定义，不好意思了！