-
Forum: Win32/Win64 API (native code)
Delphi
by gibb,
13. Mär 2010
hi
Hab jetzt ne 30 Tage trial auf nem Rechner installiert um zu kapieren wo meine Daten hingehen. Ein Blick auf die Daten im Record erklärt wo sie sind ;)
http://www.abload.de/thumb/resultsnc5q.png
also, ich mir gedacht ich immitier euch und spiel einwenig mit den datentypen und habe aus den array of int ein array of smallint gemacht und kriege das hier:
TResultIntRecord = Packed...
-
Forum: Win32/Win64 API (native code)
Delphi
by gibb,
12. Mär 2010
was mich sowieso auf einen Fehler gebracht hat ;)
Function TReadSpeedfan.ReadSFData: Boolean;
var
hSFMemory: HWND;
SfAreaPtr: Pointer ;
MyResultRecord: TResultIntRecord;
begin
result:= False;
hSFMemory := 0;
-
Forum: Win32/Win64 API (native code)
Delphi
by gibb,
12. Mär 2010
niemand eine Idee? Lese ich die werte falsch aus? Stimmt der datentyp nicht? beim vb code versteh ich auch nicht wieso der ein Step2 drinnen hat. Bei mir kommt schön brav immer eine Zahl nach der anderen, wenn ich nen step 2 reintun würde würde ich die hälfte der werten verlieren.
Gruss Sev
-
Forum: Win32/Win64 API (native code)
Delphi
by gibb,
11. Mär 2010
hi,
irgendwas stimmt da noch nicht :-( Laut VB code werden die Return werte durch 100 geteilt bis auf die fans. Das hier sind jetzt die werte die ich kriege ohne zu teilen (bis auf die temps natürlich die sind bereits durch 100 )
http://www.abload.de/image.php?img=speedfanreader30v8.png
stimmt in diesem fall etwas am array nicht? Komisch ist auch das er mir sagt er hätte 9 numofvolts aber...
-
Forum: Win32/Win64 API (native code)
Delphi
by gibb,
8. Mär 2010
Ach du meine güte -.- mann sollte wissen wie man ein objekt erzeugt -.-'
Sorry, Lösung fürs problem (und ich hab ca ne stunde dafür verbraten -.-):
procedure TForm1.Button2Click(Sender: TObject);
var
SpeedFanReader : TReadSpeedfan;
begin
SpeedFanReader:= TReadSpeedfan.create; //SpeedFanReader.Create; <- alt war so -.-
-
Forum: Win32/Win64 API (native code)
Delphi
by gibb,
8. Mär 2010
hallo Zusammen,
Ich hab jetzt das hier in eine eigene unit ausgelagert:
unit ReadSpeedfanData;
interface
uses
Windows,
SysUtils,
Classes,
-
Forum: Win32/Win64 API (native code)
Delphi
by gibb,
5. Mär 2010
Hallo zusammen,
Danke vielmals ich jetzt funktionierts, (ist noch nicht ganz ausgereift der Code, aber so funktionieren die Grundlegenden sachen... wollte diesen auch mit der öffentlichkeit teilen ;))
unit Main;
interface
uses
Windows, SysUtils, Classes, Forms,
-
Forum: Win32/Win64 API (native code)
Delphi
by gibb,
5. Mär 2010
Macht leider keinen Unterschied. :-( hab ich dann einfach die daten falsch strukturiert zurückgenommen?
Oder was muss ich Zaubern damit es stimmt ?
Was vielleicht interessant sein dürfte ist das ich weder die volt angaben hab oder die fan angaben hier auf der HP kiste.(das einzige was ich hab sind 3 temps) aber das sollte doch dennoch stimmen im memory... sonst würde doch speedfan selber...
-
Forum: Win32/Win64 API (native code)
Delphi
by gibb,
4. Mär 2010
1: isses doch:
TMyRecord = packed record
public
Unknown : Array of Integer; //unbekanntes Tag
NumTemps : Integer; //Anzahl der Temperaturen
NumFans : Integer; //Anzahl der Lüfter
NumVolts : Integer; //Anzahl der Spannungen
Temps : Array of Integer; //Werte der Temperaturen
Fans : Array of Integer; //Drehzahl der Lüfter
Volts : Array of Integer;...
-
Forum: Win32/Win64 API (native code)
Delphi
by gibb,
4. Mär 2010
Ist ein buffer immer wie ein Array aufgebaut?
Trozdem kommt nicht mehr als das hier:
http://www.abload.de/thumb/buffer156t.jpg
oberes bild ist mit:
CopyMemory(Addr(Buffer),SfAreaPtr,1000);
aber direkt so scheint auch zu gehen:
CopyMemory(Addr(MyResultRecord),SfAreaPtr,1000);)
-
Forum: Win32/Win64 API (native code)
Delphi
by gibb,
4. Mär 2010
Naja, hilft aber auch nicht weiter wenn da nicht mehr daten stehen oder?
http://www.abload.de/thumb/inspectorecos.jpg
PS: ich hab den buffer rausgeschmissen und versucht die daten gleich in den Record zu schreiben:
CopyMemory(Addr(MyResultRecord),SfAreaPtr,1000);
Sollte so doch auch stimmen, gibt mir ja die selben werte zurück nur bereits in die record struktur angepasst was...
-
Forum: Win32/Win64 API (native code)
Delphi
by gibb,
4. Mär 2010
Ah das is ein array in VB wenn eine klammer mit zahl angegeben wird..... dachte mir schon das die Zahlen für was sind, hab aber nicht geschnallt wofür. Hab das ja ettliche beiträge vorher schonmal geschrieben. Dank dir =D
-
Forum: Win32/Win64 API (native code)
Delphi
by gibb,
4. Mär 2010
Hi,
hab jetzt folgendes gemacht:
procedure TForm1.Button2Click(Sender: TObject);
var
hSFMemory: HWND;
SfAreaPtr: Pointer ;
MyResultRecord: TMyRecord;
i: Integer;
txt: String;
-
Forum: Win32/Win64 API (native code)
Delphi
by gibb,
4. Mär 2010
Juhuu erste erfolge stellen sich ein :D
Folgender Code:
unit Main;
interface
uses
-
Forum: Win32/Win64 API (native code)
Delphi
by gibb,
4. Mär 2010
Niemand mehr der mir sagen kann wie ich das angehen muss? Ich nehme schwer an das ich das mit dem Record auch falsch mache :-/
Ich habe leider echt keine ahnung wie das funktioniert :-(
Der Herr der den VB Code geschrieben hat konnte ja sein Record irgendwie anpassen, ich nehme an das zeigt an wieviele daten wo zu gehören.. wie geht das denn in delphi? mir währ nichts solches bekannt. Ein...
-
Forum: Win32/Win64 API (native code)
Delphi
by gibb,
3. Mär 2010
Naja ich schon nicht.. aber das Bauamt würde es sicher wissen. Aber wenn das nicht möglich ist frage ich mich wie das überhaupt funktionieren soll. Anhand deines vorherigen Beitrages bin ich davon ausgegangen das der Buffer das Haus währe der Pointer die adresse folglich müsste xy wissen wie gross der buffer ist wo die adresse hinzeigt.
Naja laut dem VB Code währe das ja so:
MyAreaPtr =...
-
Forum: Win32/Win64 API (native code)
Delphi
by gibb,
3. Mär 2010
Wie finde ich anhand eines Pointers die speicherlänge auf die der Pointer verweisst heraus?
Gruss Gibb
-
Forum: Win32/Win64 API (native code)
Delphi
by gibb,
3. Mär 2010
Hi und danke für die Antworten.
Also ich kenne den Record nicht unter VB daher nehm ich an das es sich darum handelt, leider scheine ich da auch nicht mit auf einen grünen Zweig zu kommen :-(
Da es sich noch um ein test programm handelt mache ich mir noch keine weiteren Units.
unit Main;
interface
-
Forum: Win32/Win64 API (native code)
Delphi
by gibb,
3. Mär 2010
Hi,
Ich versuche zur zeit gerade das hier:
http://hobbyelektronik.org/VB/SF/SpeedFan.htm
nach zu bauen...
Leider stell ich mich ziemlich doof an... mir fehlt einfach die Erfahrung mit dem Arbeiten mit den Pointer/Buffer. In Delphi kann man sich ja davor ziemlich gut drücken :oops:
Tja, jetzt wüsste ich halt gerne wie ich das unten zum laufen kriege... resp. wie ich den text...
