Delphi-PRAXiS
Seite 4 von 4   « Erste     234   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi openlibsys.org Open source driver (https://www.delphipraxis.net/113252-openlibsys-org-open-source-driver.html)

himitsu 7. Mai 2008 18:36

Re: openlibsys.org Open source driver
 
where is MaxCores initialized/defined?

Razor 7. Mai 2008 18:38

Re: openlibsys.org Open source driver
 
Liste der Anhänge anzeigen (Anzahl: 1)
this dosent matter now first we need to make it working for 1 core then threads and multithreading comes in hand...got it?
Should i upload the driver so you can test it?
Delphi-Quellcode:
 procedure InitializeDll(); stdcall; external 'WinRing0.dll';
  procedure DeinitializeDll(); stdcall; external 'WinRing0.dll';
  function Rdmsr(index:DWORD;eax:DWORD;edx:DWORD): DWord; stdcall; external 'WinRing0.dll';


Zitat:

Rdmsr
This function executes "RDMSR" (Opcode : 0F 32) instruction.

"RDMSR" : Loads the contents of a 64-bit model specific register (MSR) specified in an index register into registers EDX:EAX.

Syntax
BOOL Rdmsr(
DWORD index,
PDWORD eax,
PDWORD edx
);Parameters
index
[in] MSR index
eax
[out] value of EAX register (bit 31- 0)
edx
[out] value of EDX register (bit 63-32)
Return Values
If the function succeeds, the return value is TRUE.

If the function fails, the return value is FALSE.

Remarks
You can check whether "RDMSR" instruction is supported on your system with IsMsr.

Razor 7. Mai 2008 19:37

Re: openlibsys.org Open source driver
 
Well i think i solved it...

Works well i tested with MSR Editor,

i read the MSR address 0x19C and got this

0x88340000 for MSR (31-0)

now the 5th and the 6th charters show that its 34 you take that to calculator qword and convert to dec.

We get 52 wich is the delta.

Temperature =Tjunction -Delta

Temperature = 100 (Q6600) -52 = 48 C << Wich is exactly what speed fan is showing..


I did it but what about the above code why it wont work..Can some really really check... :-D

Razor 8. Mai 2008 13:41

Re: openlibsys.org Open source driver
 
Alright i know its a bump or however you guys call it if its still no answers i leave DP once and for all,it just isnt a right way anymore i saw XY threads being replyed all the time. :wall:

Muetze1 8. Mai 2008 13:53

Re: openlibsys.org Open source driver
 
Zitat:

Zitat von Razor
Alright i know its a bump or however you guys call it if its still no answers i leave DP once and for all,it just isnt a right way anymore i saw XY threads being replyed all the time. :wall:

You can't be serious - you are joking, or?

What do you expect? This is not a all-day problem and most of the users here are beginners and intermediate with no experiences in such hardware relative things.

What about your DLL loading problem? This is more common and you got answers in minutes...

Razor 8. Mai 2008 13:57

Re: openlibsys.org Open source driver
 
This Loading of dll is solved voila gone!
The only thing is this code


Problem code look at it muetze atleast now.

What i think its the problem well the label2.Caption:=IntTostr(Delta);
becouse author of Core Temp said that it can be writting in 1 hour if you have a driver

Zitat:

David says:
maybe couse i convert the dword to integer?
Arthur says:
most likely
Arthur says:
I told you no integers...

Delphi-Quellcode:
procedure InitializeDll(); stdcall; external 'WinRing0.dll';
procedure DeinitializeDll(); stdcall; external 'WinRing0.dll';
function Rdmsr(index:DWORD;eax:dWORD;edx:DWORD): DWord; stdcall; external 'WinRing0.dll';

var
EAX,EDX:DWORD;
delta:dword;
TJunction:integer;
begin
Rdmsr($019C,EAX,EDX);
If HiWord(EAX) and $8000 > 0 then
Delta := hiWord(EAX) and $7F;

label2.Caption:=IntTostr(Delta);

Razor 8. Mai 2008 15:43

Re: openlibsys.org Open source driver
 
Liste der Anhänge anzeigen (Anzahl: 1)
Alright i made SOMETHING big! :lol:

http://img369.imageshack.us/img369/5783/capturequ1.jpg

No comments now i hope just muetze1 can verify this and make any adjustments for it,so many programers here and i am the first one to do it :shock:

Razor 9. Mai 2008 09:56

Re: openlibsys.org Open source driver
 
And completed!

http://img233.imageshack.us/img233/6131/capturerg6.jpg

As for the threads how can we make em ive already searched google and DP alot on this issue however i still dont know how to..

Razor 11. Mai 2008 21:45

Re: openlibsys.org Open source driver
 
I also figured out the Amd K10 internal temperature reading.So far i got k7,k8,intelcore and k10 muahahahaha! :lol: 8)

timurlenk 14. Aug 2009 13:14

Re: openlibsys.org Open source driver
 
hi can someone please tell me where i can get examples of winring0 dll usage..
in winring site there are no real examples for it just a little about dll functions

----

hi kann mir jemand sagen wo ich beispiele für winring0 dll bekomme in der winring seite gibts keine echten
beispiele nur ne liste was für dll funkionen die dll hat..


is zwar ein alter thread aber habs ers eben gesehen :D


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:17 Uhr.
Seite 4 von 4   « Erste     234   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz