HWND_BROADCAST, ist relativ langsam, blockiert das System usw.

[Uwe Raabe]

Zitat von Kostas:

muss es immer eine Form sein?

Es kann jede beliebige Klasse sein. Man muss sie nur passend aufbereiten. Hier ein Basisgerüst:

Delphi-Quellcode:

type
  TMessageListener = class
  private
    FWindowHandle: HWND;
    procedure WndProc(var Msg: TMessage);
  public
    constructor Create;
    destructor Destroy; override;
  end;

constructor TMessageListener.Create;
begin
  inherited;
  FWindowHandle := AllocateHWnd(WndProc);
end;

destructor TMessageListener.Destroy;
begin
  if FWindowHandle <> 0 then
  begin
    DeallocateHWnd(FWindowHandle);
    FWindowHandle := 0;
  end;
  inherited;
end;

procedure TMessageListener.WndProc(var Msg: TMessage);
begin
  Msg.Result := DefWindowProc(FWindowHandle, Msg.Msg, Msg.wParam, Msg.lParam);
end;

[Kostas]

Hallo Uwe,

deinen Vorschlag mit der eigenen Klasse würde ich gerne umsetzen.

Ich habe folgenden Zustand: die gleichen source werden über zwei unterschiedliche .dpr Dateien kompiliert. Somit habe ich eine Eingang.exe und eine Ausgang.exe Die Anwendung selbst ist eine MDI-Anwendung. Ich könnte also eine zwei Klassen haben z.B.: TMessageListernerE und eine TMessageListernerA anlegen und über die .dpr entsprechend einbinden. Mit findWindow kann ich vermutlich nur sichtbare Formklassen finden. Gibt es eine Möglichkeit wie findWindow um die zwei Klassen TMessageListernerE und TMessageListernerA die auch keine Forms sind zu finden? Dann könnte ich gleich direkt adressieren und brauchte auch kein Broadcast um das handle an Eingang zu Ausgang und umgekehrt zu übertragen.

Alternativ könnten ich wenn findWindow auch unsichtbare Forms finden könnte, auch zwei Forms Eingang und Ausgang verwenden und in der jeweiligen Projektdatei entsprechend einbinden.

Zum nächsten, möchte die Nachricht versenden und NICHT warten bis die Anwendung antwortet. Sollte ich dafür besser PostMessage anstelle von SendMessage verwenden?

[Uwe Raabe]

Zitat von Kostas:

Ich habe folgenden Zustand: die gleichen source werden über zwei unterschiedliche .dpr Dateien kompiliert. Somit habe ich eine Eingang.exe und eine Ausgang.exe

Einen ähnlichen Fall habe ich gerade vor ein paar Wochen realisiert. Ich stelle die (anonymisierten) Units später hier bereit.

[Kostas]

Vielen herzlichen Dank an alle und besonders dir lieber Uwe!!

[Uwe Raabe]

So, hier der versprochene Code.

[Kostas]

Hallo Uwe,

wieder einmal tausend dank. Ich habe es zwar nicht 1:1 einsetzen können da das Projekt ein Delphi5 Projekt ist, aber ich konnte es für mein Projekt anpassen.

Dir noch eine schöne Zeit.

Gruß Kostas

[Uwe Raabe]

Ich hatte das nicht erwähnt, aber die GUIDs zum Registrieren der Message-ID müssen natürlich für ein anderes Client/Server-Paar auch geändert werden. In dem Punkt gibt es sicher noch Raum für Verbesserungen. Aber es ging ja erstmal ums Prinzip.