Текущий архив: 2013.06.09;
Скачать: CL | DM;

Вниз

проблема с OpenStream   Найти похожие ветки 

← →
brahman   (2010-02-05 14:48) [0]

Пытаюсь сделать drag"n"drop вложений из почтового клинета. при попытке создания потока из IStorage дает AV на 775F5B6E accessing 00000010
Format.cfFormat := CF_FILEDESCRIPTOR;
 Format.ptd := nil;
 Format.dwAspect := 1;
 Format.lindex := -1;
 Format.tymed := TYMED_HGLOBAL;

 if (dataObj.GetData(Format, Medium) = S_OK) then
   begin
     pfgd := PFileGroupDescriptor(GlobalLock(Medium.hGlobal));
      // Iterate each of the files
     for dwCount := 0 to pfgd.cItems - 1 do
       begin
         // Set up for getting the file data
         Format.cfFormat := CF_FILECONTENTS;
         Format.ptd := nil;
         Format.dwAspect := 1;
         Format.lindex := dwCount;
         Format.tymed := TYMED_ISTORAGE or TYMED_ISTREAM;
         if (dataObj.GetData(Format, stgmitem) = S_OK) then
           begin
             pstg := IStorage(stgmitem.stg);
             if pstg.OpenStream("__substg1.0_10090102", nil, STGM_READ or STGM_SHARE_EXCLUSIVE, 0, pstm) = S_OK then
               ...

Укажите, плиз, че не так у меня

---

← →
Сергей М. ©   (2010-02-05 15:29) [1]

одно из двух - либо в pstg nil или мусор либо адрес pstm инвалиден

---

Страницы: 1 вся ветка

Текущий архив: 2013.06.09;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.007 c