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

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