Hallo matze,
Das Problem hatte ich auch
Mein Vorschlag: Benutze Memory Mapped files. z.B.:
Zuerst mal eine typisierten Struktur erstellen. Das muß so sein, weil du gleich im Prinzip einen Speicherbereich in Windows belegst und diese fast so behandelt wird wie eine Datei.
Auf beiden Seiten der Anwendungen:
Delphi-Quelltext
1:
2:
3:
4:
5:
| type
TMyData = record
meinstring:shortstring;
end;
MyData: ^TMyData; |
Auf dem, der den MMF erzeugen und nachher zerstören soll
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
| procedure create_mmf_and_view;
begin
MyData_Handle:=CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,sizeof(PMyData),PCHAR('MyData'));
if MyData_HANDLE <> 0 then
begin
MyData := MapViewOfFile(MyData_Handle,FILE_MAP_WRITE,0,0,0);
if MyData = nil then
begin
if MessageBox(Application.Handle,
pchar('Error after API-Call: MapViewOfFile'),
pchar('Application Terminate?'),
MB_YESNO) = IDYES then
begin
Application.terminate;
end;
end;
end
else
if MessageBox(Application.Handle,
pchar('Error after API-Call: CreateFileMapping'),
pchar('Application Terminate?'),
MB_YESNO) = IDYES then
begin
Application.terminate;
end;
end; |
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| procedure close_mmf_and_view;
begin
if UnmapViewOfFile(MyData)=False then
begin
if MessageBox(Application.Handle,
pchar('Error after API-Call: UnmapViewOfFile'),
pchar('Application Terminate?'),
MB_YESNO) = IDYES then
begin
Application.terminate;
end;
end;
CloseHandle(MyData_Handle);
end; |
Auf der Seite der Anwendungen, die da lesen und schreiben sollen
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| function open_mmf_view():boolean;
var
MyData_HANDLE:Cardinal;
begin
MyData_HANDLE:=OpenFileMapping(FILE_MAP_WRITE,TRUE,PCHAR('MyData'));
if MyData_HANDLE <> 0 then
begin
MyData := MapViewOfFile(MyData_Handle,FILE_MAP_WRITE,0,0,0);
end;
Result := MyData_HANDLE <> 0;
end; |
Delphi-Quelltext
1:
2:
3:
4:
| function close_mmf_view:boolean;
begin
Result := UnmapViewOfFile(MyData);
end; |
So das wars
Das mit Mutexes ist etwas komplizierter, aber wenn du konsistente Daten haben möchtest sinnvoll. Aber ich sag mir:"Du bist der Programmierer. DU!!! mußt wissen was mit deinen Daten wann und wo passiert"
Außerdem hatte ich Probleme mit dem typ string. Scheint so, das dieser Typ dynamischen ursprungs ist. Ich denke ich hab sowas in der Online Hilfe gelesen. Deshalb habe ich shortstring genommen, weil der nen festen Wert von 256 Bytes hat. Ich hoffe ich konnte dir helfen.
Moderiert von 
raziel: Code- durch Delphi-Tags ersetzt.
IPC