String aus DLL verschicken

[js747a]

du kannst z.B. eine Funktion der DLL aufrufen und dieser einen Pointer auf eine Funktion in der EXE mitgeben, diesen Pointer speicherst du und rufst darüber dann die Funktion in der EXE auf

Schön wenn einer mal ein Beispiel posten würde. Anscheinend sind hier nur Specialisten und Hobbyprogramierer verstehen immer nur ein Teil.
Und wenn mal ein Beispiel dabei ist funktioniert es nicht weil man immer noch eine andere Komponente haben muss oder es variabelen gibt die im Beispiel nicht zu finden sind.

[himitsu]

Im Prinzip genauso, wie mit den bekannten Event-Methoden der VCL. (Button.OnClick usw.)

Delphi-Quellcode:

// EXE

type TMyProc: procedure({s: string});  // was Selbstdeklariertes oder was Fertiges, z.B. ala TNotifyEvent, TThreadMethod oder TThreadProcedure

function SetEvent(Value: TMyProc);
  external MyDLL;

procedure MakeIt(...);  // alternativ kann man auch den Event-Zeiger hier direkt übergeben
  external MyDLL;

Delphi-Quellcode:

// DLL

type TMyProc: procedure({s: string});

var Event: TMyProc;  // es muß keine globale Variable sein

function SetEvent(Value: TMyProc);
begin
  Event := Value;
end;

procedure MakeIt(...);  // oder sonstwo ... z.B. aus einem Thread
begin
  ...
  if Assigned(Event) then
    Event({s});
  ...
end;

Was für einen Zeiger man nimmt, dass kann man sich gern aussuchen.

Delphi-Quellcode:

type
  TMyProc: procedure({s: string});  // nur Prozeduren und statische Klassenmethoden
  TMyProc: procedure({s: string}) of object;  // nur Objektmethoden und Klassenmethoden
  TMyProc: reference to procedure({s: string});  // alles

[hoika]

Hallo,
Beispiele findest du, wenn du dir ein Dll-Tutorial durchliest
sobald da GetProcAddress vorkommt, siehst du auch, wie man die Adresse, die GetProcAddress liefert
einem Funktionzeiger zuordnet und die Funktion aufruft.

Das ist genau das gleiche Prinzip.