Avatar billede peterlang Nybegynder
10. juni 2002 - 19:45 Der er 5 kommentarer og
1 løsning

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
Avatar billede sjh Nybegynder
10. juni 2002 - 20:40 #1
Avatar billede peterlang Nybegynder
10. juni 2002 - 22:15 #2
Ja, jeg kender godt den måde... det jeg er ude efter er en måde der gør det samme bare i rent vb.
Avatar billede sjh Nybegynder
11. juni 2002 - 16:31 #3
Nu siger du rent vb, men du skal vel bruge det i en ASP-Side.

se her:
http://www.aspalliance.com/chrisg/default.asp?article=124
Avatar billede sjh Nybegynder
13. juni 2002 - 22:57 #4
Prøv.

<%@ Language=VBScript%>
<%Option Explicit%>

<!--METADATA TYPE="typelib"
      UUID = "00000205-0000-0010-8000-00AA006D2EA4"
    Name = "ADODB Type Library"
-->

<%
Sub LoadImage(fuldpath)
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")

  objStream.Type = adTypeBinary
  objStream.Open
  objStream.LoadFromFile fuldpath

  If Right(fuldpath, 4) = ".gif" Then
    Response.ContentType = "image/gif"
      Else
    Response.ContentType = "image/jpeg"
  End If

  Response.BinaryWrite objStream.Read
  Response.end

objStream.Close
Set objStream = Nothing
End Sub

LoadImage("C:\billede.jpg")

'eks: <img src="../loadimage.asp">
%>
Avatar billede peterlang Nybegynder
25. juni 2002 - 13:50 #5
Jeg haved helt glemt sprøgsmålet

Jeg prøver at kikke på det, men lukker nu.

Tak
Avatar billede sjh Nybegynder
25. juni 2002 - 16:32 #6
selv tak. :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB

Digitaliseringsstyrelsen

IT-arkitekt hos Digitaliseringsstyrelsen

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Solution Manager til Cyberdivisionen

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Cyberdivisionen søger analytisk stærk og erfaren medarbejder i Hvidovre