[XMLRAD] Fichier PDF [Résolu]

[Sylvain Leray]

Bonjour,

Je me suis inspiré du CD de la conférence pour écrire un bout de code qui doit permettre de retourner un fichier PDF, lors de l'affichage, acrobat est lancé mais la page reste blanche, il faut actualiser la page pour que le fichier s'affiche enfin dans acrobat, d'où cela peut il venir ? (d'ailleurs j'ai l'impression que lorsque l'on utilise acrobat dans IE, le fichier est téléchargé deux fois, une première par IE qui lance acrobat puis une seconde fois par acrobat)

Le code que j'ai ajouté dans BeforeXMLService est le suivant :

FileStr := TFileStream.Create(FileName,fmOpenRead, fmShareDenyWrite);
Response.SetContent('');
Response.SetContentType('application/pdf');
Response.SetContentStream(integer(FileStr));
Response.SetCustomHeader('Cache-control','no-cache, must-revalidate');
Response.SetCustomHeader('Title', 'Pièce au format PDF');
Response.SetCustomHeader('Pragma','no-cache');
Response.SetCustomHeader('Content-Disposition','filename=' + ExtractFileName(FileName));
Response.SendResponse;
Handled := true;

[RDM]

voici le code repris de XMLService.pas pour la gestion des reports (HTML2PDF):

Code :

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

[Sylvain Leray]

Encore une fois merci !!!