Discussion :

[valfredr]

Bonjour,

Dans XMLRad 8, je souhaiterais modidifer dynamiquement, au moment de l'affichage (dans la dll en Delphi) les libellé des champs de formulaires et des entetes de colonnes.
J'ai vu que ca se passait dans un fichier "locales". peut-on y accéder dans la dll ? Si oui connaissez-vous la syntaxe pour modifier un libellé?

merci d'avance.

[Jeweller]

Plusieurs solutions s'offrent à toi, en fonction de ce que tu veux faire exactement.
Pour commencer le principe des locales est justement de ne pas avoir à modifier un libellé par code au moment de l'execution. Il te suffit de définir les libellés de ta colonne dans chaque langue et dans ton xsl de référencer la bonne entrée, par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<th><xsl:value-of select="/document/Locales/libcolST_COD"/></th>

Le framework fournira automatiquement la grappe XML avec les locales de la langue de l'utilisateur courant pour que la bonne tradution y figure.

Sinon effectivement tu peux aussi depuis delphi aller lire/modifier/ajouter des valeurs dans la grappe. Mais autant faire le moins de code Delphi possible et utiliser les instructions du XMLGRAM (genre un assign) pour faire ce genre de chose, mais tout dépend. Ensuite dans ta feuille xsl tu référence simplement l'entrée que tu es allé modifier.

Sous Delphi ca donnerait un truc comme ca (fait un tour du coter des XMLCursor: appendChild, getvalue, setvalue, etc...):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
OnAfterXMLGram:
 OutPutDoc.setValue('/document/LIBELLE_COLONNES/ST_COD',sthg)

Mais je prefere en général passer par le context et renseigner une entrée ajouter à la grappe par un assign:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
OnBeforeXMLGRAM
 Context.SetValue('libcolST_COD',sthg)

Biensur, tu pourrais aussi directement modifier la locale dans la grappe, mais la je ne vois plus trop l'interet

Michael

[valfredr]

Ok merci, en fait mes libellés me proviennent d'un fichier bd et ils peuvent être modifiés par l'utilisateur. Par ailleurs, chaque champ dispose d'un libellé court (listes) et d'un libellé long. Donc, comme toutes mes feuilles xsl référencent en entête de colonne des éléments des "locales" (Nom de Champ + "Header" si entête de colonne), il me suffirait d'aller modifier ces valeurs par le code au moment où elles sont appellées.

je devrais pouvoir m'en sortir avec tes indications.

merci encore.

[valfredr]

Bon mes questions sont peut être triviales mais je suis vraiment bloqué :

J'ai effectivement besoin de me balader dans la grappe pour modifier les locales (entre autre). Apparemment cela passe par un objet XMLCursor.
Dois-je l'instancier? Comment puis-je le faire pointer sur la bonne grappe xml ? Je ne vois rien auquel me raccrocher dans les paramètres de l'évènement OnAfterXMLGram...

Help!....

[Sylvain James]

Les Locales sont ajoutées juste après le process du XMLGram, donc elle ne sont pas encore accessible dans le AfterXMLGram.
Il faut alors implémenter le gestionnaire BeforeXSL dans lequel tu as accès à l'objet Output représentant la grappe XML qui va servir à la transformation XSL.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TYakaWM.FormSTAGEBeforeXSL(XMLService: IXMLService;
  e: TBeforeXSLEventArgs);
var
 p, mot: IXMLCursor;
 i: integer;
begin
  p := e.OutputDoc.Select('Locales');
  mot := p.Select('Submit');
  i := e.Count; // nb d'éléments locales
end;

Après tu manipules p avec les méthodes de XMLCursor.
Dans l'ex. : mot désigne la locale Submit (cf output XML)<Locales><Submit>tralala</Submit>...</Locales>

Mais je dirais comme Michaël, je vois pas trop d'intérêt de modifier les locales. Autant ajouter des nouvelles grappes représentant les données issues de ta base. Et y faire référence dans ton xsl à la place de faire référence aux locales.

Sylvain

[valfredr]

Bon j'espère que c'est la dernière fois que je vous dérange. J'ai fait comme vous avez suggéré (ajouté une nouvelle grappe). Tous mes libellés (il y en a 400!) sont ajoutés comme suit :

procedure TMain.FormSearchFPRDBASEBeforeXSL(XMLService: IXMLService;
e: TBeforeXSLEventArgs);
var
p: IXMLCursor;
begin
p := e.OutputDoc.Select('Locales'); /*j'ai choisi d'insérer ma grappe après les locales
p.InsertAfter('FDD','');
Try
If not QrDD.Active then QrDD.Open;
p.InsertFirstChild(QrDD.GetFieldAsString('FRDTAI'),QrDD.GetFieldAsString('LBL')); /*nomchamp;libellé
While Not QrDD.EOF do
begin
p.InsertAfter(QrDD.GetFieldAsString('FRDTAI'),QrDD.GetFieldAsString('LBL'));
QrDD.Next;
end;
finally
QrDD.close;
end;
end;

J'ai deux donc ultimes questions :
1/ mon code ne marche pas ,tous mes libellés sont à blanc dans ma page html. Pourtant ils pointent bien sur document/FDD/XXX.

2/Dans la mesure ou j'ai une grappe de 400 éléments à rajouter à mon xml (il serait trop fastidieux de sélectionner uniquement les champs concernés par une liste ou un formulaire donné), serait-il possible de stocker cette grappe dans une var globale de la dll et de l'affecter en une instruction à chaque XMLService (dans beforeXSL) qui en a besoin?

Merci infiniment pour vos réponses.

[Jeweller]

Bon j'espère que c'est la dernière fois que je vous dérange

C'est à ca que sert in forum d'entre-aide, ne te gene pas!

Je n'ai pas regardé ton code, mais il suffit que tu te positionne mal au départ pour que cela ne fonctionne pas. Consulte la grappe XML avant la génération pour bine comprendre ce qu'il se passe, ca va beaucoup t'aider! Pour cela il faut rajouter un paramètre dans ta requette HTTP: XMLC_OutPutParam=XML

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

http://localhost/myAppBin/myApp.dll/Action?p=p1&p2=p2&XMLC_Outputformat=XML

Si tes 400 lignes ne changent pas, tu peux les placer dans un fichier XML et les charger avec une instruction FILE dans ta grappe. Mais attention, 400 lignes dans une grappe ca fait beaucoup juste pour un label!! Tu devras avoir un gros serveur si tu veux monter en charge. Tu devrais sélectionner juste ce que tu as besoin et renseigner un paramètre. En principe pas de code Delphi pour faire ca! Inspire toi des démos, elles sont pas mal.

Bon courage
Michael

[valfredr]

Merci bcp. Ca marche nickel.