Ich habe Luckies Beispiel genommen. Die Fehlercodes geben nur SUCCESS zurück. Meine Funktion ist so geändert, dass ich direkt einen Pointer schreibe.
Delphi-Quellcode:
function WriteToMMF(Data: Pointer; Len: Integer; Filename: string): DWORD;
var
dwResult: DWORD;
hFileMapping: THandle;
Mem: Pointer;
begin
dwResult := 0;
hFileMapping := CreateFileMapping(INVALID_HANDLE_VALUE, nil,
PAGE_READWRITE, 0, Len, PChar(Filename));
if hFileMapping <> 0 then
begin
Mem := MapViewOfFile(hFileMapping, FILE_MAP_WRITE, 0, 0, 0);
if Assigned(Mem) then
begin
CopyMemory(Mem, Data, Len);
//CloseHandle(hFileMapping);
end;
end
else
begin
dwResult := GetLastError;
end;
Result := dwResult;
end;
Erster "Fehler" rufe ich CloseHandle auf, kann ich im anderen Programm schon gar nicht auf die Daten zugreifen. Zweite Sache ist .. ich habs genauer getestet.
Ich schicke erst einen PChar, welcher auch korrekt ankommt. Danach sende ich Pointer(Len) mit SizeOf(Integer). Dies ist die Passage, welche nicht ankommt.
Das Längenbyte ist 0. Was ich versuche ist unabhängig vom String eine ganze Resource zur anderen Anwendung zu schicken. Da die Anwendung ja nicht weiß wie groß die Resource sein wird, musste ich das mit dem Längenbyte vorweg machen.
Insgesamt habe ich zur besseren Übersicht einfach 3 Verschiedene "Dateinamen" verwendet.