zwei Programme miteinander kommunizieren lassen

[seddto1977]

Danke für die Antworten :) Ich habe es jetzt mal mit sendmessage probiert. "Programm A" das in der Regel auf die "Datei C" zugreift hat eine unsichtbare Form bekommen (initialisiert mit "Application.showmainform := false und Form1.visible := false) Auf der Form sind zwei Buttons mit dem label "zugriff begin" und "zugriff end" Wenn "Porgamm B" Zugriff haben möchte sucht es mit FindWindow und FindwindowEX den 1.Button und klickt ihn, beim ende des Zugriffs das selbe mit Button 2. Soweit die Theorie! Das ist der entsprechende Code-Schnipsel:

Code:

function Zugriff(Buttontext: string): Boolean;
var HB, hApp, hbutton: HWND;
begin
    application.processmessages;
    HB := FindWindow(nil, 'dasfensteristunsichtbarundhateinenquatschnamen');

  IF (HB <> 0) then
    begin
     hApp := HB;
     hButton := FindWindowEx(hApp, 0, nil, PChar(buttontext));

      if hbutton <> 0 then
        begin
          SendMessage(hButton, BM_CLICK, 0, 0);
          result := true;
        end;

Das finden des unsichtbaren Windows klappt (im einzelschritt-Modus überprüft) Allerdings erhalte ich beim Button als id immer 0 :( hat jemand ne Ahnung woran das liegt? By the way: Buttontext enthält den korrekten Namen des Buttons (ist auch ohne Rechtschreibfehler hab ich gecheckt)...hat jemand eine Ahnung was falsch läuft?

[SirThornberry]

Warum willst du den Buttonklicken? Es wäre doch viel einfacher wenn du selbst eine message definierst und deine eigene messageroutine dafür schreibst

Delphi-Quellcode:

const WM_Communication = WM_USER + 10;
[...]
    procedure WMCommunication(var message: TMessage); message WM_Communication;
[...]


procedure TESFEBServer10.WMCommunication(var message: TMessage);
var a: HWND;
begin
  a := findwindow(PChar('TAnderesProg'), PChar('TitelX1'));
  if a > 0 then
  begin
    if (Message.LParam = -1) then 
    begin
      //datei schließen
    end else if if (Message.LParam = 0) then 
    begin
      //datei öffnen
    end;
    postmessage(a, WM_Communication, Message.WParam, Message.LParam); //bestätigung schicken
  end; 
end;

einfach vorher festlegen welche zahl was bedeutet. Ich hab in dem Beispiel einfach mal -1 gesendet wenn die datei geschlossen werden soll und 0 wenn sie wieder geöffnet werden kann

[seddto1977]

@ SirThornberry

Danke das ist echt nett von dir :) Allerdings versteh ich ein paar Sachen noch nicht so ganz. Die Procedure muss ich sofern ich das richtig verstanden habe in Programm A einfügen, das die Message geschickt kriegt oder? Aber was setzte ich für TAnderesProgramm ein? Den Klassennamen meines zweiten Programms B? Woher krieg ich den denn? Und was mir auch nicht ganz klar ist: Wie müsste denn der Aufruf von Programm b aus sein?

So?

Code:

application.processmessages;
    HB := FindWindow(nil, 'dasfensteristunsichtbarundhateinenquatschnamen');

  IF (HB <> 0) then
   
     SendMessage(HB, WM_Communication, 0, 0);
    result := true;
        end;

[SirThornberry]

Der Code von Programm b muss dann so aussehen

Delphi-Quellcode:

const WM_Communication = WM_USER + 10; 
[...] 
    procedure WMCommunication(var message: TMessage); message WM_Communication; 
[...] 


procedure TProgramB.ButtonClick(Sender: TObject);
var a: HWnd;
begin
  a := findwindow(PChar('TProgramA'), nil);
  if a > 0 then
  begin
    postmessage(a, WM_Communication, 0, -1); //Message damit Program A schließt
  end;
end;

procedure TProgramB.WMCommunication(var message: TMessage); 
var a: HWND; 
begin 
  if (Message.LParam = -1) then //
  begin 
    //Mit der Datei arbeiten
    postmessage(a, WM_Communication, Message.WParam, 0); //Message damit Program A wieder Datei öffnet
  end; 
end;

Falls du damit nicht zurecht kommst sag einfach bescheid, dann bastel ich nen kleines Demo dazu

[Luckie]

In seinem Hook-Tutorial hat Assarbad auch was zu IPC geschrieben: http://www.luckie-online.de/Ablage/Exporte/

[seddto1977]

Danke für die Mühe die du dir gemacht hast! Ich werds morgen früh gleich mal testen :)

[SirThornberry]

Da ich lange weile hatte habsch mal schnell nen demo gebastelt

[seddto1977]

Danke für das Demo :)...hab jetzt verstanden wies läuft und werd das für mein Programm mal anpassen

[alcaeus]

Also: Prozesssynchronisation, Teil 1: Petterson-Algorithmus
Prozess 1 will Datei bearbeiten:

Delphi-Quellcode:

flag[0] := True;
turn := 1;
while flag[1] and (turn = 1) do //Busy-Waiting
  Sleep(1);
<Kritischer Code>
flag[0] := False;

Prozess 2 will Datei bearbeiten:

Delphi-Quellcode:

flag[1] := True;
turn := 0;
while flag[0] and (turn = 0) do //Busy-Waiting
  Sleep(1);
<Kritischer Code>
flag[1] := False;

Flag und turn müssen gemeinsame Variablen sein. Wie das in Delphi geht weiß ich nicht :oops:, in C hab ichs mal gemacht

Delphi-Quellcode:

var
  flag: array[0..1] of Boolean = (False, False);
  turn: Integer = 0;

Erklärungen gibts sobald ich mehr Zeit habe, also heute nachmittag (Italien hat nämlich auch am Samstag schule :roll:)

[Luckie]

Unter Delphi wirst du es nicht schaffen einen Speicherbereich für eine Variable einzurichten, auf den beide Prozesse zugreifen können. Mit Visual C kann man einen solchen Speicherbereich mitteles eines Compilerswitches oder wie das heißt mit dem Pragma

Code:

#pragma data_seg("Shared")

einrichten. Delphi kann dies nicht.

Als Alternative zur Interprozesskommunikation könnte mann noch Memory Mapped Files in Erwähgung ziehen.