Форум: "WinAPI";
Текущий архив: 2013.06.09;
Скачать: [xml.tar.bz2];
Внизпроблема с 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 вся ветка
Форум: "WinAPI";
Текущий архив: 2013.06.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.002 c