Pointer & Co

[gibb]

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 auslesen kann. Hab jetzt etliches über pointer gelsen aber wirklich verstanden hab ichs leider nicht und hoffe jetzt das ihr mir helfen könntet.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  hSFMemory: hwnd ;
  SfAreaPtr: Pointer;
  MyResultPtr: Pointer;
begin
Try
   GetMem(MyResultPtr,1000);
   hSFMemory:= openfilemapping(FILE_MAP_READ,false,'SFSharedMemory_ALM');
   if HSFMemory <> 0 then begin
     SfAreaPtr := MapViewOfFile(hSFMemory, FILE_MAP_READ, 0, 0, 0);
     CopyMemory(MyResultPtr,SfAreaPtr, 1000);
     memo1.Text:= AnsiString(PChar(MyResultPtr));

   end;

  Finally
    FreeMem(MyResultPtr);
   // FreeMem(SfAreaPtr);
    UnmapViewOfFile(SfAreaPtr);
    CloseHandle(hSFMemory);
  End;
end;

Gruss Gibb

[himitsu]

Erstmal würde ich es in eine eigene Unite verlegen,
dann sollte dich Delphi über die eventuell uninitialisierten Variablen verwarnt haben.

Delphi-Quellcode:

function GetSFString: String;
var
  hSFMemory: HWND;
  SfAreaPtr: PAnsiChar;
begin
  hSFMemory := 0;
  SfAreaPtr := nil;
  try
    hSFMemory := OpenFileMapping(FILE_MAP_READ, False, 'SFSharedMemory_ALM');
    if HSFMemory <> 0 then begin
      SfAreaPtr := MapViewOfFile(hSFMemory, FILE_MAP_READ, 0, 0, 0);
      Result := SfAreaPtr;
    end else
      Result := '';
  finally
    UnmapViewOfFile(SfAreaPtr);
    CloseHandle(hSFMemory);
  end;
end;

Außerdem willst du den Speicherbereich als Text auslesen, was wohl (laut dem Beispiel) nicht stimmt,
schau dir das Beispiel nochmal genau an, such den Record (also den Aufbau der Daten in diesem Speicherbereich) raus und greife über diesen Record auf die Daten zu.

Delphi-Quellcode:

function GetSFString: ...;
var
  hSFMemory: HWND;
  SfAreaPtr: PSFRawMemMap;
begin
  hSFMemory := 0;
  SfAreaPtr := nil;
  try
    hSFMemory := OpenFileMapping(FILE_MAP_READ, False, 'SFSharedMemory_ALM');
    if HSFMemory <> 0 then begin
      SfAreaPtr := MapViewOfFile(hSFMemory, FILE_MAP_READ, 0, 0, 0);
      ... // SfAreaPtr^.irgendwas
    end else
      ...;
  finally
    UnmapViewOfFile(SfAreaPtr);
    CloseHandle(hSFMemory);
  end;
end;

[add]
@p80286: jupp, hab ich ... zumindestens etwas genauer überflogen :angel:

[p80286]

Hallo gibb

so könnte es funktionieren:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var 
  hSFMemory: hwnd ;
  SfAreaPtr: Pointer; 
  MyResultPtr: Pointer;
  Bufferstr : string;
begin
  setlength(bufferstr,1000);
Try
   MyResultPtr:=@bufferstr[1];
   hSFMemory:= openfilemapping(FILE_MAP_READ,false,'SFSharedMemory_ALM');
   if HSFMemory <> 0 then begin
     MyResultPtr := MapViewOfFile(hSFMemory, FILE_MAP_READ, 0, 0, 0);
     //CopyMemory(MyResultPtr,SfAreaPtr, 1000);
     memo1.Text:= bufferstr;

   end; 

  Finally 
  //  FreeMem(MyResultPtr);
   // FreeMem(SfAreaPtr); 
    UnmapViewOfFile(myResultPtr); 
    CloseHandle(hSFMemory); 
  End; 
end;

end.

und wo liegen die Probleme bei Buffern und Pointern?
Ein Buffer ist ein Speicherbereich (Array, String ....) in den man Daten Schreibenkann und ein Pointer ist eine Adresse (diese Bereiches)
z.B.

Delphi-Quellcode:

