aus dll code in hauptanwendung ausführen

[lbccaleb]

moin,

hilfe ich steh gerade auf dem schlauch...
wie kann ich denn, wenn ich aus einer bibliothek (dll) auf einen button drücke, eine aktion in meinem hauptformular ausführen??

was gibt es da für möglichkeiten??

[QuickAndDirty]

Du must der DLL eine Callback Methode bzw. Eine Callback Funktion übergeben!!!

[lbccaleb]

wie genau mach ich das ?? hab sowas noch nie gemacht und wenn ich ehrlich bin von nix nen plan!!

gibts vllt irgend wo nen code wo man sich sowas ansehen kann wie das funzt oder nen tutorial??

[Blackheart]

http://www.delphi-treff.de/tutorials...s/katalog/182/

[QuickAndDirty]

Du brauchst in der DLL eine Funktion die eine procedurale variable als Parameter entgegennimmt und speichert.

Delphi-Quellcode:

type 
TCallback = Procedure (aValue:String); // das ist ein Prozeduraler typ

Delphi-Quellcode:

// im DLL 

var OnClickProc:TCallback; // hier wird die Procedur  im DLL Gespeichert

Procedure SetCallback(aProc:TCallback);// Das hier musst du aus der DLL Exportieren damit andere es aufrufen können
Begin
  OnClickProc := Aproc;
end;

Procedure Form1.Onclick(Sender:Tobject);
Begin
  if assigned(onclickProc) then
    OnclickProc('hau rein');
end;

SO IN ETWA.

[lbccaleb]

danke für das tutorial @blackheart, aber leider konnte ich dort nichts drin ausfindig machen, was mir in sachen callback weiter hilft, bzw wo ich stoff finde, der mir diese funktion mal ein wenig nahe legt..

und der code sieht ja schon ganz gut aus, nur leider weiß ich noch nciht so richtig wie ich das alles verwenden muss, könntest das vllt noch mal ein wenig "mehr" kommentiren?? danke..

[1234588]

ein funktionspointer ist nicht unbedingt noetig.

deine dll:

Delphi-Quellcode:

library miep;

function add(i: LongInt): LongInt; stdcall;
begin
  add := i * 2;
end;

exports
  add index 1 name 'add';

begin
end.

im hauptprogramm fuegst du einfach folgende zeile in deinen implementation teil hinzu:
function add(i: LongInt): LongInt; stdcall; external 'miep.dll'; die add funktion ist von da an dann nutzbar.


//edit
in obigem code wird ein String als argument verwendet. das sollte man unbedingt vermeiden.
1. funktioniert da nicht ohne weiteres (siehe sharemem)
2. kennt keine andere sprache den pascal string. ergo ist sie nur mit pascal verwendbar

[QuickAndDirty]

Ja das mit dem string geht nur wenn du sharemem als erstes in die uses schreibst...
sonst nimmst halt einen Pchar.

Wenn du die DLL universell einsetzbar machen willst so das die unterschiedliche anwendungen auf ereignisse unterschiedlcih reagiren brauchst du schon eine CallBack Procedur in der du die "Reaktion" unterbringst.

Wie man DLL Funtionen in der Anwendung nutzbar macht steht ja hier über dem Post. Der umgekehrte weg geht nur über callback.

[lbccaleb]

ähhm ja aber in dem fall muss die bibliothek vorhanden sein wenn ich ohne fehlermeldung das programm starten und ausführen will?? richtig??

ok da gibts dann bei mir aber nen kleines problem, es muss gleichzeitig so programmiert sein, das ich die dll nicht benötige um das programm zu starten!


diese dll ist bei mit nämlich eine "plugin" dll die hilfe formen enthält, und man soll/kann bei der installation diese dll abwählen...

das ist also noch nen kleiner hacken..

[QuickAndDirty]

-Du must erst das DLL mit LoadLib importieren.
-Dann alle Exports des DLL in Procedurale Variablen laden mit GetProcAddr

Jetzt kannst du alle DLL Funtkionen in deinem projekt benutzen.
Vergiss nicht FreeLib wenn du sie nicht mehr brauchst.

Wenn du nun willst das dein Programm was macht wenn ein ButtonClick in der DLL passiert
dann must du der DLL eine Callback procedur übergeben.

Mal ne Frage warum nimmst du eine DLL und kein Package?