wrong voltage

[GoogleCodeExporter]

This report wrong cpu voltage. Always 0,10.

Original issue reported on code.google.com by jcschinc...@gmail.com on 15 Mar 2013 at 3:07

[GoogleCodeExporter]

[deleted comment]

[GoogleCodeExporter]

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

[GoogleCodeExporter]

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

[GoogleCodeExporter]

[deleted comment]

[GoogleCodeExporter]

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