[ASP] Download-script en PDF-bestanden

Pagina: 1
Acties:

  • 1liter
  • Registratie: Maart 2004
  • Laatst online: 18-05-2021

1liter

appelsap

Topicstarter
Oke, Neem onderstaande code

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
Call getDownload("c:\sample.pdf", "application/pdf")

Function getDownload(filespec, mimetype)
  Dim s
  Dim fso, f
  Dim intFilelength
    
  Set fso = CreateObject("Scripting.FileSystemObject")

  ' get length of file  
  Set f = fso.GetFile(filespec)
  intFilelength = f.size
  
  ' create stream
  Set s = Server.CreateObject("ADODB.Stream")  
  s.Open  
  ' Set as binary
  s.Type = 1  
  s.LoadFromFile(filespec)  

  Response.AddHeader "Content-Disposition", "filename=" & f.name
  Response.AddHeader "Content-Length", intFilelength 
  Response.CharSet = "UTF-8"
        
  if len(mimetype) = 0 Then
     Response.ContentType = "application/octet-stream"
  else
     Response.ContentType = mimetype
   End If

  ' output the file to the browser  
  Response.BinaryWrite s.Read 
  Response.Flush  

  ' tidy up  
  s.Close  
  Set s = Nothing 
  Set fso = Nothing
  Set f = Nothing
End Function


Wanneer dit uitgevoerd wordt, dan wordt ook, zoals de bedoeling is, Adobe Reader opgestart.
Maar uiteindelijk geeft Reader een foutmelding, namelijk
'Het bestand begint niet met %PDF-.'

Wanneer ik bovenstaande functie aanroep met bijv.:
code:
1
Call getDownload("c:\sample.doc", "application/msword")

Dan gaat alles wel goed. Dan wordt Word wel gewoon geladen.

Heeft iemand enig idee wat hier fout kan gaan???

1liter


  • faabman
  • Registratie: Januari 2001
  • Laatst online: 08-08-2024
had je dit al gevonden :?

http://www.adobe.com/support/techdocs/9c16.htm

met [google=file %PDF- error]

Op zoek naar een baan als Coldfusion webdeveloper? Mail me!