Guten Tag,
Ich habe zwei Delphi-Programme die miteinander kommunizieren sollen.
Programm 1 -> Sendet Telefonnummer per Startparametern an Programm 2
Programm 2 -> Soll Name, Adresse, Ort etc. zurück an Programm 1 liefern.
Wie lässt sich dies elegant lösen ?
Das einfachste was ich mir überlegt habe ist das Programm 2 die Daten in eine textdatei schreibt und Programm 1 diese ausliest.
Damit bin ich aber nicht wirklich zufrieden. Am liebsten möchte ich das Programm 2 einen Record mit allen Daten zurückliefern.
Somit habe ich mich schlau gemacht und bin auf "Memory Mapped Files" gestossen.
Delphi-Treff
Beispiel
Das Obere Beispiel habe ich getestet. Dies wäre genau das was ich suche.
Beim Empfänger kommen nur keine Daten an.
1) Muss die "WMMFNOTIFY" procedure manuell ausgeführt werden ?
Da hier "NOTIFY" geschrieben ist gehe ich davon aus das der Sender den Empfänger informiert und die daten danach gelesen werden, ist dies korrekt ?
2) Für mich ist auch unklar für was die Variable "(var msg: TMessage)" benutzt wird.
Bzw
"procedure WMMMFNOTIFY(var msg: TMessage); message WM_MMFNOTIFY;" -> Habe eine solche procedure definition noch nie gesehen.
Delphi-Quellcode:
procedure TTReceiver.WMMMFNOTIFY(var msg: TMessage);
var
MyData: TMyData;
begin
MyData := ReadFromMMF('MyFileMapping');
Edit1.Text := MyData.Zeichenkette;
CheckBox1.Checked := MyData.BoolVar;
Edit2.Text := IntToStr(MyData.Zahl);
end;
Freundliche Grüsse,
Int3g3r