Problem bei MMFs zwecks IPC

[Chewie]

Nach Stunden des (eigentlich sinnlosen) Rumprobierenns hab ich mal gedacht, vielleicht kann mir hier einer helfen.

Ich will, wie der Titel schon andeuten mag, MMFs als IPC-Methode einsetzen (IPC = Interprocess Communication). Der Server in diesem Fall schreibt was rein, der Client liest es aus.
Soweit die Theorie.

Ersteres klappt ja auch ganz gut. Nur mit einem zweiten Mapping des Files haperts. Ich versuche, einen Abdruck der Datei zu kriegen,mit folgendem Code:

Delphi-Quellcode:

var
  hMMF: THandle;
  mapView: Pointer;
begin
  hMMF := OpenFileMapping(FILE_MAP_READ, False, MMFName);
  if hMMF = 0 then
  begin
    ShowMessage('OpenFileMapping: '+ SysErrorMessage(GetLastError));
    Exit;
  end;
  mapView := MapViewofFile(hMMF, FILE_MAP_READ, 0, 0, 0);
  if mapView = nil then
  begin
    ShowMessage('MapViewofFile: ' + SysErrorMessage(GetLastError));
    Exit;
  end;

Auf der Serverseite wird folgendes gemacht:

Delphi-Quellcode:

FMMFHandle := CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE,
    0, Sizeof(TReportStruc), MMFName);
  if FMMFHandle = 0 then
  begin
    ShowMessage('MMF nix');
    Application.Terminate;
  end;

  FMapView := MapViewOfFile(FMMFHandle, FILE_MAP_WRITE, 0, 0, 0);
  if FMapView = nil then
  begin
    ShowMessage('MapView nix');
    Application.Terminate;
  end;

FMMFHandle und FMapView sind Handle unnd Pointer als Felder einer Klasse.

So,das Problem ist jetzt, dass ich in zweitem Fall nicht lesen kann, weil die Adresse von mapView eine andere ist als die von FMapView.
Ich habe alle Aufrufe mit denen aus Assarbards Hook-Tutorial abgeglichen, aber keine relevanten Unterschiede festgestellt.

Kann mir also jemand sagen, was ich falsch mache??

[Luckie]

Kuck mal in meinen LuckieSpy. In der DLL hat Aya mit MMF's gearbeitet.

[Chewie]

Danke, aber ich denke, das hilft mir auch nicht weiter.
Ich habe ein funktionierendes Beispiel von Assarbad, kriege das aber nicht in mein Projekt übertragen. Selbst wenn ich den Code per Copy & Paste übertrage, will das nicht klappen. Entweder hab ich was übersehen, oder es ist sonstwas simples. Jedenfalls ist das zum Durchdrehen.

[Chewie]

Ach, verdammt, es ist doch manchmal zu blöd...

Ich hab einfach nen dummen Denkfehler begangen. Ich will in den geteilten Speicherbereich ein Record reinkapieren und hab das bisher so gemacht:

Delphi-Quellcode:

MapView := PointerAufMeinRecord;

Natürlich völliger Quark, aber heute Mittag erschien mir das irgendwie richtig :shock:

Wie auch immer, jetzt hab ichs so gemacht:

Delphi-Quellcode:

CopyMemory(MapView, @rec, Sizeof(rec));

Das tut einwandfrei.

[Assarbad]

Ich wollte schon sagen *g*