2 KirillovA с вашей манией величия можете в этот топ не заходить. То же мне умник.
2 srf2000 дело не в MSXML.DOMDocument. Я натолкнулся на эту ситуацию в другой программе, где вызывал свой COM-объект. Думал у меня объект кривой. Создал с нуля новый проект, где создаю довольно стабильный по-моему объект MSXML.DOMDocument. Дело даже не в этом.
Такой код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
program PrjConsExcept;
{$APPTYPE CONSOLE}
uses SysUtils, ActiveX, ComObj;
var iConv :IDispatch;
begin
CoInitialize(nil);
iConv := CreateOleObject('MSXML.DOMDocument');
Writeln('One');
Writeln('Two');
Writeln('Three');
iConv := nil;
CoUninitialize;
Writeln('Fin');
end.
Дает такой результат:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
program PrjConsExcept;
{$APPTYPE CONSOLE}
uses SysUtils, ActiveX, ComObj;
var s :string;
iConv :IDispatch;
begin
// Insert user code here
CoInitialize(nil);
s:='';
// try
// try
iConv := CreateOleObject('MSXML.DOMDocument');
Writeln('One');
Writeln('Two');
// raise Exception.Create('Babah!');
// OleVariant(iConv).load('d:\work\para\sampleconv.xml');
Writeln('Three');
// finally
iConv := nil;
CoUninitialize;
{ end;
except
on e:Exception do begin
s := e.Message;
end;
end;
// CoUninitialize;
if s<>'' then Writeln(s);}
Writeln('Fin');
end.
