Temperatur der Grafikkarte auslesen

[Delphi Star]

Wie kann man mit Delphi die GPU-Temperatur auslesen :?:

[Mackhack]

Brauchst wohl ne dll vom Hersteller wenn du die bekommen solltest. Jede Graka hat so ihre Eigenheiten!

[Delphi Star]

Und wo bekomme ich diese dll her? Ich habe eine Geforce 6800 GT.
Man müsste zwei Werte auslesen können: GPU- und Umgebungstemperatur.

[Mackhack]

Zitat:

Zitat von Mackhack

Brauchst wohl ne dll vom Hersteller wenn du die bekommen solltest. Jede Graka hat so ihre Eigenheiten!

[TeronG]

Zitat:

Zitat von Delphi Star

Wie kann man mit Delphi die GPU-Temperatur auslesen :?:

Willst du die Temperatur für (d)ein Programm oder willst du Sie einfach nur wissen?

Zitat:

Zitat von Delphi Star

Ich habe eine Geforce 6800 GT.

GeForce = nVidia
Die haben IMHO auch n sdk.

[BlackJack]

kommt auch immer drauf an ob die Grafikkarte das überhaupt unterstützt, d.h. ob hardewaremäßig überhaupt ein Temeratursensor an/unter der GPU angebracht ist. z.b. ist das bei meiner Radeon 9800 Pro nicht möglich, aber eine Radeon 9800 XT hat so einen Sensor.

[Delphi Star]

Zitat:

Zitat von BlackJack

kommt auch immer drauf an ob die Grafikkarte das überhaupt unterstützt

Die Grafikkarte hat zwei Sensoren. Einmal am GPU und einen für die Umgebungstemperatur.

Zitat:

Zitat von TeronG

GeForce = nVidia
Die haben IMHO auch n sdk.

Ich gucke es mir mal an.

[Corpsman]

Hab ne 8800 GTS und bin ebenfalls an der GPU Temeratur interessiert.

Ist da nu was bei rausgekommen ?

[bitsetter]

Moin,

folgendes funktioniert bei mir unter WinXP mit einer GeForce nVidia 6600GT:

Delphi-Quellcode:

function GetGpuTemp: cardinal;
type
  NvCplGetThermalSettings = function(WindowsMonitorNumber: UINT; pGpuTemp, pUmgebTemp, pSlowDownTemp: Pointer): BOOL; stdcall;
var
  hInstNvcpl: THandle;
  GetThermalSettings: NvCplGetThermalSettings;
  UmgebTemp, SlowDownTemp: cardinal;
begin
  Result := 0;//GPU-Temperatur
  UmgebTemp := 0;//Umgebungstemperatur
  SlowDownTemp := 0;//Slowdown-Grenzwert

  hInstNvcpl := LoadLibrary('nvcpl.dll');
  if hInstNvcpl <> 0 then
    try
      GetThermalSettings:= GetProcAddress(hInstNvcpl, 'NvCplGetThermalSettings');
      if Assigned(GetThermalSettings)  then
        GetThermalSettings(0, Addr(Result), Addr(UmgebTemp), Addr(SlowDownTemp));
    finally
      FreeLibrary(hInstNvcpl);
    end;
end;

[Mackhack]

Funzt wunderbar auch unter der GeForce 7300 GT!