Jeg ønsker at hente nogle binære data, men det bliver ikke vist som det
skal.
Det virket fint når jeg bare skal hente fra en fil og bruger følgende kode:
Const adTypeBinary = 1
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile Server.Mappath("image.gif")
response.binarywrite objStream.Read
objStream.Close
Set objStream = Nothing
Men når jeg bruger følgende kode, så bliver filen ikke vist rigtigt:
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set txt = fso.OpenTextFile(server.mappath("image1.gif"), 1)
response.binarywrite txt.readall
txt.close
Set fso = Nothing
%>
Jeg har prøvet at lægge denne kode på følgende side:
http://www.bioonline.dk/hentfil.asp
Hvor den skulle hente dette billede:
http://www.bioonline.dk/image1.gif
Der er samme problem når jeg bruger følgende kode:
<%
Set pop3 = Server.CreateObject("JMail.POP3")
pop3.Connect session("pop3username"), session("pop3password"),
session("servername"), session("serverport")
Set msg = pop3.Messages.item(pop3.count)
Set Attachments = msg.Attachments
Set at = Attachments(0)
response.binarywrite at.data
pop3.disconnect
%>
Kan det skyldes at den opfatter indholdet af filen som tekst i stedet for
binary. Eller skyldes at man skal konvertere fra tekst til binary eller
findes der en anden løsning?
Mvh. Christoffer Thygesen
e-mail: cht@cht.dk
homepage:
http://cht.dk