[firebase-br] Extrair Metadata pelo Delphi

[wilson junior]

2009/10/22 Reijanio Nunes Ribeiro <rnribeiro em gmail.com>

> da uma olhada em SetSchemaInfo pra vc entender melhor da uma olhada nessa
> materia aki
> http://www.devmedia.com.br/articles/viewcomp.asp?comp=435
>
>
> Em 19/10/09, Edison - Precisa Informatica Matriz Ltda <
> edison em precisa.inf.br>
> escreveu:
>  >
> > Ola pessoal
> >
> > Eu sei que esta lista nao e de delphi mas tem como eu extrair o metadata
> do
> > meu fdb
> > atravez do dbexpress ou pelos componentes da palheta Interbase Adm ?
> >
> > Desde ja agradesco atencao de voces
> >
> > Ate+
> >
> > Edison
> > ______________________________________________
> > FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> > Para saber como gerenciar/excluir seu cadastro na lista, use:
> > http://www.firebase.com.br/fb/artigo.php?id=1107
> > Para consultar mensagens antigas: http://firebase.com.br/pesquisa
> >
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>

Utilize TIBExtract.

Exemplo:

uses
  IBExtract;
...
var
  ibxMetadataOrigem: TIBExtract;
begin
  ibxMetadataOrigem := TIBExtract.Create(nil);
  try
    ibxMetadataOrigem.Database := AlgumIBDatabase;
    ibxMetadataOrigem.ExtractObject(eoTable, NomeDaTabela, [etIndex]);
    ShowMessage(ibxMetadataOrigem.Items.Text);
  finally
    ibxMetadataOrigem.Free;
  end;
end;

Espero ter ajudado
Abraços
Wilson