Pointer Problem unter XP Prof

[tgt]

Hallo,

Ich habe ein Interprocess Communication über File Mapping aufgebaut. Ein Service kommuniziert mit einer Desktop Anwendung über dieses IPC. Funktioniert auch tadel los unter 2000/XP Home/.NET .. selbst unter LongHorn (beta) funzt es. NUR unter Windows XP Professional geht es nicht... und das habe ich bereits mit ca 6 unterschiedlichen Installationen getestet. Auf einem Rechner hab ich sogar alle SP's und Patches draufgespielt, aber keine Veränderung.

Es scheint wohl ein Problem mit dem Pointer zu geben:

Delphi-Quellcode:

 
procedure OpenMMF;
begin
 FConnected := False;
 hMap := OpenFileMapping(FILE_MAP_ALL_ACCESS, False, MMF_NAME);
 if hMap <> 0 then
  begin
   MapView := MapViewOfFile(hMap, FILE_MAP_WRITE, 0, 0, 0);
   FConnected := Assigned(MapView);
  end
 else error('Keine Verbindung zur MMF Quelle.');
end;

procedure ReadMMF(var Buffer: String);
begin 
  // An dieser stelle stürzt alles ab !!!
  if Assigned(MapView) then Buffer := String(MapView);
end;

Hat jemand schon ein ähnliches problem gehabt und vielleicht eine Lösung, oder eine Ahnung warum das nur unter XP Prof passiert und nie unter XP Home ?! - Kann ja nicht sein, dass das eine OS Pointer anders behandelt als das andere....

gruss,
Andi

[Langohr]

Hi !

Ich vermutte mal, dass du deinen Buffer, welchen du übergibst überschreibst
Hast du vorher schon Speicher reserviert ?

[tgt]

Ja der speicher ist reserviert. Er hat eine feste Größe von 1024 Zeichen. Die Prozesse tauschen auch nicht mehr als 1024 zeichen untereinander aus. Das funktioniert alles tadelos. Bis ich auf den Pointer zugreifen will, der das gemeinsame Handel represäntiert.

[scp]

Ein String arbeitet ja mit variabler Länge, die Länge wird bei Pointer(Integer(AStr) - 4) gespeichert.
Probier mal folgendes bei schreiben und lesen aus:

  if Assigned(MapView) then Buffer := String(Pointer(Integer(MapView) + 4)); PS: Wenn du dann 1024 Byte für den String benötigst, musst du 1028 Byte reservieren (4 Bytes für die Grösse).

[tgt]

Ja geht mit der Buffer Erweiterung.. ich hab jetzt mal eine

Delphi-Quellcode:

try
.
.
except
.
.
end;

schleife noch reingebracht... jedesmal bekomm ich einen zugriffsfehler

was mich eben hauptsächlich wundert, ist die tatsache, das es unter 2000, XP Home, .NET (Windows 2003 Server) und LongHorn (beta) tadellos funktioniert.

Nur nicht unter Windows XP Professional.... ist XP Prof so verschieden
zu den anderen OS's ?

[scp]

Hast du auch die Pointer-Zuweisung so geändert, wie ich es oben angegeben habe?

Ich verstehe ansonsten auch nicht warum das auf den anderen XPs klappt, weil wenn du es wie vorher machst, müsste eigentlich immer eine Zugriffsverletzung rauskommen, weil er ja dann auf Speicher ausserhalb des Maps zugreift.

[tgt]

yo hab ich gemacht...

... aber keine veränderung... hab jetzt noch einen weitern XP prof rechner aufgesetzt... kein unterschied .. daneben hab ich ein WinXP Home rechner, und 2000 worauf ich entwickle... funzt alles perfekt.... :\