[UIB] Charset de la base

Bonjour,

Je tente de récupérer les metadatas d'un base FB2:

Code:

---

1 2 3 4 5

MetaData := TMetaDataBase.Create(nil, 0); MetaData.LoadFromDatabase(FBMTr); with MetaData do begin // Récupération des vues, roles et procédures for i:=0 to ViewsCount-1 do begin etc...

---

ca fonctionne bien pour les tables, vues, PS etc., par contre, je ne parviens pas à exploiter le DefaultCharSet défini ainsi

Code:

---

1 2	type TCharacterSet = (csNONE, csASCII,...)

---

Y a t'il + court que faire moi-même le traitement décrit dans
procedure TMetaDataBase.LoadFromDatabase (unit jvuibmetadata) ?

:merci:

Salut :D

Tu cherches à récupérer le CharSet par défaut de la base, c'est ça ?

Tu peux procéder ainsi:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

uses UIBMetaData, UIBConst, UIBLib, TypInfo;   procedure TForm1.Button1Click(Sender: TObject); var MetaData: TMetaDatabase; cs: TCharacterSet; begin UIB_DB.MetaDataOptions.Objects := [OIDDBCharset]; MetaData := TMetaDatabase(UIB_DB.GetMetadata(True)); cs := MetaData.DefaultCharset;   ShowMessage(GetEnumName(TypeInfo(TCharacterSet), Ord(cs))); end;

---

Question: pourquoi crées-tu une instance de TMetaDatabase ? Ce n'est pas nécessaire puisque celle-ci est créée à l'appel de GetMetadata.

[edit]
UIB_DB étant le composant TUIBDatabase.

@+ Claudius

Effectivement, je viens de voir ce raccourci en épluchant le code...:?

Dans la même veine, peux-tu me rappeler la syntaxe à utiliser pour indiquer l'IP et le port pour ouvrir une base ?
Est-ce bien IP:port:chemin_de_la_base ?

IP/Port:Chemin ;)

Je prends note, :merci:
(j'ai donc un petit bug qq part...) :mouarf: