Über Dll Komponenten auf der Form ansteuern

[PartyPansi]

Hi,

die überschrift müsste eigentlich alles sagen. Hab schon verschiedenes probiert, gibt aber imme rnur Fehler. Hab als erstes mal die form der Anwendung bei uses übergeben und dann kann ich die Sachen auf der FOrm auch ansteuern, aber wenn ich das Programm kompiliert habe, kommt immer ein Fehler in der dll

Hoffe da weiss einer Rat

PartyPansi

[Luckie]

Eventuell hilft das Tutorial von Assarbad: http://www.luckie-online.de/tutorials/assarbad/

Aber so ganz habe ich nicht verstanden, was du vor hast. Du willst von der DLL auf Elemente deines Formulares zugreifen und übergibst das Form Objekt der DLL? Ich glaube da bekommst du Schwierigkeiten, das Objekt ist ja auch nur ein Zeiger auf einen Speicherbereich und der scheint in der DLL nicht gültig zu sein.

[Marcel Gascoyne]

Das wird wohl nur über die WinApi funktionieren. Mit SendMessage kannst Du aus Deiner DLL bestimmte Nachrichten an ein Fenster (Steuerelement) Deines Formulars senden. Du musst dafür natürlich das Handle Deines Steuerelements an die DLL übergeben. Mit Referenzen auf eine Delphi Form wird es nicht funktionieren, da die DLL in einem eigenen Adreßraum ausgeführt wird.

Gruß,
Marcel

[TomRaider]

Moin,

Mal eine Frage am Rande:
Ich habe gerade mal das Tutorial durchgeackert, weil ich ein ähnliches Problem habe. Leider lässt sich VCL_SampleDLL.dpr mit Delphi 7 nicht compilieren. Für einen Anfänger in Sachen DLL lässt sich das Problem leider nicht so einfach lösen. Konnte einer von euch das Projekt compilieren?

internette Grüße

Tom



Das Problem sieht so aus:

Delphi-Quellcode:

library VCL_SampleDLL;

uses
  Windows,
  FormUnit1 in 'FormUnit1.pas' {FormDLL};

var
  DLLProcNext: procedure(Reason: Integer); stdcall = nil;

exports
  FormShowModal,
  FormShowNormal;

procedure DLLMain(Reason: Integer); stdcall;
begin
// Hier tun wir unsern Job ...
  case Reason of
    DLL_PROCESS_ATTACH:
      begin
        DisableThreadLibraryCalls(hInstance);
      end;
    DLL_THREAD_ATTACH:
      begin
      end;
    DLL_THREAD_DETACH:
      begin
      end;
    DLL_PROCESS_DETACH:
      begin
      end;
  end;
// Wenn DLLProcNext <> nil dann rufen wir DLLProcNext auf.
  if Assigned(DLLProcNext) then try
    DLLProcNext(Reason);
  except
  end;
end;

begin
// Wir holen uns den alten Wert von DLLProc() in die Variable DLLProcNext() und
// setzen den DLLProc() auf den Wert der Adresse von DLLMain().
  DLLProcNext := Pointer(InterlockedExchange(Integer(DLLProc), Integer(@DLLMain)));//                                             î
// DLLMain() wird mit DLL_PROCESS_ATTACH aufgerufen, da unsere DLLMain() sonst
// nicht mehr dran käme.
  DLLMain(DLL_PROCESS_ATTACH);
end.

Fehlermeldung:
[Fehler] VCL_SampleDLL.dpr(42): Nicht genügend wirkliche Parameter

[edit=sakura]Delphi-Tag geschlossen Mfg, sakura[/edit]

[choose]

probiere statt
DLLProcNext := Pointer(InterlockedExchange(Integer(DLLProc), Integer(@DLLMain))); die Adresse der Prozedur DLLProc
DLLProcNext := Pointer(InterlockedExchange(Integer(@DLLProc), Integer(@DLLMain))); direkt zu casten.
Andernfalls interpretiert der Compiler DllProc "als Aufruf" und vermisst den Parameter Reason.

[TomRaider]

Super!
Groooossses Danke! Das hätte ich als DLL-Anfänger nie gefunden!


tom