Глюки с ActiveX / ActiveDS

From

Gennady Porev (2:5020/69.36)

To

All

Date

2002-10-18T21:14Z

Area

SU.WINDOWS.NT.PROG

Hi, All!

Вот. Правильно пишет путь и после "end." вылетает по access violation по адресу 0000000 при чтении 00000000. То есть видимо не почищен стэк, на котором лежал нолик, который кинул туда исполнение. Я уж и не знаю что делать :-(((((((((((((((((( То есть оно конечно можно написать в конце "asm pop eax end;", но как тогда выносить это в функцию всё?...

-----------------------------------
{$APPTYPE CONSOLE}
program adstest;

uses ActiveX,ActiveDS_TLB,ADSHlp;

var Cont : IADsContainer;
    ADs  : IADs;

begin
 CoInitialize(nil);
 ADsGetObject('IIS://vinca/W3Svc/1',IADsContainer,Cont);
 Cont.QueryInterface(IID_IADs,ADs);
 Writeln(ADs.Get('LogFileDirectory'));
 ADs._Release;
 Cont._Release;
 CoUninitialize;
end.
-----------------------------------

PS. Надеюсь что всё из uses более-менее стандартно при работе с ActiveX ?

 Relax -=- Gennady -=- icq: 13031700

* Разослано также в SU.WINDOWS.PROG
* Разослано также в SU.WINDOWS.NT.PROG

--- GoldED/W32 3.0.1
 * Origin: Expansion HeadQuarter (2:5020/69.36)