Announcement

**Hagen Reddmann** · 13.11.2002, 01:20

Meinst du die verf�gbaren Formulare die schon erzeugt wurden oder meinst du die Formluar-Klassen die durch die verschiednenen Units eingebunden wurden ?? 

Beides w�re m�glich. F�r ersteres iteriert man durch Screen.CustomForms[] und nutzt Screen.CustomFormCount dazu. 
Alle schon erzeugten Forms, egal ob sichtbar/unsichtbar sind dort verzeichnet. 

Solange aber keine Form-Instance erzeugt wurden stellt Delphi keinen direkten Weg zur Verf�gung. Es gibt also NUR die Klassendefinitionen, die sozusagen als Template f�r die Objectinstancen dienen. Aber man kann diese sich zu nutze machen. Ein Weg w�re so wie in RegisterClass() und GetClass() gezeigt. �ber diese Liste werden die verf�gbaren Klassen dem System bekannt gegeben. 

Die andere, inoffizielle, Methode basiert auf dem Gedanken das im Codesegment jeder Anwednung alle Klassen die durch Units eingebunden wurden gespeichert wurden. Sprich die RTTI,VMT,DMT's usw. aller Klassen sind in der EXE gespeichert. Die entscheidende Frage ist ob man einen Weg findet �ber ALLE diese Klassen iterieren zu k�nnen. D.h. alle benutzten Datentypen, ob Integer, String, Enums oder eben Klassen/Interfaces, k�nnen durch eine Iterierfunktion aufgelistet werden. 

In den Borland Newsgroups habe ich daf�r schon Code gepostet. 

Gru� Hage

**Frank Speelmans** · 14.11.2002, 10:51

Hallo Hagen,

danke f�r die Informationen. Bei kommt die 2. Variant in Frage, da
die Frames erst zur Laufzeit generiert werden. Ich habe in den mir
bekanntn Newsgroups gesucht und leider nichts gefunden. Vieleicht
k�nntest Du mir mittilen wo ich den Code finden kann.

Danke im voraus

Gru� Fran

**Hagen Reddmann** · 15.11.2002, 00:32

Also f�r Variante zwei gibts zwei Wege

<pre>

<code>unit RegFrame;
 
interface
 
var
FrameClasses: TList = nil;
 
procedure RegisterFrame(const Classes: array of TFrameClass);
 
implementation
 
procedure RegisterFrame(const Classes: array of TFrameClass);
var
I: Integer;
begin
for I := Low(Classes) to High(Classes) do
FrameClasses.Add(Classes[I]);
end;
 
initialization
FrameClasses := TStringList.Create;
finalization
FreeAndNil(FrameClasses);
end.
 
// in der Unit die den Frame implementiert dann...
 
uses FrameReg, ...;
 
type
TmyFrame = class(TFrame)
end;
 
implementation
 
initialization
RegisterFrame([TMyFrame]);
end.
 
// in der Unit die nach Frames suchen soll
 
uses FrameReg;
 
...
 
procedure SucheErzeugeFrame;
var
I: Integer;
Frame: TFrame;
begin
for I := 0 to FrameClasses.Count -1 do
with TFrameClass(FrameClasses[I]) do
if ClassName = 'TMyFrame' then
begin
Frame := Create(..);
end;
end;
 

</code></pre&gt

**Hagen Reddmann** · 15.11.2002, 00:33

dies sollte der Standardweg sein, da er eben klar definiert ist. 
Die Iteration �ber alle TypeInfo's des Modules basiert auf undokumentierten Strukturen. Ich schau mal ob ich sie auf meinem Rechner finde

den zweiten Weg findest du http://groups.google.de/groups?hl=de&lr=&ie=UTF-8&threadm=3c0d4532%241_2%40dnews&rnum=1&prev=/groups%3Fhl%3Dde%26lr%3D%26ie%3DISO-8859-1%26q%3DEnumTypeInfo

Gru� Hage

**Hagen Reddmann** · 15.11.2002, 01:01

Angepasst auf Dein Problem:

<pre>

<code>type
TEnumTypeInfoCallback = function(UserData: Pointer; Info: PTypeInfo): Boolean; register;
 
function GetBaseOfCode(Module: hModule; var CodeStart, CodeEnd: PChar): Boolean;
asm // get Codesegment pointers, check if module is a valid PE
PUSH EDI
PUSH ESI
AND EAX,not 3
JZ @@2
CMP Word Ptr [EAX],'ZM';
JNE @@1
MOV ESI,[EAX + 03Ch]
CMP Word Ptr [ESI + EAX],'EP'
JNE @@1
MOV EDI,[EAX + ESI + 014h + 008h]
ADD EAX,[EAX + ESI + 014h + 018h]
ADD EDI,EAX
MOV [EDX],EAX
MOV [ECX],EDI
XOR EAX,EAX
@@1: SETE AL
@@2: POP ESI
POP EDI
end;
 
