Udskriv BMP/GIF som binær streng

? Nu er jeg ikke helt med, hvordan har du tænkt dig det skal være?

er det sådan her du mener:
strPictur = "<img src='billede.gif'>"
Response.Write(strPictur)

?
//>Rune

hehe, nej det tror jeg nok lige jeg ville kunne klare... ;o)

Jeg skal indlæse filen (BMP eller GIF) og udskrive den som en binær streng på skærmen.

Jeg er nok heller ikke helt med på, hvad du har tænkt dig at der skulle skrives på skærmen, men måske ADODB.Stream kunne bruges til formålet:

<%

Response.ContentType = "image/gif"

Const adTypeBinary = 1
Dim strFilePath, objStream

' Skift billedstien ud med stien til dit eget billede
strFilePath = Server.MapPath("/images/icons/news.gif")

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile(strFilePath)

Response.Write(objStream.Read)

objStream.Close
Set objStream = Nothing
%>

Jeg er sikkert galt på den, for outputtet ser sært ud  :)

/Martin Sommer
www.magik.dk

Jeg vil gerne have min BMP/GIF fil i 1 og 0.
F.eks. 100101010001111010101010101010

Eller hvordan den nu ser ud.

du kan få den til at udsrkive filen, men det er dog ikke som 01010110101..:

Response.ContentType = "image/gif"

strFilePath = Server.MapPath("din_fil.gif")

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1 'adTypeBinary
objStream.LoadFromFile strFilePath

Response.BinaryWrite objStream.Read

objStream.Close
Set objStream = Nothing

Denne kode lavet en lang binær streng ud fra et billede:


<html>
<head><title></title></head>
<body>
<%
strFilePath = Server.MapPath("341.jpg")

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1 'adTypeBinary
objStream.LoadFromFile strFilePath

fileStr = objStream.Read

antalChar = len(fileStr)
for i = 1 to antalChar
  Response.Write makeBin(Asc(mid(fileStr,i,1)))
next

objStream.Close
Set objStream = Nothing

function makeBin(tal)
  strOut = ""
  do while tal > 0
    if tal mod 2 = 0 then
      strOut = "0" & strOut
    else
      strOut = "1" & strOut
    end if
    tal = Int(tal / 2)
  loop
  makeBin = strOut
end function

%>
</body>
</html>

hvis du vil havde op til 8 0'er og 1'er for hver byte så kan functionen laves sådan her:


function makeBin(tal)
  strOut = ""
  do while tal > 0
    if tal mod 2 = 0 then
      strOut = "0" & strOut
    else
      strOut = "1" & strOut
    end if
    tal = Int(tal / 2)
  loop
  for xxx = len(strOut) to 7
    strOut = "0" & strOut
  next
  makeBin = strOut
end function