[delphi] WMI try except

[Verwijderd]

Hallo allen,

Ik heb de onderstaande code geschreven om informatie te kunnn verkrijgen van het WMI interface van een Remote Computer. Probleem doet zich echter voor als deze procedure niet aan het wmi_interface van de betreffende computer kan verbinden. Dat komt er een exception. Daarom moet ik een try...except invoegen bij de regel

code:

services:=locator.connectserver(Computername2,'','','','','',0, nil);

Ik heb dit al op diverse manieren geprobeerd, maar ik krijg geen werkende code. Is er iemand die weet hoe ik dit het beste kan doen ?

code:

Procedure TForm1.Getinfo (WMI_Interface: String);
Var
  Locator       : ISWbemLocator;
  Services      : ISWbemServices;
  ObjectSet     : SWbemObjectSet;
  Enum          : IEnumVARIANT;
  TempObj       : OleVariant;
  Value         : Cardinal;
  SObject       : ISWbemObject;
begin
MyResults := TStringlist.Create;
Locator := CoSWbemLocator.Create;
services:=locator.connectserver(Computername2,'','','','','',0, nil);
sObject:= services.Get(WMI_Interface, wbemFlagUseAmendedQualifiers, nil);
ObjectSet:= SObject.Instances_(0, nil);
  Enum:= (ObjectSet._NewEnum) as IEnumVariant;
  while (Enum.Next(1, TempObj, Value) = S_OK) do
  begin
    SObject:= IUnknown(TempObj) as SWBemObject;
   if WMI_Interface = 'Win32_Processor' then
    begin
      MyResults.Text := SObject.GetObjectText_(0);
      GetInfoBool := True;
    end;
    CPUInfo := SObject.GetObjectText_(0);
  end;
  if WMI_Interface = 'Win32_ComputerSystem' then myResults.Text := SObject.GetObjectText_(0);
end;

aanvullende info:

CPUInfo & myResults is een public variable van eht type TStringlist.

[whoami]

Wat bedoel je dan?
Ik begrijp je probleem niet helemaal. Wat lukt er niet? EEn try / except schrijven? Voor de juiste syntax kan je altijd terecht in de help.

[NMe]

offtopic:
Sorry, geen oplossing voor je probleem... Maar waarom free je de objecten die je private aanmaakt niet? MyResults en Locator mogen toch gefreed worden onderaan je procedure?

[ Voor 3% gewijzigd door NMe op 14-06-2004 15:08 ]

[Creepy]

En je weet dat een Exceptie die je afvangt alsnog los door de debugger wordt getoont? Als je de applicatie draait zonder debugger, dan zul je de afgevangen Exceptie niet zien.

[Verwijderd]

Ik ken de syntaxis van try except wel. Ik heb oa ook dit toegevoegd aan de code. Maar dan komt ie even verder op met de melding "except or finally exspected", Terwijl ik het verderop in me code ook zo heb gedaan.

code:

try
services:=locator.connectserver(Computername2,'','','','','',0, nil);
except
  showmessage ('Error');
 end;

[NMe]

Moet die ; voor de except niet weg?

[whoami]

Nee,

ik schrijf m'n try / excepts in Delphi altijd zo:

code:

try
   // zooi
except
  on E : EDatabaseError do begin
     // zooi.
  end;
end;

[Tomatoman]

Verwijderd schreef op 14 juni 2004 @ 15:15:
Ik ken de syntaxis van try except wel. Ik heb oa ook dit toegevoegd aan de code. Maar dan komt ie even verder op met de melding "except or finally exspected",

Educated guess: blijkbaar vindt de compiler ergens na try het woordje end, dat niet een paar vormt met begin. Zoiets dus:

Delphi:

try
  DoeDit;
  if IkHebDeSmaakTePakken then
    DoeDitOokNog;
  end; // deze 'end' heeft geen bijbehorende 'begin' of 'try..except'
except
  on E: Exception do
    ShowMessage(E.Message);
end;

[ Voor 6% gewijzigd door Tomatoman op 14-06-2004 15:57 ]