WM_COPYDATA macht große Probleme

[Mazel]

Hallo,

ich möchte von einem Programm zu einem anderen eine Nachricht senden, doch das funktoniert nicht.

Hier mal mein Code:

Delphi-Quellcode:

//die 2. Anwendung
var
  Wnd: HWnd;
  MyCopyDataStruct: TCopyDataStruct;

begin
// Hier stehen noch andere Teile die ein Semaphore erstellen und das Handle (wnd) abfragen
//das funktioniert auch alles nur die Message nicht
If ParamStr(1) <> '' then with MyCopyDataStruct do
  begin
    dwData:=0;
    cbData:=Length(PChar(ParamStr(1))) + 1;
    lpData:=PChar(ParamStr(1));
    SendMessage(Wnd, WM_COPYDATA, Application.Handle, Integer(@MyCopyDataStruct));
  end;

//die 1. Anwedung, die auf die Message eigentlich warten sollte
procedure TForm1.WMCOPYDATA(var Msg: TWMCopyData);
var
  sText: array of Char;

begin
  SetLength(sText,Msg.CopyDataStruct.cbData);
  StrLCopy(PChar(sText), Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData);
  NewAVObject(PChar(sText));       //Prozedur zu weiteren Verarbeitung
end;

Warum kommt keine Nachricht an? Wird sie gar nicht erst gesendet? Das Handle (Wnd) zu dem die Nachricht gesendet wird stimmt aber.

Ich bin schon seit 3 Tagen am verzweifeln, ich hoffe mir kann jemand helfen.

Gruß
Mazel

[Luckie]

Bist du sicher, dass das auch das Handle des Zielfensters ist?

[Zacherl]

Zitat:

und das Handle (wnd) abfragen

Poste diese Funktion bitte mal ...

Florian

[Mazel]

Hi,

es ist das richtige Handle, denn ich habe beim Start der ersten Anwendung mir eine Message zeigen lassen und als die zweite Anwendung getsartet wurde
ShowMessage(IntToStr(Application.Handle)); und
ShowMessage(IntToStr(Wnd)); beides mal war es gleich, sonst würde er auch nicht mit SetForegroundWindow(Wnd) die richtige Anwendung nach vorne bringen.

Aber hier trotzdem der Code (aus einer OneInst):

Delphi-Quellcode:

unit OneInst;

interface

{ Make a call to this procedure in your project source
  immediately before the first call to CreateForm.
  That should ensure it is after the Application.Title
  assignment that can muck up the logic.

  If you haven't set an application title yet, then
  do so to ensure this works }

uses
 Windows, Messages, SysUtils, Classes, Controls, Forms;

procedure EnsureSingleInstance (MyGUID : string) ;

implementation

uses
  WinTypes, WinProcs, Dialogs, UnitConst, Unit1;

procedure EnsureSingleInstance (MyGUID : string) ;
var
  Wnd: HWnd;
  WndClass, WndText: array[0..255] of char;
  MyCopyDataStruct: TCopyDataStruct;
begin 
{$ifdef Win32} 
  { Try and create a semaphore. If we succeed, then check }
  { if the semaphore was already present. If it was }
  { then a previous instance is floating around. }
  { Note the OS will free the returned semaphore handle }
  { when the app shuts so we can forget about it }
  if (CreateSemaphore(nil, 0, 1,
        PChar(MyGUID)) <> 0) and
     (GetLastError = Error_Already_Exists) then
{$else}
  if HPrevInst <> 0 then
{$endif}
  begin
    Wnd := GetWindow(Application.Handle, gw_HWndFirst);
    while Wnd <> 0 do
    begin
      { Look for the other TApplication window out there }
      if Wnd <> Application.Handle then
      begin
        { Check it's definitely got the same class and caption }
        GetClassName(Wnd, WndClass, Pred(SizeOf(WndClass)));
        GetWindowText(Wnd, WndText, Succ(Length(Form1.Caption)));
        if (StrPas(WndClass) = Application.ClassName) and
           (StrPas(WndText) = Form1.Caption) then
        begin
          { This technique is used by the VCL: post }
          { a message then bring the window to the }
          { top, before the message gets processed }
          PostMessage(Wnd, wm_SysCommand, sc_Restore, 0);
{$ifdef Win32}
           If ParamStr(1) <> '' then with MyCopyDataStruct do
           begin
            dwData:=WM_COMMUNICATE;
            cbData:=Length(PChar(ParamStr(1))) + 1;
            lpData:=PChar(ParamStr(1));
            SendMessage(Wnd, WM_COPYDATA, Application.Handle, Integer(@MyCopyDataStruct));
           end;

          SetForegroundWindow(Wnd);
{$else} 
          BringWindowToTop(Wnd);
{$endif}
          Halt
        end 
      end;
      Wnd := GetWindow(Wnd, gw_HWndNext)
    end
  end
end;

end.

Gruß
Mazel

[RavenIV]

zeig mal die Definition von TForm1.WMCOPYDATA.
Da muss nämlich noch dazu, dass dies eine "Message-Funktion" ist und auf welche Message diese Funktion horchen soll.

z.Bsp.:

Delphi-Quellcode:

TForm1 = class (TForm)
  ...
  ...
  private
    ...
    procedure WMQUERYENDSESSION (var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION;
  ...
end;
...
...
procedure TForm1.WMQUERYENDSESSION (var Msg: TWMQueryEndSession);
begin
  ...
  ...
  inherited;
end;

und wo hast Du eigentlich die Message WM_MYMESSAGE deklariert?
Und hast Du diese Message auch registriert?

[Mazel]

Sorry,

ich habe ich bisschen herum probiert, dort steht jetzt wieder WM_COPYDATA.

Wegen der ersten Frage:

Delphi-Quellcode:

private
  procedure WMCOPYDATA(var Msg: TWMCopyData); Message WM_COPYDATA;
...
...
end;
...
...
procedure TForm1.WMCOPYDATA(var Msg: TWMCopyData);
var
sText: array of Char;

begin
 SetLength(sText,Msg.CopyDataStruct.cbData);
 StrLCopy(PChar(sText), Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData);
 NewAVObject(PChar(sText));
end;

Ist in dieser Funktion das inherited notwendig?

Gruß
Mazel

[Mazel]

Gibt es eine andere Möglichkeit um den Parameter von der zweiten Instanz zur ersten zu übertragen?

Gruß
Mazel

[Sharky]

Ha Mazel,

ich hatte in diesem Posting mal ein Beispiel.
Eventuell hilft Dir das ja etwas?

[Mazel]

Hi,

danke, nur bringt mir das nicht soviel. Ich möchte Nachrichten von einer Instanz (Anwendung) zu einer anderen Senden.

Was bedeutet eigentlich das Owner in:
hWnd := (Owner AS TForm).Handle; Ich habe 2 Codeschnippsel. Bei einem kommt auch das Owner vor, in dem funktioniert die Parameter übergabe aber da gibt es andere Dinge die mir nciht gefallen und in der anderen kommt das eben nicht vor (die obere).

Gruß
Mazel

[Flippo]

Hi,

wollte das selber mal hinkriegen und dein post hat mir dabei sehr geholfen, nun kann ich dir evtl. helfen:

Du solltest beachten, dass du das handle der Form brauchst und nicht das der Application, das sind zwei verschiedene Dinge, in deiner Abfrage vergleichst du nämlich application.handle mit dem Handle an das du senden willst, du musst es aber an die form schicken.

Hoffe das löst bei dir auch die Probleme meins funzt jezt so...

MFG

Flippo