Discussion :

[julien_d]

Bonjour,

je cherche à faire ce que je vais vous expliquer mais étant débutant je ne sais si cela est possible. C'est pourquoi je vous demande votre avis.

j'appelle une procedure qui écrit dans un fichier. Donc XmlService avec formulaire qui appelle un XmlService au moment BeforeXmlGram. Tout ce passe bien, le fichier est crée et je suis redirigé sur un XmlService de listage.

Ce que je voudrais c'est qu'à la fin de l'écriture du fichier, le XmlService de listage contienne ce qu'il y a dans le fichier dans un textarea.

Cordialement

[Nicolas.Cogi]

Il faut que tu mettes le contenu de ton fichier dans le Context (Context.SetValue('FileContent', ContenuDuFichier) par code par exemple), puis que tu recuperes ce champs du Context dans le document XML du XMLService ou tu veux l'afficher (XMLInstruction Assign dans le XMLGram) et que tu fasses le xsl suivant :

Code :

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

1
2
3
4
 
<textarea>
<xsl:vallue-of select="/document/PARAMS/FileContent"/>
</textarea>

[julien_d]

bonjour,
ok merci c'est bon.

autre question plus
Est il possible d'afficher dans un textarea "en direct" les lignes qui sont insérées dans mon fichier. En gros voir sur ma page web, l'écriture en cours dans le fichier. Puis est il possible de faire "pause" en cliquant sur un bouton et reprendre en recliquant sur un autre bouton.
Cordialement

[julien_d]

j'essaie une autre solution et là mystère.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
fichier := pchar(chaine[5]+ chaine[3]);
if chaine[9] = '1' then
        begin
        chemin := pchar('http://localhost/ProjectsBin/XML/Bin/XML.dll/FormCreateXML_2?&IDXML='+ chaine[7]);
        ShellExecute(0,'OPEN','notepad.exe',fichier,Nil, 1);
        ShellExecute(0,'OPEN','iexplore.exe',chemin,Nil, 1);
        end
else
        begin
        ShellExecute(0,'OPEN','iexplore.exe',fichier,Nil, 1);
        end;
end;

ca fonctionne en mode debogger mais en mode service ca ne fonctionne pas. Les fichiers ne s'ouvrent pas. quelqu'un aurait une idée/solution.

[RDM]

il faut que ton service interagisse avec le bureau (propriété du service)

[julien_d]

bonjour,

il faut que ton service interagisse avec le bureau (propriété du service)

je n'ai pas compris, désolé.
----------------------------------------------
autre question. Y a t-il une fonction magique qui permettrait de zipper le fichier xml généré ?
car j'ai cherché au niveau de delphi mais les fonctions proposées sont loins d'être utilisables.

Cordialement