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