Как в Visual C++ 2005 сделать GetObject?

[Antonariy]

Конкретно из этого:

Код: Выделить всё

On Error Resume Next
Set obj=GetObject(, "App.Class")
If obj Is Nothing Then
    strOut = "Error"
Else
    strOut = obj.Method(strIn)
End If

должно получиться что-то вроде:

Код: Выделить всё

CString strOut="";
try{
    obj = GetObject() //еще, как првильно объявить obj?
}catch(int e){strOut = "Error"}
if(strOut=="") strOut = obj->Method(strIn);

Правильно ли все остальное? App.Class это VB6 Activex exe, метод возвращает строку.

[BV]

CComPtrBase::CoCreateInstance или где?

[Antonariy]

Откуда я знаю, где или кто? Знал бы - не спрашивал.
CComPtrBase::CoCreateInstance - а полностью эта строчка как должна выглядеть?

[BV]

А полностью в MSDN, как ни странно

[ANDLL]

Antonariy
А что, и правда твой код на VB6 не возвращает все время "Error"? Или мож ты всетаки где опечатался?

[Antonariy]

BV
Для человека, который не знает c++ чуть больше, чем полностью (это я), MSDN бесполезен.

ANDLL
Хм, с какой стати код на VB должен выдавать Error, если приложение запущено и сделано RegisterActiveObject?

[Antonariy]

Предоставлю больше конкретики.

Код: Выделить всё

HRESULT CDataPluggableProtocol::LoadDataToIStream(LPCWSTR wstrUrl)
{

   CString strUrl = wstrUrl;
   CString strFileName;

   // parse URL
   strFileName = strUrl.Right(strUrl.GetLength() - (strUrl.Find(_T("//"),0)+2));

   // open file
   HANDLE hFile = CreateFile(strFileName, GENERIC_READ, 0, NULL, OPEN_EXISTING, 0, NULL);
   _ASSERTE(INVALID_HANDLE_VALUE != hFile);

   // get file size
   DWORD dwFileSize = GetFileSize(hFile, NULL);
   _ASSERTE(-1 != dwFileSize);

   LPVOID pvData = NULL;
   // alloc memory based on file size
   HGLOBAL hGlobal = GlobalAlloc(GMEM_MOVEABLE, dwFileSize);
   _ASSERTE(NULL != hGlobal);

   pvData = GlobalLock(hGlobal);
   _ASSERTE(NULL != pvData);

   DWORD dwBytesRead = 0;
   // read file and store in global memory
   BOOL bRead = ReadFile(hFile, pvData, dwFileSize, &dwBytesRead, NULL);
   _ASSERTE(FALSE != bRead);
   GlobalUnlock(hGlobal);
   CloseHandle(hFile);

   // create IStream* from global memory
   m_pIStream.Release();
   HRESULT hr = CreateStreamOnHGlobal(hGlobal, TRUE, &m_pIStream);
   _ASSERTE(SUCCEEDED(hr) && m_pIStream);
   if(FAILED(hr))
      return hr;

   ULARGE_INTEGER nLen;
   LARGE_INTEGER nLen1;
   nLen1.QuadPart = 0;
   if(FAILED(m_pIStream->Seek(nLen1, STREAM_SEEK_END, &nLen)))
      return E_FAIL;
   m_lSize = nLen.LowPart;
   m_lPosition = 0;
   return S_OK;
}

Нужно выкинуть все, связанное с получением данных из файла, и заменить на получение данных из метода запущенного VB6-ActiveX EXE. Метод параметром принимает url.

[ANDLL]

Ну тогда поможет фнкция CoGetObject а не CoCreateInstance. Пример в сети мне кажеться довольно много, разве нет?