var
  Buffer : array [0..1023] of byte;
  BuffPtr : pointer;
begin
....
  BuffPtr:=@Buffer[0];
....
  
end;

Gruß
K-H

Edit: Da hat wohl jmd. das Beispiel besser gelesen als ich!

[gibb]

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.

Delphi-Quellcode:

   
unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
   PSFRawMemMap = Record
   public
     Unknown:  Integer; //'unbekanntes Tag
     NumTemps:Integer; //'Anzahl der Temperaturen
     NumFans: Integer; //'Anzahl der Lüfter
     NumVolts: Integer;// 'Anzahl der Spannungen
     Temps: Integer; //'Werte der Temperaturen
     Fans: Integer; //'Drehzahl der Lüfter
     Volts: Integer; //'Werte der Spannungen'
   end;


  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    procedure GetTemps();
    function FindWindowEx2(hParent: HWND; ChildClassName: string; ChildNr: Word): HWND ;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetTemps();
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  hSFMemory: HWND;
  SfAreaPtr: Pointer ;
  MyResultRecord: PSFRawMemMap;
begin
  hSFMemory := 0;
  SfAreaPtr := nil;
  try
    hSFMemory := OpenFileMapping(FILE_MAP_READ, False, 'SFSharedMemory_ALM');
    if HSFMemory <> 0 then begin
      SfAreaPtr := MapViewOfFile(hSFMemory, FILE_MAP_READ, 0, 0, 0);
      CopyMemory(Addr(MyResultRecord),SfAreaPtr,1000);
      memo1.Text := IntToStr(MyResultRecord.Fans);
    end;
  finally
    UnmapViewOfFile(SfAreaPtr);
    CloseHandle(hSFMemory);
  end;
end;

function TForm1.FindWindowEx2(hParent: HWND; ChildClassName: string; ChildNr: Word): HWND;
var
  i: Word;
  hChild: HWND;
begin
  hChild := 0;
  Result := 0;
  Dec(ChildNr);
  for i := 0 to ChildNr do
  begin
    hChild := FindWindowEx(hParent, hChild, PChar(ChildClassName), nil);
    if hChild = 0 then
      Break;
    Result := hChild;
  end;
end;

procedure TForm1.GetTemps();
var
  wndMain, wndChild: HWND;
  Text: PAnsiChar;
  MaxLength: Integer;

begin
  wndMain := FindWindow('TForm1','SpeedFan 4.40');
  if wndMain <> 0 then
  begin
    wndChild := FindWindowEx(wndMain, 0, 'TPageControl', nil);
    wndChild := FindWindowEx(wndChild, 0, 'TTabSheet', nil);
    wndChild := FindWindowEx2(wndChild,'TJvPanel', 3);
    MaxLength:= 1000;
    getWindowText(wndMain,Text,MaxLength);
    Memo1.Text:=Text;
  end;
end;


end.

Tja das klapt so jedenfalls auch nicht.

Das Zweite beispiel gibt auch nur KrimsKrams aus was aber anhand der ersten aussage kein Wunder ist ;)

Danke jedenfalls euch beiden ;)

Gruss Gibb

[gibb]

Wie finde ich anhand eines Pointers die speicherlänge auf die der Pointer verweisst heraus?

Gruss Gibb

[p80286]

Zitat:

Zitat von gibb

Wie finde ich anhand eines Pointers die speicherlänge auf die der Pointer verweisst heraus?

Gruss Gibb

garnicht!

woher weißt Du wie groß das Haus in 10034 Berlin, Bundesallee 12 ist?
einPointer ist nur eine Adresse, zunächst einmal. es gibt auch typisierte Pointer, also Zeiger die auf Strukturen zeigen, und da bemißt sich die Größe nach der zu Grunde liegenden Struktur.

Ich bin mir da nicht sicher aber das "MapViewOfFile(hSFMemory, FILE_MAP_READ, 0, 0, 0);" liefert doch nur garnichts (Daten) zurück!? Dann würde es mich auch nicht wundern wenn da nichts vernünftiges kommt.

Zitat:

