Recuperation du fichier xml

[Geulderack]

Bonjour je voudrai savoir si il ya la possibilité de recuperer le fichier xml generé apres le xmlgram et de le reparser de nouveau dans un autre format que le html ?

Exemple: Je veux donner la posiblité aux user de recuperer le fichier dans un autre format que le html .


Merci

[Lux interior]

Nicolas m'a donné une solution sympa :
http://www.developpez.net/forums/viewtopic.php?t=57698
Celà doit te mettre sur la voie.
Lux

[Geulderack]

En gros voila ce que je veux faire :

J'ai un checkbox qui propose le telechargement du contenu de ma requete.

donc par default voila

XML + XSL = HTML

Moi je veux

Si checkbox coché alors
XML + XSL = HTML pour l'interface mais aussi

XML + XSL(Autre fichier) = .Txt par exemple

et ainsi pouvoir recuperer ce fichier et le proposer en telechargement ...

[Lux interior]

excuses moi d'insister mais c'est exactement la solution donnée par nicolas :
http://www.developpez.net/forums/viewtopic.php?t=57698
Lux

[Geulderack]

En fait je ne peux pas utiliser les templates csv car je ne peux pas installer xmlrad 7, je suis sur 6.

Donc faut que je me debrouille pour faire ca manuelement ...

[Lux interior]

Et tu ne peux absolument pas migré sur la 7 ?
Il y a une methodologie bien foutu dans :

http://www.developpez.net/forums/viewtopic.php?t=57392

[Geulderack]

Ca ne depend malheureusement pas de moi ...

Arggggggggggggggggg ...

;-)

Ben non peut pas ... lol

[Julien C.]

Il te faut changer toi même le fichier XSL à utiliser. Tu dis que tu as une checkbox qui permet aux utilisateurs de changer le format de sortie. C'est à toi de faire le test, si la checkbox est cochée, alors je change de XSL et je retourne du .TXT.

En ce qui concerne l'implémentation au niveau technique, il te faudra coder au niveau de l'évènement BeforeXMLService :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
var
  ModeText: string;
  XMLComponent: TXMLComponent;
  XSL: string;
begin
  XSL := 'DefaultXSL.xsl';
  ModeText := Context.GetValue('ModeText');
  if ModeText <> '' then
    XSL := 'AnotherXSL.xsl';
  XMLComponent := XMLCollection.GetComponent('MonAction') as TXMLComponent;
  XMLComponent.XSL := XSL;
end;

Voilà

[Geulderack]

OK ca me permet de changer de feuilles xsl .

Maintenant comment je fais pour indiquer que je veux un fichier Txt ?

[Geulderack]

Au secours comment je fais pour parser mon document et le mettre en fichier txt via delphi PS : je n'ai pas XMLRAD 7 ....

[Nicolas.Cogi]

C'est dans ton fichier XSL que tu determines le type d'output désiré.
Tu peux jeter un oeil sur l'élément XSL <xsl:output method="text" />

Tu peux aller sur http://zvon.org/xxl/XSLTreference/Output/index.html pour une référence sur la syntaxe XSL.

Une fois transformé, c'est ce qui te sera renvoyé par la DLL.
Tu peux coder dans le AfterXSL pour écrire le fichier sur disque si necessaire :

procedure TxmModule.XMLServiceAfterXSL(... var HTML: string);

Code :

1
2
3
begin
  WriteStringToFile(HTML, 'C:\Temp\MonFichier.txt');
end;