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:

markieren

Delphi-Quellcode:

			type

  PcsCopyDataStruct = ^TcsCopyDataStruct;

  TcsCopyDataStruct =

  packed record

    dwData : DWORD;

    cbData : DWORD;

    lpData : Pointer;

  end;

Die DLL sendet die Struktur so:

zusammenfalten · markieren

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:

zusammenfalten · markieren

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:

markieren

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**

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

  dwMsg := RegisterWindowMessage('{6A64733D-6DAE-4972-9668-0181419AE58D}');

  fSendMsg(Form1.Handle);

end;

??
Vielleicht nur so:

markieren

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

markieren

Code:

PostMessage(pHwnd,WM_COPYDATA,dwMsg,0);

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

markieren

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

Ä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.

Daten übertragen von DLL nach EXE

Daten übertragen von DLL nach EXE

Re: Daten übertragen von DLL nach EXE

Re: Daten übertragen von DLL nach EXE

Re: Daten übertragen von DLL nach EXE

Re: Daten übertragen von DLL nach EXE

Forumregeln