ClassFactory ähnlich wie Spring Framework, Hilfe gesucht!

[Mavarik]

Zitat von Sir Rufo:

Delphi-Quellcode:

if _ClassDict.ContainsKey( LGUID ) then
  begin
    LClass := _ClassDict.Items[LGUID];
    LObj := LClass.Create;
    Supports( LObj, LGUID, Result ); // <-- das fehlte mir einfach...
  end;

Oh man... Yes Sir! Darauf muss man kommen? Du bist echt der DUKE... Vielen Dank...

Musste noch meinen GlobalContainer umbauen, das war auch ein Interface und da wollte Generics nicht.

Mavarik

[Sir Rufo]

Zitat von Mavarik:

Zitat von Sir Rufo:

Delphi-Quellcode:

if _ClassDict.ContainsKey( LGUID ) then
  begin
    LClass := _ClassDict.Items[LGUID];
    LObj := LClass.Create;
    Supports( LObj, LGUID, Result );
  end;

Oh man... Yes Sir! Darauf muss man kommen? Du bist echt der DUKE... Vielen Dank...

Musste noch meinen GlobalContainer umbauen, das war auch ein Interface und da wollte Generics nicht.

Mavarik

Büdde, büdde

Es fehlt allerdings bei der Registrierung die Prüfung, ob die Klasse das Interface unterstützt.
Aber war auch nur auf die Schnelle

[Mavarik]

Zitat von Sir Rufo:

Es fehlt allerdings bei der Registrierung die Prüfung, ob die Klasse das Interface unterstützt.
Aber war auch nur auf die Schnelle

Nicht so?

Delphi-Quellcode:

if _ClassDict.ContainsKey( LGUID ) then
  begin
    LClass := _ClassDict.Items[LGUID];
    LObj := LClass.Create;
    if not(Supports( LObj, LGUID, Result )) then
      raise EContainerException.CreateFmt( 'Keine Klasse zum Interface%s(%s) gefunden', [LGUID.ToString, Name] );    
  end;

Mavarik