--- title: "Läsa bildfil" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/70001-läsa-bildfil" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "stefanan" published: "2003-03-04T09:16:23.000Z" updated: "2003-03-04T10:01:36.000Z" replies: 5 views: 321 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/70001-läsa-bildfil" --- # Läsa bildfil ## #1 — stefanan, 2003-03-04T09:16Z Jag skulle vilja läsa en bild som inte ligger i webbträdet. Har testat med detta: \ Här ligger en bild.\ \

\ test2.asp: Set fso = CreateObject("Scripting.FileSystemObject") Set bildfil = fso.OpenTextFile("d:\\bilder\\Arthur.gif") text = bildfil.ReadAll bildfil.Close Set fso = Nothing Response.ContentType = "image/gif" Response.BinaryWrite(text) Permalänk: https://www.webforum.nu/p/70001 ## #2 — Engine^, 2003-03-04T09:19Z Och då får du felmeddelandet...? Permalänk: https://www.webforum.nu/p/967516 ## #3 — stefanan, 2003-03-04T09:26Z Nej, jag får inte något felmeddelande. Bilden visas bara inte. Tar jag bort content-type och skriver ut binärkoden känns det som att jag får ut för lite kod. Det känns även lite fel att använda en metod som heter OpenTextFile när det gäller en gif-bild. Permalänk: https://www.webforum.nu/p/967519 ## #4 — Viktor, 2003-03-04T09:31Z Från MSDN > The FSO model, contained in the Scripting type library (Scrrun.dll), supports the creation and manipulation of text files through the TextStream object; however, the FSO model does not support binary files. /Viktor Permalänk: https://www.webforum.nu/p/967521 ## #5 — Engine^, 2003-03-04T09:39Z Du kanske kan använda dig av GetFile()? Jag har aldrig testat detta, men jag vill ju gärna hjälpa :) ``` Dim fsoFile, fso Set fso = CreateObject("Scripting.FileSystemObject") Set fsoFile = fso.GetFile("d:\bilder\Arthur.gif") Response.ContentType = "image/gif" Respone.BinaryWrite (fsoFile) Set fsoFile = Nothing Set fso = Nothing ``` Permalänk: https://www.webforum.nu/p/967528 ## #6 — stefanan, 2003-03-04T10:01Z Jag fick till en lösning. Tänkte visa den ifall någon är intresserad. DownloadFileName = "d:\\bilder\\ar_bestall.gif" Set objStream = Server.CreateObject("ADODB.Stream") objStream.Type = 1 objStream.Open objStream.LoadFromFile DownloadFileName Response.Expires = 0 Response.Buffer = True Response.ContentType = "image/gif" Response.Addheader "Content-Disposition", "inline; filename=" & "stream.gif" Response.Addheader "Content-Length", objStream.size Response.BinaryWrite(objStream.Read(-1)) Set objStream = Nothing Permalänk: https://www.webforum.nu/p/967533 --- Tråden på webben: https://www.webforum.nu/amne/asp/70001-läsa-bildfil