Schnelle Datenübertragung zwischen zwei Programmen

[SneakyBagels]

Ich suche aktuell eine möglichst schnelle Möglichkeit Records von einer Exe zu einer anderen zu schicken.
Aktuell teste ich ein bisschen rum und schicke einen String über das TCopyDataStruct und Sendmessage/FindWindow zu der anderen Exe.
Der String enthält kommaseparierte Daten welche dann vom Empfänger auseinandergenommen werden.

Geht das irgendwie anders? StaticText Labels möchte ich keine Nutzen. Direkt in die Controls schreiben ist auch nicht möglich.

[Zacherl]

Gibt etliche Möglichkeiten. Zwei prominente Varianten wären Pipes oder MemoryMappedFiles (MMF).

[Uwe Raabe]

Zitat:

Zitat von Zacherl (Beitrag 1375672)

Gibt etliche Möglichkeiten. Zwei prominente Varianten wären Pipes oder MemoryMappedFiles (MMF).

Für ersteres gibt es hier eine gute Erklärung und sogar noch die Sourcen für die Komponenten: Inter Process Communication Using Pipes

[SneakyBagels]

Hintergrund:
ich habe ein Formular in meiner Anwendung das von Zeit zu Zeit über längere Zeit angezeigt und mit Daten versorgt wird.
Die Daten werden in einem Thread A Variablen zugewiesen und im Thread B abgefragt.

Ich möchte das Formular samt Thread B nun gerne in eine eigene Exe auslagern.
Thread A würde die Daten dann an die zweite Exe schicken.

[Luckie]

Und warum möchtest du das?

[SneakyBagels]

Ich quäle mich schon ewig damit rum eine ProgressBar-Anzeige in einem Taskbutton anzuzeigen.
Das funktioniert ja alles wunderbar aber leider wird die Anzeige immer nur im ersten Button dargestellt.
Wenn ich ein Formular mit CreateParams erzeuge (ExStyle => Params.ExStyle or WS_EX_APPWINDOW) habe ich zwei Buttons der Anwendung gruppiert. Dann wird leider auch in den ersten Button gezeichnet
statt in den zweiten in welchem ich den eigentlichen Code für dieses Feature erzeuge.
Durch das Auskoppeln dieses Formulars in eine eigene Anwendung würde ich dieses Problem umgehen.

Zitat:

Für ersteres gibt es hier eine gute Erklärung und sogar noch die Sourcen für die Komponenten:

Die scheinen unter Tokyo nicht zu funktionieren.
Ich bekomme alles in die IDE installiert und auch die Demo-Projekte kompiliert aber man kann keine Daten hin und herschicken (es kommt nichts an).

[Neumann]

Man kann das auch über eine http-Verbindung lösen, z.B. mit Soap. Der die Daten sendet ist der Client, der andere der Server. Hätte den Vorteil dass beide Programme auch auf verschiedenen Rechnern laufen könnten.

[SneakyBagels]

HTTP ist wirklich gut aber dann kommt wieder das leidige Thema SSL, Zertifikate usw.
Lokal würde mir absolut reichen es muss nur schnell genug sein.

Ansonsten habe ich noch das hier gefunden. Das wäre mit MemoryMapped files und sicherlich schneller als meine String-Bastelei:
http://www.michael-puff.de/Programmi...pets/MMF.shtml

Ich glaube ich habe jetzt eine für mich zufriedenstellende Lösung gefunden:
=> http://www.michael-puff.de/Programmi...COPYDATA.shtml
1) In einer Schleife von 0 bis 100 in Anwendung 1 setze ich die ProgressBar.Position in Anwendung 2. Das reine Senden der Daten (Record) dauert zwischen 3ms und 6ms.

2) In einer Schleife von 0 bis 24999 in Anwendung 1 setze ich Label1.Caption in Anwendung 2. Das dauert rund 4050ms 3600ms. Könnte schneller sein, reicht mir aber erst einmal.
Ohne IPC dauert das Setzen dieses Labels ~700ms.
Wenn ich in TReceiver.WMCopyData() das Label1.Caption := xyz; weglasse, bin ich auch bei 700ms. Heißt also der Sender wartet auf eine Antwort vom Receiver bevor es weitergeht?
Ich habe gerade mal zum Test das Ändern des Labels aus WMCopyData rausgenommen. Dort wird nur noch eine Variable gesetzt welche in einem Thread ausgelesen wird. Nun bin ich mit einem Sleep(1) im Thread und Synchronize() bei 850ms statt 3600ms.
Wenn jedoch zu schnell gesendet wird (abwechslend Action 0 und 1), kommt der Empfänger wohl irgendwie nicht hinterher und zeigt komische Zeichen im Label an.

Delphi-Quellcode:

// weil ich zu faul war, sind das globale Variablen
var
 aAction, iZahl: Integer;
 sZeichenkette: string;

procedure TFormReceiver.WMCopyData(var msg: TWMCopyData);
begin
 aAction := PMyData(msg.CopyDataStruct.lpData)^.Action;

 if aAction = 0 then
  begin
   iZahl := PMyData(msg.CopyDataStruct.lpData)^.Zahl;
   // ProgressBar1.Position := Zahl;
  end
 else if aAction = 1 then
  begin
   sZeichenkette := PMyData(msg.CopyDataStruct.lpData)^.Zeichenkette;;
   // Label1.Caption := Zeichenkette;
  end;
end;

procedure TGUISetter.Execute;
begin
 while not Terminated do // auch, weil ich zu faul war
  begin
   Sleep(1);

   if aAction = 0 then
    begin
     Synchronize(
       procedure
      begin
       FormReceiver.ProgressBar1.Position := iZahl;
      end);
    end
   else if aAction = 1 then
    begin
     Synchronize(
      procedure
      begin
       FormReceiver.Label1.Caption := sZeichenkette;
      end);
    end;
  end;
end;

[Uwe Raabe]

Zitat:

Zitat von SneakyBagels (Beitrag 1375677)

Zitat:

Für ersteres gibt es hier eine gute Erklärung und sogar noch die Sourcen für die Komponenten:

Die scheinen unter Tokyo nicht zu funktionieren.
Ich bekomme alles in die IDE installiert und auch die Demo-Projekte kompiliert aber man kann keine Daten hin und herschicken (es kommt nichts an).

Kann ich nicht bestätigen. Ich habe hier in einfach

- das ZIP-Archiv entpackt
- die Projektgruppe in Tokyo geladen
- alle Projekte erzeugt
- die beiden Exe gestartet
- beim Client Connect geklickt
- Broadcast geklickt: Client meldet Received "Edit1"
- Send geklickt: Server meldet Rcvd "Edit1" mit der Client-ID

Das hat keine Minute gedauert.

[SneakyBagels]

Ich habe alles exakt gleich gemacht.

Zitat:

- beim Client Connect geklickt
- Broadcast geklickt: Client meldet Received "Edit1"
- Send geklickt: Server meldet Rcvd "Edit1" mit der Client-ID

Hier passiert bei mir nichts.

Eigentlich ist mir die Lösung mit WM_COPYDDATA lieber aber hier verschluckt sich der Code ab und zu.