COM: gem sti til billeder
Jeg har et Com objekt der lavet en ASP side, er der der en måde man kan skjule stien til billederne?Jeg har prøvet at lege med lidt forskellige koder, men kan ikke få nogle af dem til at virke....
m_Response.Write "<IMG src=" & getpic("c:\foto\1223.jpg") & " border=0>"
------------------------
Function getpic(FullFilePath)
Dim ctBytes As Long
Dim bytes() As Byte
Dim fno As Long
fno = FreeFile
Open FullFilePath For Binary Access Read As #fno
ctBytes = LOF(fno)
ReDim bytes(ctBytes)
Get #fno, , bytes
Close #fno
getpic = bytes
End Function
-------------------------------------------------------------------------
eller (virker heller ikke)
-------------------------------------------------------------------------
m_Response.ContentType = "image/jpeg"
Set obj = Server.CreateObject("ADODB.obj")
obj.Open
obj.LoadFromFile "c:/1.jpg"
m_Response.BinaryWrite obj.ReadText
obj.Close
Set obj = Nothing
Er der en der kender en smart måde??? der virker??????
Peter Lang
