Streaming fichier PDF

[rgarnier]

J'ai un XMLService qui envoie par streaming un fichier pdf au navigateur client.

Si mon fichier pdf fait plus de 9 ko, pas de pb, le browser ouvre Acrobat et le fichier, mais si le fichier fait 1 ou 2 ko, le navigateur ouvre bien acrobat, mais ma fenêtre reste vide et même sans les menus Acrobat ...

Que pourrais-t-il bien se passer ????

Pour info, voici le code de ma procedure placée dans le Before XMLService (mais je ne pense pas que le pb vienne de là ...) :
zFilename := 'toto.pdf';
zMemStream := TMemoryStream.Create;
try
zStream := TFileStream.Create(zFileName, fmOpenRead);
try
zFileDate := FileGetDate(zStream.Handle);
zMemStream.CopyFrom(zStream, zStream.Size);
zMemStream.Seek(0, soFromBeginning);
finally
FreeAndNil(zStream);
DeleteFile(zFileName);
end;
except
FreeAndnil(zMemStream);
raise exception.create('Erreur de transmission');
end;
zFileNameStreamed := ExtractFileName(zFileName);
XMLRequest.SetDate(FileDateToDateTime(zFileDate));
XMLRequest.SetContentStream(Integer(pointer(zMemStream)));
Handled := True;
end;

[rgarnier]

J'ai oublié de vous dire, si je tape comme url http://monserveur/pdf/toto.pdf, ce fichier est ouvert sans pb par Acrobat ....

[RDM]

version d'acrobat reader ?

[rgarnier]

La version 5.0 ou 4. c'est la même chose

[RDM]

essaye de t'inspirer du code qui stream les PDF dans XMLService.pas:

Code :

1
2
3
4
5
6
ReadAnsiStringFromFile(PDFFile, PDFFileName); 
XMLRequest.SetDate(Now);
XMLRequest.SetContentType('application/pdf'); // octet-stream
XMLRequest.SetCustomHeader('Content-disposition', 'filename='+ExtractFileName(PDFFileName));
XMLRequest.SetContent(PDFFile);
XMLRequest.SendResponse;