Загрузка отчета из ресурса

NaZGuL_ITV

Подскажите как правильно загрузить отчет из ресурса?
Вот код, который сейчас использую:

  HRSRC hRes = FindResource(theApp.m_hInstance, MAKEINTRESOURCE(IDR_REPORT_INFRTIME),
        _T("REPORT"));
  // Load the resource and save its total size.
        DWORD dwSize = SizeofResource(theApp.m_hInstance , hRes);
        HGLOBAL MemoryHandle = LoadResource(theApp.m_hInstance, hRes);
        if(MemoryHandle != NULL) {
  	BYTE *MemPtr = (BYTE *)LockResource(MemoryHandle);  
  	LPSTREAM lpStream;  
  	CreateStreamOnHGlobal(NULL,TRUE,&lpStream);  	
  	lpStream->Write(MemPtr,dwSize,NULL);
  	if (m_pReport->LoadReportFromStream(lpStream))
  	{

  	}
  	lpStream->Release();
  	lpStream = NULL;
  }

У меня этот код не работает! Вылезает exception при LoadReportFromStream(lpStream).
Подскажите как это делать правильно!!!

NaZGuL_ITV

Всем спасибо!
Оказалось, что exception к делу не относится! А отчет прекрасно грузится! Если у кого, по моему коду, возникнут какие-то замечания, то я с радостью их прочту.

Mandor

А вот помогите еще с загрузкой отчета из потока, но в VB.NET
Вот код, написанный практически наугад, после лазанья по форуму rsdn.ru:

       ' Загружаем сборку по ее пути.
        Dim assm As System.Reflection.Assembly = System.Reflection.Assembly.LoadFrom("fr_Test.exe")
        Dim strm As Stream = assm.GetManifestResourceStream("fr_Test.fr_Test.xml")

        frx = New TfrxReport
        frx.LoadReportFromStream(strm)

При выполнении последней строки выпадывает

написал:

An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in fr_Test.exe

Additional information: Неопознанная ошибка

Как бороться?
Может я в корне неправильно делаю? Подскажите...
шаблон отчета добавлен в проект и ему в свойствах установлено Build Action: Embedded resource.

Mandor

Mandor написал:

А вот помогите еще с загрузкой отчета из потока

Неужели никто не поможет?
Ау, разработчики?