Unit erstellen - bräuchte mal Hilfe...

[moelski]

Moin !

Ich habe heute mal diesen Code hier probiert: http://www.swissdelphicenter.ch/torr...ode.php?id=418
Funktioniert auch einwandfrei. Nun würde ich das aber gerne in eine Unit packen um es in verschiedenen Anwendungen nutzen zu können. Aber irgendwie kriege ich das nicht hin. Mein bisheriges Konstrukt wird zwar fehlerfrei kompiliert, aber es geht nicht :roll: :

Delphi-Quellcode:

unit IPC_Handler;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TWMMYMessage = record
    Msg: Cardinal;   // ( first is the message ID )
    Handle: HWND;    // ( this is the wParam, Handle of sender)
    Info: Longint;   // ( this is lParam, pointer to our data)
    Handle2: HWND;
    Handle3: HWND;
    PID: LongInt;
    Result: Longint;
  end;

type
   TIPC = class(TForm)
    private

    public
      procedure DefaultHandler(var Message); override;
      procedure WMMYMessage(var Msg: TWMMYMessage);
   end;

Var
    WM_OURMESSAGE:  DWORD;

implementation

procedure TIPC.DefaultHandler(var Message);
var
  ee: TWMMYMessage;
begin
  with TMessage(Message) do
  begin
    if (Msg = WM_OURMESSAGE) then 
    begin
      ee.Msg     := Msg;
      ee.Handle  := wParam;
      ee.Info    := lParam;
      ee.Handle2 := Application.Handle;
      ee.Handle3 := FindWindow(nil, PChar(Application.Title));
      ee.PID     := GetCurrentProcessID;
      // Checking if this message is not from us
      if ee.Handle <> Handle then
        WMMYMessage(ee);
    end
    else
      inherited DefaultHandler(Message);
  end;
end;

procedure TIPC.WMMYMessage(var Msg: TWMMYMessage);
begin
  //Auswertung der Broadcast Message
end;

initialization
  WM_OURMESSAGE := RegisterWindowMessage('Our broadcast message');

end.

Die Anwendung sieht dann so aus:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IPC_Handler;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;


var
  Form1:          TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(HWND_BROADCAST, IPC_Handler.WM_OURMESSAGE, Handle, Top);
end;

end.

Aber so recht will das nicht. Kann mir jemand sagen wie ich das in den Griff kriege?

[ichbins]

was geht denn nicht?

[SubData]

Zitat:

Zitat von moelski

aber es geht nicht :roll: :

Geht das ein wenig genauer?
Ich meine, gibt es hinterher in der Applikation Fehlermeldungen, AVs, werden die Deklarationen nicht gefunden, stimmen die Werte nicht? etc...

[ichbins]

oder passiert einfach nix wenn du das ding aufrufst?

[moelski]

Nunja, es passiert einfach nix :-D

Wenn ich in der Unit einen Breakpoint setze, dann kriege ich da einen riten Kreis mit X drin. Also kommt er da wohl nie hin.

Vielleicht habe ich die Unit auch gänzlich falsch aufgebaut!? Oder das mit dem Override funzt so garnicht. Keinen Schimmer :freak:

[moelski]

Anbei mal der Quellcode.
Normalerweise sollte man die Anwendung 2x aufmachen und dann sollte per Broadcast was übertragen werden.

[ichbins]

wasgenau geht jetzt nicht?

kommt eine Exception?
kannst du das Ding garnicht kompilieren?
passiert nix?

[moelski]

Moin !

>wasgenau geht jetzt nicht?
Also, das Verschicken des Broadcast geht nicht. Kurzum, der Code macht nicht mehr das was er macht, wenn ich alles in einer Unit (die von meinem Form) habe.

>kommt eine Exception?
Nein.

>kannst du das Ding garnicht kompilieren?
Doch, kompiliert sauber durch. Ohne Fehler.

>passiert nix?
So ist es. Es scheint so, als würde ihn die Unit irgendwie garnicht interessieren.
Und wei gesagt, ich kann in der Unit auch keinen Breakpoint setzen, bzw. ich kriege dann den roten Kreis mit X.