function EnumTypeInfo(Module: hModule; Callback: TEnumTypeInfoCallback; UserData: Pointer): PTypeInfo;
var
P,E,K,N: PChar;
L: Integer;
begin
Result := nil;
if Assigned(Callback) then
try
if GetBaseOfCode(Module, P, E) then
while P < E do
begin
DWord(P) := DWord(P) and not 3;
K := P + 4;
if (PDWord(P)^ = DWord(K)) and (PByte(K)^ > 0) and (PByte(K)^ < 18) then
// Info.Kind in ValidRange.D6
begin
L := PByte(K + 1)^; // length Info.Name
N := K + 2; // @Info.Name[1]
if (L > 0) and (N^ in ['_', 'a'..'z', 'A'..'Z']) then // valid ident ??
begin
repeat
Inc(N);
Dec(L);
until (L = 0) or not (N^ in ['_', 'a'..'z', 'A'..'Z', '0'..'9']);
if L = 0 then // length and ident valid
if Callback(UserData, Pointer(K)) then
// tell it and if needed abort iteration
begin
Result := Pointer(K);
Exit;
end else K := N;
end;
end;
P := K;
end;
except
end;
end;
 
 
procedure Test;
 
function MyEnum(Data: Pointer; Info: PTypeInfo): Boolean; register;
// wir suchen nur Klassen abgeleitet von TFrame
begin
Result := False;
if (Info.Kind = tkClass) and GetTypeData(Info).ClassType.InheritsFrom(TFrame ) then
WriteLn( Info.Name );
end;
 
begin
EnumTypeInfo(MainInstance, @MyEnum, nil);
// or
// EnumTypeInfo(GetModuleHandle('vcl50.bpl'), @MyEnum, nil);
end;

</code></pre&gt

**Frank Speelmans** · 16.11.2002, 13:28

Hallo Hagen,
vielen Dank f�r die Hilfe und die M�he die Du dir gemacht hast. Ich habe die 1. Variante bereits ausprobiert. Leider habe ich Probleme :

1. Die von Dir benannte TFrameClass ist Delphi 7 nicht bekannt. Ich habe in der Hilfe sowie imm Handbuch gesucht und konnte diesbez�glich nichts finden.

2. Der Befehl FrameClasses := TStringList.Create; funktioniert nicht. Der Compiler meldet : inkompatible Typen TList und TStrings. Wenn ich TStringList gegen TList.Create austausche erhalte ich keine Fehlermeldung.

3. Ich habe Probleme mit der Unit die die Frames Initialisiert. Du machst ein Type TmyFrame = Class(TFrame). Ich w�sste jetzt nicht wo ich meine Frames deklarieren muss. Anbei ein Codebeispiel aus meinem Programm. Hier wird das Formular dynamisch aufgebaut. Ein Formular kann bis zu X Frames enthalten: 
unit DTM_IncotermManager; 
 
interface 
 
uses 
DB, Classes, Dialogs, dxDBEditEco, SysUtils, SDEngine,... 
procedure ShowDTMIncoterm; 
 
var Abfrage : TDM_Incoterm; 
Formular : TF_StammMuster; 
Frame1 : TFrame_Page_Control; 
Frame2 : TFrame_StammLeiste; 
Frame3 : TFrame_Incoterm; 
Frame4 : TFrame_Incoterm_Grid; 
Query : TSDQuery; 
 
implementation 
 
uses DMStamm_lib; 
 
resourcestring 
Anzeige = 'incoterms'; 
 
procedure ShowDTMIncoterm; 
begin 
Formular := TF_StammMuster.Create ( nil ); 
Formular.Label_StammdatenMaske.Caption := Anzeige; 
Frame1 := TFrame_Page_Control.Create( Formular ); 
Frame1.Parent := Formular; 
 
Frame2 := TFrame_StammLeiste.Create( Frame1.TabSheet_Detailansicht ); 
Frame2.Parent := Frame1.TabSheet_Detailansicht; 
 
Frame3 := TFrame_Incoterm.Create( Frame1.TabSheet_Detailansicht ); 
Frame3.Parent := Frame1.TabSheet_Detailansicht; 
 
Frame4 := TFrame_Incoterm_Grid.Create(Frame1.TabSheet_Uebers icht); 
Frame4.Parent := Frame1.TabSheet_Uebersicht; 
 
Abfrage := TDM_Incoterm.Create( Formular ); 
Query := Abfrage.Query_Incoterm; 
 
Formular.DBProvider := Abfrage; 
Frame4.dxDBGrid_Incoterm.DataSource := Formular.DataSource_StammMuster; 

Forms_Field_Init(Frame3,Formular,'Incoterm'); // Initialisierung der Felder 
F_Explorer.InitForms(Formular); 
Formular.Show; 
Frame3.Panel_Allgemein.Width := Formular.Width - 32; 
Frame3.Panel_Incoterm.Width := Formular.Width - 32; 
Frame3.Panel_Incoterm.Height := Formular.Height - Frame3.Panel_Allgemein.Height - 200; 
Frame2.ToolButton_Sprachtexte.Enabled := DMStamm_Lib.PruefeSprachtexte(Frame2, 'ST_INCO'); 
FocusFeld := Frame3.dxDBEditEco_IDNR; 
end; 
 
