DLL Zugriff

[TheMiller]

Hallo,

eine Frage: Kann ich mit einer DLL, die in mein Programm eingebunden ist, auf eine Komponente (zB ListView) in einer spez. Form zugreifen?

Danke im Voraus

[Olli]

Mehr Input, bitte!

Bei aktuellem Wissenstand aus deinen Angaben lautet die Antwort: Jain.

[TheMiller]

:)

Ok, nehmen wir an, ich habe eine ListView in Form1 (ListView1). In der DLL ist eine Funktion/Routine, die die ListView mit Daten füllt. Woher sie die hat, sei mal so dahingestellt.

Funktioniert das?

[alcaeus]

Moin DJ-SPM,

wie waers wenn du der Funktion aus der DLL eine ListView uebergibst, und die Funktion mit der ListView arbeitet?
Die Funktion direkt auf ListView2 in Form275 zu boxen waere vielleicht sogar moeglich, ist (IMO) aber alles andere als sinnvoll.

Greetz
alcaeus

[TheMiller]

Kannst du mir ein kleines Beispiel geben. Entweder stehe ich gerade auf dem Schlauch... Habe mit DLLs selten gearbeitet...

[glkgereon]

du machst ne variable in der dll

Delphi-Quellcode:

Lst: Pointer;

dann sagst du irgendwo im HauptCode

Delphi-Quellcode:

Lst:=ListBox1;

und in der Dll arbeitest du dann mit

Delphi-Quellcode:

with TListBox(Lst) do
  bla

[brechi]

in die dll:

Delphi-Quellcode:

uses windows, sysutils, <unit für listbox>;

var flist: TListbox = nil;

procedure InitListBox(var l: TlistBox); stdcall;
begin
  flist := l;
end;


procedure hierfueheichwashinzu;
begin
  if flist <> nil then
    flist.add('hallo');
end;

export InitListBox;

in exe:

Delphi-Quellcode:

var initListBox: procedure (var l: TlistBox); stdcall;

  oncreate:
  
h := Loadlibrary('mydll.dll');
@initlistbox := GetProcaddress(h,'InitListBox');
inilistBox(form1.Listbox1);

danach kann halt von der dll etwas eingefügt werden


Edit: meine fresse kann man nicht einfach das stehen lassen was ich schreibe, warum muss für jedes delphi immer ein pre eingesetzt werden wenn ich nen / vergessen habe

[Olli]

Übrigens, wenn du den Overhead durch die Unit für die Listbox vermeiden willst, kannst du die Listbox noch ganz traditionell über ihr Handle nach Win32-API-Manier füllen ;) Einfach im PSDK unter "Common Controls" nachgucken ---

[TheMiller]

Danke an euch alle,

aber die erste Version (mit dem Pointer) scheint mir noch am einfachsten zu sein, oder irre ich da?!?

[tigerman33]

Macht letztendlich nicht viel Unterschied. Je nachdem was mehr deinem persönlichen Stil entspricht.

@all:
Täusche ich mich, oder ist ein Windows-Handle nichts anderes als ein Zeiger? :?:

[sniper_w]

Zitat:

Täusche ich mich, oder ist ein Windows-Handle nichts anderes als ein Zeiger?

Mag sein, ich denke eher nicht. Sollte es ein zeiger sein, hat man nicht viel davon, wie soll man es dereferenzieren.

[Olli]

Zitat:

Zitat von sniper_w

Zitat:

Täusche ich mich, oder ist ein Windows-Handle nichts anderes als ein Zeiger?

Mag sein, ich denke eher nicht. Sollte es ein zeiger sein, hat man nicht viel davon, wie soll man es dereferenzieren.

Nein, es ist kein Zeiger. Handles sind "Indeces" in die Handletabelle - und dort gibt es dann Pointer auf die Objekte und Zugriffsmasken. Lustigerweise habe ich darüber heute einen Artikel geschrieben *g*
So ist es zumindest für Dateien. Ob es für Fenster auch Pointer in der Handletabelle sind, weiß ich leider nicht mit Bestimmtheit. Bei Dateien, Threads, Prozessen und so weiter ist es wie von mir beschrieben.

