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;
Partager