Daten übertragen von DLL nach EXE

[gmc616]

Hallo DP'ler,

ich möchte Daten von einer DLL in die HostApplication senden.
Dafür nutze ich Code, den ich hier im Forum gefunden habe, aber leider noch nicht so recht verstehe.

Die Struktur die übertragen werden soll:

Delphi-Quellcode:

type
  PcsCopyDataStruct = ^TcsCopyDataStruct;
  TcsCopyDataStruct =
  packed record
    dwData : DWORD;
    cbData : DWORD;
    lpData : Pointer;
  end;

Die DLL sendet die Struktur so:

Delphi-Quellcode:

procedure fSendMsg(pHwnd : HWND); stdcall;
var
  dwMsg : DWORD;
  cdWork  : TcsCopyDataStruct;
  sDummyStr : string;
begin
  dwMsg := RegisterWindowMessage('{6A64733D-6DAE-4972-9668-0181419AE58D}');
  sDummyStr := ('Delphi-Praxis ist super!');
  cdWork.dwData := dwMsg;
  cdWork.cbData := Length(sDummyStr)+1;
  cdWork.lpData := AllocMem(cdWork.cbData);
  try
    CopyMemory(cdWork.lpData,@sDummyStr[1],cdWork.cbData-1);
    sendMessage(pHwnd,WM_COPYDATA,dwMSg,lParam(@cdWork));  //  [color=#ff0000]<- Stürtz ab[/color]
    //PostMessage(pHwnd,WM_COPYDATA,dwMSg,lParam(@cdWork)); // [color=#ff0000]<- Msg kommt nicht an[/color]
   finally
     FreeMem(cdWork.lpData,cdWork.cbData);
   end;
end;

und zum Empfangen in der Hostanwendung überscheibe die die WndProc so:

Delphi-Quellcode:

procedure TForm1.WndProc(var msg : TMessage);
var   cdWork  : PcsCopyDataStruct;
begin
  if msg.Msg = WM_COPYDATA then begin
    if msg.WParam = dwMsg then begin
      cdWork := PcsCopyDataStruct(msg.lParam);
      showMessage (pchar(cdWork.dwData));
    end else
      // Jede andere Message an die ursprüngliche Prozedure weiterreichen
      inherited WndProc(msg);

  end else
    // Jede andere Message an die ursprüngliche Prozedure weiterreichen
    inherited WndProc(msg);
end;

Aufgerufen wird das ganz so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  dwMsg := RegisterWindowMessage('{6A64733D-6DAE-4972-9668-0181419AE58D}');
  fSendMsg(Form1.Handle);
end;

Das SendMessge in der DLL führt zu einer Schutzverletzung und PostMessage scheint garnicht erst anzukommen, aber wieso?
Ich nutze diese Code auch an anderer Stelle und dort funktioniert er.
Gibt es beim Senden aus DLL's noch etwas zu beachten?
Oder hab ich was übersehen?

Könnt ihr helfen?

Sicher hat es was mit geschützten Speicherbereichen zu tun.
Wäre net wenn ihr mir das erklären könntet.

Gruß und Danke
gmc

[sniper_w]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  dwMsg := RegisterWindowMessage('{6A64733D-6DAE-4972-9668-0181419AE58D}');
  fSendMsg(Form1.Handle);
end;

??
Vielleicht nur so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  fSendMsg(Form1.Handle);
end;

In fSendMsg wird   dwMsg := RegisterWindowMessage('{6A64733D-6DAE-4972-9668-0181419AE58D}'); sowieso aufgerufen.

edit:
Ich denke dwMsg sollte global/ als public Feld von TForm1 deklariert sein.

[gmc616]

Ähm, viellicht ist es nicht korrekt rüber gekommen.

Die HostAnwendung und die DLL sind zwei getrennte Applicationen.
Also muß ich dwMsg in beiden Applicationen mit RegisterWindowMessage auf den gleichen Wert setzen.
Oder etwa nicht?

Jedenfalls funktioniert ein

Code:

PostMessage(pHwnd,WM_COPYDATA,dwMsg,0);

nur so. Und das kommt sogar in der Hostanwendung an,aber

Code:

PostMessage(pHwnd,WM_COPYDATA,dwMSg,lParam(@cdWork));

funktioniert nicht.

Hmm ...

Keiner ne Idee?

[gmc616]

Hallo Ihr,
ich möchte das Thema mal wieder aufwerfen.

Ich hab mir dem Code nochmal genauer angeschaut und mir ist in meiner Beschreibung damals, ein Fehler unterlaufen.

Die Schutzverletzung kommt nich in der DLL sondern in der Hostanwendung.
Diese meint, das ein Zugriffsverletzung im "Host"-Modul beim Lesen auf der Adresse 000000C (oder so ähnlich) passiert sein.

Im Code wäre es diese Zeile der HostanwendungcdWork := PcsCopyDataStruct(msg.lParam); Ok, die Adresse 0000000C sieht mMn auch komisch aus.

Was mache ich falsch?

Um Hilfe bittend...
gmc

[Olli]

Ähem ... eines müßtet ihr mir mal kurz erklären: "von einer DLL in die HostApplication senden" klingt stark danach, daß unsere DLL in die Anwendung (APP) geladen ist?! Ist das so?

Warum wird dann überhaupt alles "gesendet"?

Die DLL teilt sich doch mit ebendiesem Prozeß auch den Speicherraum. Man kann also einfach Pointer und Größe übergeben und muß nicht so tun als wäre es eine echte IPC.