Probleme mit CallBack aus eigener DLL

[Net7]

Hi,

habe die Beiträge im Forum, zu diesen Thema gefunden, allerdings kann ich diese nicht für mich nutzbar machen.

Ich habe eine Komponente die ein Callback aus einer Dll benötigt:

Code der Componente

Delphi-Quellcode:

Type
TSetFileNamesCallBack=procedure(MsgCallback: Pointer); stdcall;

...
type 
MyCompo=class(TComponent)
private

SetFileNamesCallBack:TSetFileNamesCallBack;

function DllSagtWas;

...

constructor MyCompo.Create(AOwner: TComponent);
begin
FHandle := LoadLibrary(PChar(ExtractFilePath(ParamStr(0)) + 'meinedll'));
...
@SetFileNamesCallBack:= GetProcAddress(FHandle, 'SetFileNamesCallBack');
...

// Versuch 1

SetFileNamesCallBack(@DllSagtWas); 
//geht nicht, da Variable fehlt??? Self?? (auch wenn ich die function DllSagtWas:boolean; stdcall;) so definiere.
 

// Versuch 2
SetFileNamesCallBack(TMyCompo.DllSagtWas); 

// hier bekomme ich ein Callback, aber der läuft nicht richtig. Irgendwie ist bei meiner Komponente dann vieles Nil 
// wenn ich z.b. aus MyCompo.DllSagtWas ein Event starten will

end;



function MyCompo.DllSagtWas:boolean;
begin
// gib laut  
end;

dll

Delphi-Quellcode:

var
gFileNamesCallBack: function:boolean = nil ;

...

procedure SetFileNamesCallBack(MsgCallback: Pointer); stdcall;
begin
     @gFileNamesCallBack:=MsgCallback;
end;


... irgendwo im code
if assigned(gFileNamesCallBack) then
   begin
       // gib Laut 
       gFileNamesCallBack;
   end;

exports

SetFileNamesCallBack;

Ich hab vieles probiert, aber irgendwas muss ja falsch laufen... bin für jeden Hinweis dankbar...

Mfg Net7

[spaxxn]

Hast du dich in Bezug auf Callbacks schon mal mit Interfaces beschäftigt?

[Net7]

Zitat:

Zitat von spaxxn

Hast du dich in Bezug auf Callbacks schon mal mit Interfaces beschäftigt?

Ja, allerdings Denke ich, das bei den wenigen Funktionen ein Interface wohl Overkill wäre.
Aber ich glaube Dich stört eher die direkte Pionterübergabe. Aber wenn das ein Hinweis ein soll werd ich mir ein Interface basteln ;)

Mfg Net7

[spaxxn]

Sollte nur ein Anstoss sein. :)

Prozessübergreifende Callbacks werden auch noch interessant.

[Blup]

var
gFileNamesCallBack: function(Self: Pointer):boolean = nil ;

Methoden erwarten immer den versteckten Parameter Self (Ausnahme Klassenmethoden), eventuell Aufrufkonventionen angeben.

[Net7]

Zitat:

Zitat von Blup

var
gFileNamesCallBack: function(Self: Pointer):boolean = nil ;

Methoden erwarten immer den versteckten Parameter Self (Ausnahme Klassenmethoden), eventuell Aufrufkonventionen angeben.

Hab ich schon versucht, ändert aber nichts. Zumal gFileNamesCallBack: function(Self: Pointer):boolean = nil ; stdcall nicht funktioniert und eine DLL stdcall eh fordert.

Mfg Net7

[sirius]

Zitat:

Zitat von Net7

und eine DLL stdcall eh fordert.

Nö. Die DLL legt das bei der Implementation einfach fest und alle anderen müssen sich daran anhalten.

Zitat:

Zitat von Net7

Hab ich schon versucht, ändert aber nichts. Zumal gFileNamesCallBack: function(Self: Pointer):boolean = nil ; stdcall nicht funktioniert

Die Richtung von Blup war schon richtig. Aber man muss ja als Self etwas sinnvolles übergeben bzw. gleich einen Methodenzeiger speichern:

Delphi-Quellcode:

var 
gFileNamesCallBack: function:boolean of object;