Só outra dica sobre interfaces: Eu tive esse problema, caso vc coloque uma variável no private, public, etc, de um TForm, TDataModule, é necessário no Destroy atribuir NIL para a variável, se não fizer, podem ocorrer na finalização do sistema, será que é BUG?
Exemplo: TForm1 = class(TForm) procedure Form1Create(Sender: TObject); procedure Form1Destroy(Sender: TObject); private FInt: IMyInterface; end; implementation procedure TForm1.Form1Create(Sender: TObject); begin Fint := MeuObjetoComAInterface; end; procedure TForm1.Form1Destroy(Sender: TObject); begin FInt := nil; // evita dor de cabeças, apesar de parecer inútil end; ----- Original Message ----- From: Filipe Belchior To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 15, 2006 6:08 PM Subject: [delphi-br] Re: Ponteiro de Interface?? [RESOLVIDO] blz galera, eis o acerto.. PMinhaInterface = ^IMinhaInterface OutraInterface: IMinhaInterface OutraInterface := PMinhaInterface(ponteiro)^ OutraInterface.UmMetodoDaInterface //CORRETO! ..valeu!! fica pra aprendizado!! []s --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior" <[EMAIL PROTECTED]> escreveu > > olá.. > > ..naum estou conseguindo utilizar um objeto, que passo > o "ponteiro da sua interface" por parametro, pois é, > seguinte.. > > > IMinhaInterface = Interface > > TMinhaClasse = class(TInterfacedObject, IMinhaInterface) > > > MinhaInterfaceImplementada: IMinhaClasse > > MinhaInterfaceImplementada := TMinhaClasse.Create > > > procedure MeuMetodo( ponteiro: Cardinal ) > > > MeuMetodo( @MinhaInterfaceImplementada ) > > OutraInterface: IMinhaInterface > > OutraInterface := ponteiro^ > > OutraInterface.UmMetodoDaInterface //ERRO! > > > ..num sei se vcs entenderam, rs.. mas, agradeco quem puder ajudar. > > ..mais uma coisa, vcs provavelmente irao perguntar o pq do parametro > como ponteiro.. desacoplamento.. por conta disso, eu naum mostrei > exatamente como faco a passagem de parametro, mas exemplifiquei > através do "MeuMetodo" > > []s > > FILIPE BELCHIOR > [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html