[tigerman33]

Kann man sich das dann so vorstellen, dass ein Handle quasi die Telefonnummer des Zeigers ist.

Windows hat dann ein Telefonbuch und kann rausfinden, wo welches Handle sich im Speicher rumtreibt.(Oder besser gesagt, welches Objekt (jetzt mal nicht im OOP-Sinn) mit einem bestimmten Handle.)

?

[Olli]

Zitat:

Zitat von tigerman33

Kann man sich das dann so vorstellen, dass ein Handle quasi die Telefonnummer des Zeigers ist.

Windows hat dann ein Telefonbuch und kann rausfinden, wo welches Handle sich im Speicher rumtreibt.(Oder besser gesagt, welches Objekt (jetzt mal nicht im OOP-Sinn) mit einem bestimmten Handle.)

Jupp, so ungefähr ist das. Da der Artikel für ein bekanntes Magazin aus GB ist, hier mal der kurze Auszug, aber eben in Englisch:

Zitat:

All of the handles a process can own – which are a whopping 16 million, starting with Windows 2000 – are basically only indexes into a so-called handle-table. This handle table exists on a per-process basis and is maintained by the object manager. The entry of a handle-table contains the pointer to the object body and the access mask which was used to obtain the handle (e.g. GENERIC_READ, GENERIC_WRITE). This allows the object manager to check the security constraints for any handle upon access and consequently to allow or deny access to the underlying object.

Why are handles needed if they are anyway only pointers to the real objects? Well, first of all any driver writer knows that user-mode code is evil code. That is why security restrictions only apply to user-mode code. Basically any kernel-mode component such as drivers can access objects without such restrictions via their pointer. Taking this into account means that giving user-mode code direct unrestricted access to an object’s pointer would be simply insane from the security perspective. Furthermore the user-mode code may put own restrictions on how it wants to access the object. For example it could open a file in read-only mode. So, giving user-mode code unrestricted access to an object is inappropriate again, because such restrictions apply to the handle of an object but not to the pointer of the object - to which the handle is an index.

(Das ist noch nicht die Endfassung, könnte also dann anders in The Delphi Magazine erscheinen! Dieser Teil stammt aus meiner "Feder" und zwar von gestern, weshalb ich keine urheberrechtlichen Probleme sehe ;))

[tigerman33]

Nicht schlecht, Herr Specht (dumme Sprüche die 257.) :P Gut erklärt!

[TheMiller]

So,

habe das jetzt getestet:

Delphi-Quellcode:

DLL:

library filllist;

uses
  SysUtils,
  Classes,
  ComCtrls, dialogs;

{$R *.res}

procedure test; stdcall;
var
  lst:pointer;
begin
  TListView(lst).Hide;
end;

exports
  test;

begin
end.

Delphi-Quellcode:

EXE:

procedure test; stdcall; external 'filllist.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
  lst:TListView;
begin
  lst:=ListView1;
  test;
end;

end.

Wenn ich jetzt in der Exe auf Button1 klicke, wird die MainForm "versteckt". Wie kann ich die ListView(lst) an Form1 "anhängen?

[tigerman33]

Ich bin mir zwar nicht ganz sicher was du mit "anhängen" meinst, aber so wie du es da geschrieben hast kann es nicht gehen. Du musst der Prozedur Test schon die Adresse (oder halt das handle) der ListView mitteilen. Denn der von dir deklarierte Zeiger lst in Test ist ja nur eine lokale Variable und zeigt momentan halt irgendwo ins Daten-Nirwana. Zu dem in der Echse deklarierten lst hat er ja überhaupt keine "Verbindung". Übergib das doch (z.B.) als Parameter:

Delphi-Quellcode:

procedure test(Lst: TListView); stdcall;
begin
  lst.Hide;
end;

und dann


procedure TForm1.Button1Click(Sender: TObject);
begin
  test(ListView1);
end;

[TheMiller]

Schwupps - weg isse!! :hello:

Funzt prima!!!

Danke