Zugriff auf zur Laufzeit erstellte TLabel aus DLL?

[DirkG]

Hallo DPler!

Ich habe in meinem Programm ein Panel auf dem mehrer zur Laufzeit erzeugte TLabel liegen. Nun soll die Caption der Label geändert werden. Dazu übergebe ich das Panel an die Funktion die das tun soll. Diese durchsucht es nach Controls vom Typ TLabel und prüft dann ob der Name des Label übereinstimmt um die Caption zu ändern...

Soweit die Theorie. In einer Unit funktioniert das ganze problemlos. Binde ich die Funktion in eine DLL ein, wird zwar das Panel durchsucht und die Controls werden der Reihe nach abgefragt, aber der Typcast (ich hoffe das ist die richtige Bezeichnung) funktioniert nicht mehr und die Caption wird nicht geändert.

Wo habe ich das Brett vor dem Kopf? :wall:

Delphi-Quellcode:

procedure ShowSingleData(ID: integer; var SingleData: TPanel); stdcall; export;
var i: integer; 
begin
  if (SingleData <> nil) and DBProjects.GetDS(ID, dllIbProjects.DSProject) then 
    for i:= 0 to SingleData.ControlCount-1 do 
      try
      if (SingleData.Controls[i] is TLabel) then begin // hier bricht in der dll die Verarbeitung ab
        if (SingleData.Controls[i] as TLabel).Name = 'dbfDatField0' then 
          (SingleData.Controls[i] as TLabel).Caption := IntToStr(dllIbProjects.DSProject.ID);
        if (SingleData.Controls[i] as TLabel).Name = 'dbfDatField1' then 
          (SingleData.Controls[i] as TLabel).Caption := dllIbProjects.DSProject.Caption;
        if (SingleData.Controls[i] as TLabel).Name = 'dbfDatField2' then 
          (SingleData.Controls[i] as TLabel).Caption := DateToStr(dllIbProjects.DSProject.DateStart);
        if (SingleData.Controls[i] as TLabel).Name = 'dbfDatField3' then 
          (SingleData.Controls[i] as TLabel).Caption := DateToStr(dllIbProjects.DSProject.DateEnd);
      end;
    except; 
  end;
end;

[Apollonius]

Modul1.TLabel <> Modul2.TLabel. So einfach ist das. Du kannst einen modifizierten is-Operator verwenden (ich habe mal eine Lösung gepostet, da müsstest du mal suchen) oder aber, was eher zu empfehlen ist, mit Packages arbeiten.

Außerdem noch eine andere Sache: Wenn du bereits mit is auf einen bestimmten Typen geprüft hast, ist der as-Cast unnötig. Der Cast Typ(Ausdruck) ist hier günstiger.

Edit: Hier findest du den modifizierten as-Operator. Das lässt sich leicht in ein is umschreiben.

Edit 2: Noch eine andere Geschichte: Du musst unheimlich mit Strings aufpassen, die durch die Module wandern. Letztlich solltest du alle Strings, die du aus einem anderen Modul erhältst, erst einmal in lokale Variablen kopieren und daran UniqueString aufrufen.

[DirkG]

Zitat:

Modul1.TLabel <> Modul2.TLabel. So einfach ist das.

Nach meinem Verständnis übergebe ich doch gerade mit dem var Parameter dieses Modul1. Somit müsste doch in diesem Fall App.TLabel = Dll.TLabel sein, da es sich doch um die Variable handelt?? :gruebel:

Zitat:

Außerdem noch eine andere Sache: Wenn du bereits mit is auf einen bestimmten Typen geprüft hast, ist der as-Cast unnötig. Der Cast Typ(Ausdruck) ist hier günstiger.

Meinst du es in dieser Art?

Delphi-Quellcode:

procedure ShowSingleData(ID: integer; var SingleData: TPanel); stdcall; export;
var i: integer;
begin
  if (SingleData <> nil) and DBProjects.GetDS(ID, dllIbProjects.DSProject) then
    for i:= 0 to SingleData.ControlCount-1 do
      try
      if (SingleData.Controls[i] is TLabel) then begin // hier bricht in der dll die Verarbeitung ab
        if TLabel(SingleData.Controls[i]).Name='dbfDatField0' then 
           TLabel(SingleData.Controls[i]).Caption:= IntToStr(dllIbProjects.DSProject.ID);
        if TLabel(SingleData.Controls[i]).Name='dbfDatField1' then 
           TLabel(SingleData.Controls[i]).Caption:= dllIbProjects.DSProject.Caption;
        if TLabel(SingleData.Controls[i]).Name='dbfDatField2' then 
           TLabel(SingleData.Controls[i]).Caption:= DateToStr(dllIbProjects.DSProject.DateStart);
        if TLabel(SingleData.Controls[i]).Name='dbfDatField3' then 
           TLabel(SingleData.Controls[i]).Caption:= DateToStr(dllIbProjects.DSProject.DateEnd);
      end;
    except;
  end;
end;

[Apollonius]

Mit TLabel meinte ich nicht die Instanz, sondern den Typen. Bei einem is-Cast wird, vereinfacht gesagt, einfach Instanz.ClassType = RequiredClassType geprüft. Und das ist dein Problem: Instanz.ClassType ist Hauptprogramm.TLabel, RequiredClassType ist aber DLL.TLabel. Also ist die Gleichheit nicht gegeben.

Dein Cast ist jetzt richtig.

[DirkG]

:-D OK ich glaube es verstanden zu haben. Beim Suchen in deinen Posts hier im Forum ist mir da was aufgefallen. Du übergibst beim DLL aufruf das Handle des MainForm der Application. Bin ich da auf dem Holzweg oder sollte ich es mal so versuchen?
Über das Handle des MainForm die im MainForm enthaltenen Controls duchsuchen und dann auf diese zugreifen. Is sicherlich etwas aufwendiger aber es könnte das Problem lösen.

[Apollonius]

Ich? :gruebel: Ich habe noch nie die VCL in DLLs verwendet. Das muss ein anderer gewesen sein.
Und letztlich kannst das Problem nur umgehen, indem du nur mit WinAPI auf die Controls zugreifst - sobald du Klassen verwendest, bist du wieder da, wo du angefangen hast.

[DirkG]

:thumb: Vieleicht hab ich mich auch verlesen. Egal. Vielen Dank erstmal. Ich werde mal sehen ob ich eine andere Lösung finde.