Aus DLL auf MainForm Komponenten zugreifen

[geskill]

Hi,
ich schicke an eine DLL die Variable des Formulars, damit ich aus der DLL herraus z.b. auf Komponenten zugreifen kann.
Jedoch habe ich das Problem wenn ich z.b. das machen will:

Delphi-Quellcode:

(AFormMain.FindComponent('cobType') AS TComboBox).Text

Dann kommt ein Fehler: cannot assign a TComboBox to a TComboBox

[Apollonius]

Lass es. Mit DLLs wirst du nicht glücklich, wenn du mit der VCL etwas kompliziertere Sachen machst. Nimm lieber Packages.
Ansonsten kannst du auch einen eigenen as-Operator schreiben, der als Vergleichskriterium Instanzgröße und Klassenname statt einfach Klassentyp nimmt.

[geskill]

Zitat:

Zitat von Apollonius

Ansonsten kannst du auch einen eigenen as-Operator schreiben, der als Vergleichskriterium Instanzgröße und Klassenname statt einfach Klassentyp nimmt.

Hat das schon mal jemand gemacht, weil für ein Package müsste ich 8 MB an vcl.dcp, rtl100.bpl etc. mitgeben!
Oder mal dumm formuliert: "Ist das schwer?"

[Pfoto]

Hallo geskill,

ich fand das DLL-Tutorial von Sakura sehr interessant:
http://www.delphipraxis.net/internal...t=dll+tutorial

Es wird z.B. gezeigt, wie man über ein DLL-PlugIn die
Menüsstruktur des Hauptprogramms ändert.
Da kannst du bestimmt was draus lernen.

Gruß
Pfoto

[Apollonius]

Sparst du mit den Packages nicht mehr, als du verlierst?

Ein neuer as-Operator dürfte nicht allzu schwer sein, allerdings verwenden natürlich auch andere Units ihn, sodass das letztlich nur über einen Hook geht - du kannst es allerdings auch mal so probieren.

Delphi-Quellcode:

procedure TestIs(Inst: TObject; Cls: TClass);
  function IsEqual(Cls1, Cls2: TClass): Boolean;
  begin
    Result := (Cls1.InstanceSize = Cls2.InstanceSize) and (Cls1.ClassName = Cls2.ClassName);
  end;
var InstCls: TClass;
begin
  InstCls := Inst.ClassType;
  repeat
    if IsEqual(InstCls, Cls) then
      exit;
    InstCls := InstCls.ClassParent;
  until InstCls = nil;
  raise EInvalidCast.Create('Invalid class typecast');
end;

Edit: Wer hat mir denn die Exception EInvalidClass in den Kopf gesetzt?

[geskill]

Ähm... ich habe das versucht und es funktioniert:

Delphi-Quellcode:

TestIs(MainDatabase.AFormMain.FindComponent('cobType'),TComboBox);

Jedoch kam der Fehler als ich es mit TEdit probiert habe was ja auch richtig ist.

Delphi-Quellcode:

TestIs(MainDatabase.AFormMain.FindComponent('cobType'),TEdit);

jedoch habe ich auch eine Zeile so verändert!

Delphi-Quellcode:

raise Exception.Create('Invalid class typecast');

d.h. deine Prozedur bekommt es schon mal richtig hin!
In wie weit kann ich das jetzt so bearbeiten das ich mit der Komponente arbeiten kann?

[Apollonius]

Wenn du weißt, dass es sich wirklich um eine Instanz der geforderten Klasse handelt, kannst du ja einfach casten:

Delphi-Quellcode:

TCombobox(AFormMain.FindComponent('cobType')).Text

[geskill]

Dankeschön nein es war mir nicht bekannt, naja man lernt immer dazu :thumb: