Closed GoogleCodeExporter closed 9 years ago
[deleted comment]
Can you add more details about what table type and post the code which you are
using?
Original comment by Rodrigo.Ruz.V@gmail.com
on 19 Mar 2013 at 7:23
procedure TForm2.GetKernelPerfStateInfo;
const
WbemUser ='';
WbemPassword ='';
WbemComputer ='localhost';
wbemFlagForwardOnly = $00000020;
var
FSWbemLocator : OLEVariant;
FWMIService : OLEVariant;
FWbemObjectSet: OLEVariant;
FWbemObject : OLEVariant;
oEnum : IEnumvariant;
volt : uInt16; //uint16 word
volt2 : uInt32; //uint32 longword
v : longword;
begin;
FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
FWMIService := FSWbemLocator.ConnectServer(WbemComputer, 'root/CIMV2', WbemUser, WbemPassword);
FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_Processor','WQL', wbemFlagForwardOnly);
oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
while oEnum.Next(1, FWbemObject, v) = 0 do
begin
NullStrictConvert := False;
Volt := (FWbemObject.CurrentVoltage * 2) - 1 mod 10; //uint16
volt2 := FWbemObject.VoltageCaps; //uint32
//VOlt2 := (copy(IntToStr(volt2), 1, 1) + '.' + copy(IntToStr(volt2), 2, 3));
Label5.Caption := 'Current Vcore : +- ' + (copy(IntToStr(volt), 0, 1) + '.' + copy(IntToStr(volt), 2, 3)) + ' v.';
//Label12.Caption := (copy(IntToStr(volt), 0, 1) + '.' + copy(IntToStr(volt), 1, 3)) + ' v';// IntToStr(Volt * 2) ;
FWbemObject:=Unassigned;
end;
end;
Original comment by jcschinc...@gmail.com
on 21 Mar 2013 at 1:58
[deleted comment]
The code posted is about the WMI and is not related to the SMBIOS or this
project.
Original comment by Rodrigo.Ruz.V@gmail.com
on 21 Mar 2013 at 2:33
Original issue reported on code.google.com by
jcschinc...@gmail.com
on 15 Mar 2013 at 3:07