Logging aus DLL heraus über CallBack ?

[moelski]

Moin !

Wir ham da ein paar DLLs woraus wir gerne Logginginfos an die Hauptanwendung übergeben würden.
Im prinzip ist das Logging nix anderes als ein paar Strings.

Ist es nun möglich (evtl. über eine CallBack Funktion) aus der DLL heraus einen String an die Anwendung zu übergeben? Und in der Anwendung übergebe ich dann den String an unser Logging (SmartInspekt) ?
Im Prinzip könnte man die SmartInspekt Unit auch in der DLL verwenden, aber dadurch wächst die DLl von 100 auf 443KB. Das ist ein bisserl arg zuviel um ein paar Strings zu loggen wie ich finde ...

Wenn das über Callback geht, wäre das dann der umgekehrte Weg zu dem was hier dargstellt wurde?
http://www.delphipraxis.net/internal...t=dll+callback

[Luckie]

Was Strings und DLLs angeht, guckt dir das http://www.michael-puff.de/Artikel/StringDLL.shtml mal an.

[moelski]

Moin Michael,

danke für den Hinweis. Wir haben uns aber extra entschlossen die ShareMem zu nutzen. Denn wie hast du so schön geschrieben:

Zitat:

...Will man es sich unter Delphi einfach machen und ist die DLL auch in Delphi geschrieben...

Wir werden das Interface für die DLLs nicht bekannt geben und insofern möchten wir aus unseren DLLs heraus auch ganz normal mit Strings arbeiten können. Ob das nun besser oder schlechter ist sei mal dahingestellt.

Kannst du (oder jemand anderes) mir denn noch einen Tip geben bezüglich der Callback Funktion?

Ich habe hier noch eine Info gefunden: http://www.delphi-forum.de/viewtopic.php?p=386566
Aber das scheint nicht alles zu sein was man für die Umsetzung braucht.

Um der Sache auf den Grund zu gehen habe ich mal alles auf das Nötigste reduziert.
In meiner DLL habe ich folgende Definition:

Delphi-Quellcode:

PFNCallBack  = Procedure (); stdcall;

Und folgenden Code:

Delphi-Quellcode:

Procedure MyCallBack(ACallBackFunc: PFNCallBack); stdcall;   
begin
  if Assigned(ACallBackFunc) then begin  //schauen ob Funktion verfügbar ist....ja ist sie
    try
      ACallBackFunc();
    except
      //
    end;
  end;
end;

Und in meinem normalen Programm habe ich das hier:

Delphi-Quellcode:

procedure MyCallBack(); stdcall;  
begin
  ShowMessage('Geht' );
end;

Das ist ja letztlich die Procedure die ich aus meiner DLL raus aufrufen möchte.

Aber so einiges ist mir da noch nicht klar.

• Wie muss ich die Procedure im Hauptprogramm bekannt machen?
• Muss ich die Procedure im Hauptprogramm auch irgendwie "exportieren"?
• Wie rufe ich in der DLL letztlich meine Callback Procedure auf? Vermutlich mit MyCallBack(????). Aber was übergebe ich da?

Hoffe jemand kann da noch etwas lichten :cyclops:

[mkinzler]

Zitat:

# Wie muss ich die Procedure im Hauptprogramm bekannt machen?

Sie ist doch im Hauptprogramm deklariert

Zitat:

# Muss ich die Procedure im Hauptprogramm auch irgendwie "exportieren"?

Nein, du übergibst sie ja an die Funktion in der Dll

Zitat:

# Wie rufe ich in der DLL letztlich meine Callback Procedure auf? Vermutlich mit MyCallBack(????). Aber was übergebe ich da?

Ja

[moelski]

Moin !

Zitat:

Zitat:
# Wie muss ich die Procedure im Hauptprogramm bekannt machen?
Sie ist doch im Hauptprogramm deklariert

Nein im Moment ist es nur eine Procedure in meiner Hauptanwendung.

Aber vermutlich habe ich da noch ein Verständnisproblem ...
Funktioniert das ganze Konstrukt so:
-> Hauptprogramm übergibt der DLL einen Pointer auf die eigene Procedure (um sie in der DLL bekannt zu machen)
-> Und dann greife ich über diesen Pointer aus meiner DLL raus auf die Procedure zu?

Sehe ich das richtig das dann dieses Beispiel genau auf meinen Fall zutreffen würde?
http://www.delphi3000.com/articles/article_2362.asp?SK= :gruebel:

[mkinzler]

Zitat:

-> Hauptprogramm übergibt der DLL einen Pointer auf die eigene Procedure (um sie in der DLL bekannt zu machen)
-> Und dann greife ich über diesen Pointer aus meiner DLL raus auf die Procedure zu?

Genauso funktioniert es

[moelski]

Moin !

Ahaaaa :thumb:
Prinzip verstanden, umgesetzt und funktioniert.

Danke an alle !

[sirius]

Wenn du die DLL sowieso nur aus Delphi heraus verwenden willst ist ein "stdcall" überflüssig.

[moelski]

Moin !

Zitat:

Wenn du die DLL sowieso nur aus Delphi heraus verwenden willst ist ein "stdcall" überflüssig.

Das ist jetzt überflüssig da ich die DLL dynamisch lade. Der Teil ist schon Geschichte ...