Muss ich die meine Frames im Type Abschnitt definieren ? : 
Type 
TMyFrame=class(Tframe) 
Frame1 : TFrame_Page_Control; 
Frame2 : TFrame_StammLeiste; 
Frame3 : TFrame_Incoterm; 
Frame4 : TFrame_Incoterm_Grid; 
end; 
 
4. Bei der 2. Variante habe ich das Problem wo die Funktionen gespeichert werden. Werden die in eine gesonderte Unit abgelegt?
 
Gru� Frank<BR&gt

**Hagen Reddmann** · 16.11.2002, 13:56

1.) type TFrameClass = class of TFrame; 
2.) TList.Create ist korrekt, ein Tipfehler von mir

4.) Du solltest eine eigene Unit erzeugen, so wie Unit FrameReg. 
3.) Das h�ngt nun davon ab wie du vorgehen willst. In Deinem Code werden alle Frames statisch erzeugt. Dein Ziel ist es aber eine dynamische Ezeugung vorzunehmen, damit z.B. alle Frames mit bestimmten Type erzeugt werden oder aber Frames mit bekannten Klassennamen erzeugt werden. 

Also mu� meine Gegenfrage nochmal lauten: Was willst Du mit den dynamischen Frames erreichen ?
Normalerweise will man verhindern das z.B. ein TForm das bestimmte Frames nutzen kann, aber nicht mu� !, nur die in sich integriert die durch uns als Unit ins Projekt eingebunden wurden, ABER nicht in der uses Klauseln dieser TForm Unit erscheinen. Mit dem Weg �ber die TypInfo Iteration bekommen wir da aber ein Problem. Da wir z.B. die betreffende TFrame Unit einfach nur als Unit in's project einbinden wir der Compiler diese Klasse weg optimieren, da sie ja nirgends statisch benutzt wird. D.h. dieser Weg ist sehr sinnvoll in Projekten die z.B. dynamisch ein Packages das unseren Frame enth�lt einbinden will. In Packages optimiert der Compiler solche nichtbenutzten Klassen nicht weg. In einem single EXE Projekt mu� dagegen der Weg �ber Unit FrameReg gegangen werden. Da nun jede TFrame Unit in deren initialization Sektion RegisterFrame(TMyFrame) aufruft, darf der Compiler die Klasse TMyFrame NICHT wegoptimieren. Das liegt daran das f�r jede Unit die in ein Projekt eingebunden wird, egal ob die Unit benutzt wird oder nicht, deren Initialization/Finalization Sektionen aufgerufen werden. 
Deshalb meinte ich ja das der Weg �ber eine eigene Registration besser ist. 

Gru� Hage

**Frank Speelmans** · 19.11.2002, 11:20

Hallo Hagen,

zu der Frage mit den dynamischen Frames : Da in meiner Anwendung Maskenlayouts mehrfach vorkommen, habe ich diese als Frames erstellt und erzeuge Sie an den Stellen wo ich Sie ben�tige. Ich habe ebenfalls Frames f�r ToolLeisten und Reitertechnik. Somit erspare ich mir das mehrfache (bis zu 50 mal) erstellen von �hnlichen Layouts. Da die Software ein eigenes Rechtekonzept enthalten soll ( Zugriff auf Objekte, Men�s, Buttons und Datenfelder mit einstellbaren Optionen wie Pflichtfeld ja - nein und �hnliches) muss ich w�hrend der Laufzeit (nach erstellen des Benutzers) alle Frames suchen, damit ich die entsprechenden Zugriffsdateien erstellen und dort die Rechte einstellen kann. 
 
Leider Programmiere ich erst seit ca. 1 Jahr in Delphi und stosse immer wieder an meine Fachlichen Grenzen. 
Deine Ausf�hrungen habe ich leider nicht ganz verstanden. Wie Du das beschreibst ist meine Art die Frames zu erstellen f�r ein wiederfinden nicht entsprechend umgesetzt. Da mir immer noch nicht klar ist wie ich bei mir die Frames definieren muss habe ich mal die andere M�glichkeit von Dir ausprobiert. 
Hier erhalte ich leider auch Fehlermeldungen die ich nicht beheben kann. 
 
In der Zeile If (PDWord(P)^ = DWord(K)) and (PByte(K)^ < 18) then 
 
erhalte ich vom Compiler die Fehlermeldung das PDWord ein undefinierter Bezeichner ist und das ein Zeigertyp erwartet wird. Es w�re nett wenn Du mir nochmals unter die Arme greifen k�nntest.

Gru� Fran

**Hagen Reddmann** · 19.11.2002, 17:01

<pre>

type
PDWord = ^DWord;

</pre>

Nochmals zu den Frames. Du hast ja jeden Frame in einer eigenen Unit. Dein problem ist nun das du an anderer Stelle wissen m�chtest welche Frame-Units in dein Projekt eingebunden wurden. Statt nun alle Frames zu suchen, teilt jeder Frame einer globalen Registrierungsunit seine Existenz mit. Die Registrationsfunktion habe ich oben schon gepostet. Jeder Frame mu� nun in seiner Unit, initialization Sektion der unit, diese Registration durchf�hren. 

Gru� Hage

Announcement

Nach Frames suchen

Nach Frames suchen

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment