Discussion :

[JMLD]

Sur mon xmlService UploadForm, l'utilisateur sélectionne son fichier, quand il fait executer, xmlrad va bien me faire le upload dans data\upload .
Mon souci et que je peut avoir des utilisateurs ayant le fichier de même nom. donc l'idée serait de préfixer le fichier téléchargé par un id (à quoi sert le XMLC_RequestID) et comment faire pour que XMLRAD change le nom du fichier de destination (XMLC_RequestID+file).

Si on veut créer une arborescence dans upload, je penses qu'il faut modifier XMLC_FileUploadDir, mais en le modifiant, il me stocke les fichiers dans upload, que le repertoire existe ou n'existe pas .

[Jeweller]

Une solution possible est de le faire manuellement en utilisant par exemple SystemMoveFile pour renommer/déplacer le fichier apres avoir extrait son nom initial depuis
Context.GetValue('XMLC_UploadedFileName').

Michael

[RDM]

dans les InitParams (section XMLUtils) tu as XMLC_FileUploadCreateUserDir
qui permet de créer un répertoire par XMLC_UserID

http://xmlrad.com/DelosBin/Delos.dll/ServePage?URL=Manual/Appendix14/index.htm&WEB_ID=101001015

[JMLD]

le XMLC_FileUploadCreateUserDir ne m'intéresse pas car je ne veux pas stocker les fichier par user, mais plutot nommer mes fichiers par Id unique qui correspond à mon id d'enregistrement correspondant dans ma base de données.
dans ma base j'ai l'enregistrement 102 avec la synthèse de l'enquête et dans mon fichier N°102, j'ai le détail de l'enquête.

Par contre Jeweller, ta méthode m'intéresse, mais n'y a t il pas une méthode permettant au serveur d'enregistrer le fichier au nom que l'on veux

[Nicolas.Cogi]

Je pense qu'il faut que tu fasses l'enregistrement du fichier toi-meme pour avoir parfaite maitrise sur ce que tu veux faire.

Inspire toi du code de XMLC_UploadFile dans l'unité XMLUtilsWM.pas, copie-colle le code dans un nouveau service et modifie-le.

La méthode qui t'interesse en l'occurence est XMLRequest.SaveFileNo(), comme le disait Jeweller.

[Jeweller]

Si tu utilises le service du framework XMLC_UploadFile (avec la cholie barre de progession et tout et tout, wouaa... ) tu positionnes donc dans le nextAction ton xmlservice de retour. Dans un evenement de celui-ci (beforeservice par exemple) tu peux alors faire un truc du genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  if Context.GetValue('XMLC_UploadedFileName') <> '' then
  begin 
     val := Context.GetValue('XMLC_UploadedFileName');
     f := ExtractFileName(val); //un truc à ta sauce
     valht := ConCatDir( "un truc à ta sauce aussi ;)" ,false);
 
     if not SystemMoveFile(val,valht+f,false,false) then
     begin
       SystemDeleteFile(val,false);
       XMLRequest.RaiseError('ERR_BIDULE','blabla'+SysErrorMessage(GetLastError));
     end;
  end;

Et ca devrait faire l'affaire.
Si tu n'utilises pas XMLC_UploadFile, dans ce cas tourne toi vers XMLRequest.SaveFileNo.

Michael

[JMLD]

Voici le code que j'ai mis dans mon xmlservice INSERT et dans l'évènement AfterXMLGRAM
Dans file, c'est le nom du fichier sélectionné dans mon formulaire de saisie

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
   if XMLApplication.InitParams.Values['XMLC_AllowFileUpload'] <> '1' then
     XMLRequest.RaiseError('ERR_FILE_UPLOAD_NOT_ALLOWED', ClassName+'.XMLC_UploadFile');
 
   if context.Values['file'] = '' then
     begin
       if XMLC_TraceInfo then EventLog.TraceInfo(XMLRequest, ClassName, 'XMLC_UploadFile - Pas de fichier à télécharger');
       Exit;
     end;
 
   UploadDir := XMLApplication.InitParams.Values['XMLC_FileUploadDir'];
   if UploadDir = '' then
     UploadDir := 'Upload';
   UploadDir := ConcatDir(XMLApplication.InitParams.Values['XMLC_DefaultDataDir'], UploadDir, True);
 
   filename := context.Values['CA_ID']+ '_' + ExtractFileName( context.Values['file']);
   context.Values['CA_FILENAME']:= filename;
   FileName := ConcatDir(UploadDir, FileName, False);
   if FileExists(FileName) then
       XMLRequest.RaiseError('ERR_UPLOADED_FILE_ALREADY_EXISTS', ClassName+'.XMLC_UploadFile - FileName[''+FileName+'']');
       if XMLC_TraceInfo then EventLog.TraceInfo(XMLRequest, ClassName, 'XMLC_UploadFile - ' + context.Values['file'] + ' dest : ' + filename);
     WriteStringToFile(context.Values['file'], FileName, False);

avec cela ça marche.
Merci pour votre Aide.

[JMLD]

En fait j'ai posé 2 questions sur ce forum et mon code reprend aussi la reponse à la question INSERT et UPLOAD