LPVOID MapViewOfFile(

HANDLE hFileMappingObject, // file-mapping object to map into address space
DWORD dwDesiredAccess, // access mode
DWORD dwFileOffsetHigh, // high-order 32 bits of file offset
DWORD dwFileOffsetLow, // low-order 32 bits of file offset
DWORD dwNumberOfBytesToMap // number of bytes to map

Gruß
K-H

[gibb]

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 = MapViewOfFile(MyAreaH, FILE_MAP_READ, 0, 0, 0) 'Pointer herausfinden
CopyMemory VarPtr(mMyArea), MyAreaPtr, Len(mMyArea) 'und lesen!

also der CopyMemory befehl sollte mir die daten in mMyArea kopieren. So versteh ich das zumindest. Ebenso in Delphi. nur dann hab ich die daten bei der adresse abgelegt weiss aber immer noch nicht wie drauf zuzugreifen.

Gruss Gibb

[gibb]

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 Integer holt sich ja immer gleichviel speicher :-/

[p80286]

Hallo Gibb,
nun mal langsam. Ich würde es so machen:
erst einmal als Buffer ein Array of byte. Den dann Byte für Byte anschauen was wirklich rüber kommt, und dann ein record drüber legen.

Delphi-Quellcode:

const
  mbuff :=32
type 
  tmyrecord : packed record
                feld1 : integer;
                feld2 : integer;
              ....
             end;
var
  buffer :  array [0..mbuff];
  myrecord : tmyrecord absolute buffer;

Gruß
K-H

edit: mbuff natürlich so groß wählen, das auf jeden Fall genug platz ist!
und natürlich vor dem Lesen mit fillchar nullen!

[gibb]

Juhuu erste erfolge stellen sich ein :D

Folgender Code:

Delphi-Quellcode:

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;



type
  { PSFRawMemMap = Record
   public
     Unknown:  Integer; //'unbekanntes Tag
     NumTemps:Integer; //'Anzahl der Temperaturen
     NumFans: Integer; //'Anzahl der Lüfter
     NumVolts: Integer;// 'Anzahl der Spannungen
     Temps: Integer; //'Werte der Temperaturen
     Fans: Integer; //'Drehzahl der Lüfter
     Volts: Integer; //'Werte der Spannungen'
   end;                 }


  TMyRecord = packed record
  public
     Unknown:  Integer; //'unbekanntes Tag
     NumTemps:Integer; //'Anzahl der Temperaturen
     NumFans: Integer; //'Anzahl der Lüfter
     NumVolts: Integer;// 'Anzahl der Spannungen
     Temps: Integer; //'Werte der Temperaturen
     Fans: Integer; //'Drehzahl der Lüfter
     Volts: Integer; //'Werte der Spannungen'
   end;


  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
  public
    { Public declarations }
  end;

const
  mbuff = 100;

var
  Form1: TForm1;
  buffer :  array [0..mbuff] of integer;
  myrecord : tmyrecord absolute buffer;

implementation

{$R *.dfm}


procedure TForm1.Button2Click(Sender: TObject);
var
  hSFMemory: HWND;
  SfAreaPtr: Pointer ;
  MyResultRecord: TMyRecord;
  i: Integer;
  txt: String;
begin
  fillchar(buffer,1000,0);
  hSFMemory := 0;
  SfAreaPtr := nil;
  i := 0;
  try
    hSFMemory := OpenFileMapping(FILE_MAP_READ, False, 'SFSharedMemory_ALM');
    if HSFMemory <> 0 then begin
      SfAreaPtr := MapViewOfFile(hSFMemory, FILE_MAP_READ, 0, 0, 0);
      CopyMemory(Addr(buffer),SfAreaPtr,1000);
      while i < 99 do begin
        Text:= inttostr(buffer[i]);
        memo1.Text := memo1.Text + text+ #13+ #10;  // IntToStr(MyResultRecord.Fans);
        inc(i);
      end;
    end;
  finally
    UnmapViewOfFile(SfAreaPtr);
    CloseHandle(hSFMemory);
  end;
end;
end.

Liefert mir das hier zurück

Zitat:

65537
402
198236
3
255590400
183500800
176947200
0
0
0....0

Jetzt blick ich nur noch nicht durch wie ich was mit diesen Zahlen anfangen kann =D Aber immerhin kommen bereits Zahlen.

gruss Sev