library OhmlWrapper;

{$reference 'OpenHardwareMonitorLib.dll'}

uses
  System.Runtime.InteropServices, OpenHardwareMonitor.Hardware;

type
  [Guid('AFB4EA0D-85DD-4407-BDD4-A602F0CF2A81')]
  [InterfaceType(COMInterfaceType.InterfaceIsDual)]
  [ComVisible(True)]
  IProcessor = interface
    [DispId(1)]
    procedure Open();
    [DispId(2)]
    procedure Close();
    [DispId(3)]
    function Name(): String;
    [DispId(4)]
    function Temperature(): Single;
  end;
  
  [Guid('B3BD284F-BC3D-4EE1-9A42-2BA6C9E7FC99')]
  [ClassInterface(ClassInterfaceType.None)]
  [ProgId('OhmlWrapper.Processor')]
  [ComVisible(True)]
  TProcessor = class(IProcessor)
    private Computer: OpenHardwareMonitor.Hardware.Computer = nil;
    
    public procedure Open();
    begin
      if Computer = nil then
      begin
        Computer := new OpenHardwareMonitor.Hardware.Computer;
        
        Computer.Open;
        Computer.CPUEnabled := True;
      end
    end;
    
    public procedure Close();
    begin
      if Computer <> nil then
      begin
        Computer.Close;
        
        Computer := nil;
      end;
    end;
    
    public function Name(): String;
    begin
      Result := 'Error';
      
      if Computer <> nil then
      begin
        for var i := 0 to Computer.Hardware.Count - 1 do
          if Computer.Hardware[i].HardwareType = HardwareType.CPU then
          begin
            Result := Computer.Hardware[i].Name;
            
            Break;
          end;
      end;
    end;
    
    public function Temperature(): Single;
    begin
      Result := 3.14;
      
      if Computer <> nil then
      begin
        for var i := 0 to Computer.Hardware.Count - 1 do
          if Computer.Hardware[i].HardwareType = HardwareType.CPU then
          begin
            Computer.Hardware[i].Update;
            
            for var j := 0 to Computer.Hardware[i].Sensors.Count - 1 do
              if Computer.Hardware[i].Sensors[j].SensorType = SensorType.Temperature then
              begin
                Result := Computer.Hardware[i].Sensors[j].Value.Value;
                
                Break;
              end;
            
            Break;
          end;
      end;
    end;
  end;

begin
end.

XIncludeFile "COMatePLUS\COMatePLUS.pbi"

Global Processor.COMateObject

Processor = COMate_CreateObject("OhmlWrapper.Processor")
If Processor
  If OpenWindow(0, 0, 0, 400, 80, "OhmlWrapperTest", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    If LoadFont(0, "Arial", 10)
      SetGadgetFont(#PB_Default, FontID(0))
    EndIf
    
    TextGadget(0, 10, 10, 380, 25, "CPU Name: ")
    TextGadget(1, 10, 45, 380, 25, "CPU Temperature: ")
    
    AddWindowTimer(0, 0, 1000)
    
    Processor\Invoke("Open()")
    
    Repeat
      Select WaitWindowEvent()
        Case #PB_Event_Timer
          If EventTimer() = 0
            SetGadgetText(0, "CPU Name: " + Processor\GetStringProperty("Name()"))
            SetGadgetText(1, "CPU Temperature: " + StrF(Processor\GetRealProperty("Temperature()"), 2) + " °C")
          EndIf
        Case #PB_Event_Gadget
        Case #PB_Event_CloseWindow
          Break
      EndSelect
    ForEver
    
    Processor\Invoke("Close()")
  EndIf
  Processor\Release()
EndIf

End