Hallo
mal ne Frage wie lese ich ein einzelnes Feld aus einem ObjectSet raus? Mein Momentaner Weg ist mir etwas zu kompliziert.
Das Problem ist ich kennen den Feldnamen erst zur Laufzeit also ein
oEnum.MeinFeld
geht leider nicht
Das ist mein derzeieitger Code
Delphi-Quellcode:
fWbemObjectSet := WMIService.ExecQuery('SELECT '+FieldName+' FROM '+TableName, 'WQL', wbemFlagForwardOnly);
oEnum := IUnknown(fWbemObjectSet._NewEnum) as IEnumVariant;
try
while oEnum.Next(1, fWbemObject, iValue) = 0 do begin
fProperties := fWbemObject.Properties_;
oEnumProp := IUnknown(fProperties._NewEnum) as IEnumVariant;
while oEnumProp.Next(1, fPropObj, iValueProp) = 0 do begin
if SameText(fPropObj.Name, FieldName) then begin
Value := fPropObj.Value;
break;
end;
end;
break;
end;
Ich möchte mir hier die Schleife um die properties sparen, wenn ich ja ganz genau weiss ich will FieldName auslesen.