cat512,
Вы можете показать свои примеры?
Цитата(cat512 @ 17.2.2011, 22:13  ) | | Кстати где Couninitialize? |
На нем всегда и однозначно AV! Даже в пустом консольном приложении (я сейчас там разбираюсь с WMI).
Привожу код. Переписал по примеру с сайта MS.
извиняюсь, что не прикрепил файл. прокси не позволяет )
Значит так, пока не расставил везде вывод лога в файл один раз поймал тот самый AV. Расставил, запускаю, но поймать уже не могу ))
AV проявляется так. Запускаю программу она подвисает на какой-то функции и AV...
| Код |
program WMI_Test;
{$APPTYPE CONSOLE}
uses
SysUtils, ActiveX, WbemScripting_TLB,ComObj;
var
log : TextFile;
hres : HRESULT;
pLoc : TSWbemLocator;
pSvc : ISWbemServices;
pObjSet : ISWbemObjectSet;
pObj, pObj2 : ISWbemObject;
PropEnum, Enum: IEnumVariant;
TempObj: OleVariant;
Value: Cardinal;
PropSet: ISWbemPropertySet;
SProp: ISWbemProperty;
procedure to_log(_str : string);
begin
writeln(log,_str);
flush(log);
end;
begin
try
AssignFile(log,'c:\wmi_log.txt');
Append(log);
to_log('************************************');
to_log('Programm started!');
// Step 1: --------------------------------------------------
// Initialize COM. ------------------------------------------
to_log('CoInitializeEx');
hres := CoInitializeEx(nil, COINIT_MULTITHREADED);
if (FAILED(hres)) then
begin
to_log(#9'CoInitializeEx - ERROR');
exit;
end;
to_log(#9'CoInitializeEx - OK');
// Step 2: --------------------------------------------------
// Set general COM security levels --------------------------
// Note: If you are using Windows 2000, you need to specify -
// the default authentication credentials for a user by using
// a SOLE_AUTHENTICATION_LIST structure in the pAuthList ----
// parameter of CoInitializeSecurity ------------------------
to_log('CoInitializeSecurity');
hres := CoInitializeSecurity(
nil,
-1, // COM authentication
nil, // Authentication services
nil, // Reserved
{RPC_C_AUTHN_LEVEL_DEFAULT}0, // Default authentication
{RPC_C_IMP_LEVEL_IMPERSONATE}3, // Default Impersonation
nil, // Authentication info
{EOAC_NONE}0, // Additional capabilities
nil // Reserved
);
if (FAILED(hres)) then
begin
to_log(#9'CoInitializeSecurity - ERROR');
exit;
end;
to_log(#9'CoInitializeSecurity - OK');
// Step 3: ---------------------------------------------------
// Obtain the initial locator to WMI -------------------------
to_log('TSWbemLocator.Create');
pLoc := TSWbemLocator.Create(nil);
if not Assigned(pLoc) then
begin
to_log(#9'TSWbemLocator.Create - ERROR');
exit;
end;
to_log(#9'TSWbemLocator.Create - OK');
// Step 4: -----------------------------------------------------
// Connect to WMI through the IWbemLocator::ConnectServer method
// Connect to the root\cimv2 namespace with
// the current user and obtain pointer pSvc
// to make IWbemServices calls.
to_log('pLoc.ConnectServer');
pSvc:=pLoc.ConnectServer('','root\cimv2','','','','',0,nil);
if not Assigned(pSvc) then
begin
to_log(#9'pLoc.ConnectServer - ERROR');
exit;
end;
to_log(#9'pLoc.ConnectServer - OK');
// Step 5: --------------------------------------------------
// Set security levels on the proxy -------------------------
to_log('CoSetProxyBlanket');
hres := CoSetProxyBlanket(
pSvc, // Indicates the proxy to set
{RPC_C_AUTHN_WINNT}10, // RPC_C_AUTHN_xxx
{RPC_C_AUTHZ_NONE}0, // RPC_C_AUTHZ_xxx
nil, // Server principal name
{RPC_C_AUTHN_LEVEL_CALL}3, // RPC_C_AUTHN_LEVEL_xxx
{RPC_C_IMP_LEVEL_IMPERSONATE}3, // RPC_C_IMP_LEVEL_xxx
nil, // client identity
{EOAC_NONE}0 // proxy capabilities
);
if (FAILED(hres)) then
begin
to_log(#9'CoSetProxyBlanket - ERROR');
exit;
end;
to_log(#9'CoSetProxyBlanket - OK');
// ISWbemObjectSet = IEnumWbemClassObject
// Step 6: --------------------------------------------------
to_log('pSvc.Get');
pObj:=pSvc.Get('Win32_BIOS',wbemFlagUseAmendedQualifiers,nil);
if not Assigned(pObj) then
begin
to_log(#9'pSvc.Get - ERROR');
// pSvc._Release;
// pLoc.Free;
// CoUninitialize();
exit;
end;
to_log(#9'pSvc.Get - OK');
to_log('pObj.Instances_');
pObjSet:=pObj.Instances_(0,nil);
if not Assigned(pObjSet) then
begin
to_log(#9'pObj.Instances_ - ERROR');
exit;
end;
to_log(#9'pObj.Instances_ - OK');
to_log('Enum');
Enum:=(pObjSet._NewEnum) as IEnumVariant;
if not Assigned(Enum) then
begin
to_log(#9'Enum - ERROR');
exit;
end;
to_log(#9'Enum - OK');
to_log('Enum.Next');
if (Enum.Next(1, TempObj, Value) = S_OK) then
begin
// здесь по идеет должно быть все валидно. цепочка от TempObj
pObj2:= IUnknown(TempObj) as SWBemObject;
PropSet:= pObj2.Properties_;
PropEnum:= (PropSet._NewEnum) as IEnumVariant;
// начинаю перебирать свойства
while (PropEnum.Next(1, TempObj, Value) = S_OK) do
begin
SProp:= IUnknown(TempObj) as SWBemProperty;
Writeln(SProp.Name);
end;
to_log(#9'Enum.Next - OK');
end
else
to_log(#9'Enum.Next - ERROR');
// CoUninitialize; <<<< AV here!!
to_log('End of programm!');
CloseFile(log);
except
on E:Exception do
to_log('!!!VA - '+E.Classname+': '+E.Message);
end;
end.
|
|