🚀 go-pugleaf

W dniu 2012-01-24 09:10, konsul41@wp.pl pisze:
> Delphi XE
>
> Opis:
> Czy da się stworzyć drugą instancję/egzemplarz instniejącego Interfejsu
> mając tylko istniejącą instancję/egzemplarz.
>
> IPitDraw = interface(IObiekt)
> ['{E4FE2E92-7B11-4ABB-BBA6-FBA87BA11387}']
> end;
>
> Tworzę w dll tak
>
> CONST NazwaObiektu = 'Etykieta1';
>
> procedure CIPitDraw(out Obiekt: IPitDraw; out ObiektName : String);
> begin
> Obiekt:=TEtykieta1.Create;
> ObiektName:=NazwaObiektu;
> end;
Po co Ci osobne ObiektName (poza tym - łat a kul name, takie 
ingliszpolskie :D)?
Pewnie, żeby używać w TDictionary - tak?
Skoro tak, to dlaczego nie trzymasz ObiektName w IPitDraw??

> procedure ObiektName(out ObiektName : String);
> begin
> ObiektName:=NazwaObiektu;
> end;
>
>
> Biblioteka jest ładowana dynamicznie i uchwyt zapamiętany na liście dlli
> w programie wywołuję CIPitDraw i mam interfejs
>
> Pytanie:
> Czy da się stworzyć drugą instancję/egzemplarz instniejącego Interfejsu
> mając tylko istniejącą instancję/egzemplarz?
[...]?
A dlaczego nie dodasz metody fabrykującej instancję do interfejsu?
  IPitDraw = interface(IObiekt)
  ['{E4FE2E92-7B11-4ABB-BBA6-FBA87BA11387}']
    function CreateInstance : IObiekt;
  end;
Wtedy każda instancja interjsu może tworzyć nowe instancje samego siebie.

Albo, możesz utworzyć interfejs fabryki który będzie fabrykował 
interfejsy...
Czyli oddelegować fabrykowanie do osobnego insterfejsu - Twoja procedura 
CIPitDraw jest taką fabryką.

> Czy muszę przeszukiwać listę DLLI i i odpytywać o nazę obsługiwanego
> obiektu i jak obsługuje to tworzyć nowy?
Nie musisz.

-- 
wloochacz