Téléchargement de fichier xml

Version imprimable

26/04/2006, 10h01
IceSpiN

Téléchargement de fichier xml
Bonjour,

Je développe actuellement avec DELPHI.NET.
Dans mon application web, je génère un fichier xml à partir d'un dataset :

Code:

DS.WriteXml('c:\monfichier.xml');

cela à partir d'une page : mapage.aspx.
Et maintenant lors du clic sur un bouton dans mapage.aspx, je voudrais que le navigateur propose le téléchargement de monfichier.xml, j'écris donc le code suivant :
Code:

1 2 3 4 5 response.clear(); response.contentType := 'application/octet-stream; name="monfichier.xml"; response.addHeader('Content-Disposition','attachment; filename="monfichier.xml"'); response.flush();
Là, le navigateur me propose bien de télécharger un fichier mais c'est mapage.aspx que je télécharge ?
Quelqu'un saurait d'où viens ce problème ? Existe-t-il une solution plus simple ?

Merci d'avance.
05/05/2006, 13h55
Merlin

Et c'est quand que tu l'envoies le fichier ? :lol:
Il ne suffit pas de mettre les bons headers, il faut aussi transmettre le fichier...

Voilà peut être une réponse :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs) ;
var
   FileToDownload : string;
begin
   FileToDownload := 'c:\ServerTest.txt'; //make sure this exists!!!
   DownloadFile(FileToDownload,'LocalTest.txt') ;
end;
 
Here's the DownloadFile function (make sure you add the System.IO to the uses list in your code-behind, or the unit where DownloadFile is defined): 
procedure DownloadFile(const FilePath : String; const FileName : String =''; const ContentType : String = '') ;
   type
     TStringArray = array of string;
   var
     DownloadFileName : string;
     fi : FileInfo;
     StartPos, FileSize, EndPos : System.Int64;
     Range : string;
     StartEnd : TStringArray;
   begin
     If Not System.IO.File.Exists(FilePath) Then Exit;
     StartPos := 0;
     fi := FileInfo.Create(FilePath) ;
     FileSize := fi.Length;
     EndPos := FileSize;
     HttpContext.Current.Response.Clear() ;
     HttpContext.Current.Response.ClearHeaders() ;
     HttpContext.Current.Response.ClearContent() ;
     Range := HttpContext.Current.Request.Headers['Range'];
     If Assigned(Range) AND (Range <> '') Then
     Begin
       StartEnd := Range.Substring(Range.LastIndexOf('=') + 1).Split(['-']) ;
       If Not (StartEnd[0] = '') Then
         StartPos := Convert.ToInt64(StartEnd[0]) ;
     End;
     If (System.Array(StartEnd).GetUpperBound(0) >= 1) And (Not (StartEnd[1] = '')) Then
       EndPos := Convert.ToInt64(StartEnd[0])
     Else
       EndPos := FileSize - StartPos;
     If EndPos > FileSize Then EndPos := FileSize - StartPos;
     HttpContext.Current.Response.StatusCode := 206;
     HttpContext.Current.Response.StatusDescription := 'Partial Content';
     HttpContext.Current.Response.AppendHeader('Content-Range', 'bytes ' + StartPos.ToString + '-' + EndPos.ToString + '/' + FileSize.ToString) ;
   If Not (ContentType = '') And (StartPos = 0) Then
   Begin
     HttpContext.Current.Response.ContentType := ContentType;
   End;
   If FileName = '' Then
     DownloadFileName := fi.Name
   else
     DownloadFileName := FileName;
   HttpContext.Current.Response.AppendHeader('Content-disposition', 'attachment; filename=' + DownloadFileName) ;
   HttpContext.Current.Response.WriteFile(FilePath, StartPos, EndPos) ;
   HttpContext.Current.Response.&End;
End; (*DownloadFile*)

05/05/2006, 19h19
Merlin

C'est marrant la différence de taille entre le code qui ne fait rien et celui qui envoi réellement le fichier :lol:

Ce code est correct, juste un reproche qu'on peut lui faire c'est sur le contenttype, il n'offre pas d'aide (juste une paramètre par défaut à vide dans la fonction). Il faut donc penser à mettre un type mime reconnu pour que ça marche bien sur tous les navigateurs et pas se contenter du paramètre à vide.