Einzelnen Beitrag anzeigen

Chewie

Registriert seit: 10. Jun 2002
Ort: Deidesheim
2.886 Beiträge
 
Turbo Delphi für Win32
 
#1

Problem bei MMFs zwecks IPC

  Alt 24. Aug 2003, 19:18
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??
Martin Leim
Egal wie dumm man selbst ist, es gibt immer andere, die noch dümmer sind
  Mit Zitat antworten Zitat