Oversigt over billeder (thumbnails)

Ja det kan du sagtens, hvis du har adgang til det komponent der hedder AspImage...?

Følger lige med :)

Også her

Jeg har AspImage 2.x

Kan du hjælpe mig med at få den til at fungere?

Ja da, jeg kan da prøve...
Hvis du sætter nogle billeder ind, bliver det for fremtiden over filen "Thumbnail.asp". Det gøres på denne måde:
<img src="Thumbnail.asp?FileName=001.jpg&wsize=89&hsize=140" border="0" />

"wsize" er max bredden på billedet der skal indsættes, og "hsize" er max højden på billedet.
Hvis højden eller bredden er mindre end de indsatte værdier, bliver billedet sat ind i den originale størrelse.
"hsize" og "wsize" er størrelser i px

Sådan ser Thumbnail.asp ud:
-----------------------------------------
<%
'#####################################################################################################'
'                                                                                                      '
'                         Source lavet af Hans T. Dam - (C)Copyright 2004                                  '
'                                    Dato: 21-06-2004                                                  '
'                                  E-mail: admin@hdhp.dk                                              '
'                                                                                                      '
'                                  Send gerne forslag til                                              '
'              forbedringer, optimeringer, mangler og fejl :) Eller anden respons :)                  '
'                                                                                                      '
'            Denne sourcekode må gerne bruges frit, dog ikke commercielt uden aftale.                  '
'                                                                                                      '
'#####################################################################################################'

'Sti fra roden til filen defineres:'
SubFolders = "Billeder\"
RoadToPicture = Request.servervariables("APPL_PHYSICAL_PATH") & SubFolders & Request("FileName")

Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage RoadToPicture
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX
Wsize = Cint(request("wsize"))
Hsize = Cint(request("hsize"))

if ImageWidth < Wsize AND ImageHeight < Hsize then
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage RoadToPicture
Image.ImageFormat = 1
Image.JPEGQuality = 80
Response.BinaryWrite Image.Image
Set Image = Nothing
Set objImg = Nothing

else

NewHeight = Cint((ImageHeight*Wsize)/ImageWidth)

Set objImg = Nothing
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage RoadToPicture
Image.ImageFormat = 1
Image.JPEGQuality = 80
   
    If NewHeight < Hsize then
   
    Image.Resize wsize,NewHeight
   
    else
   
    NewWidth = Cint((Hsize/NewHeight)*Wsize)+Cint(Cint((Hsize/NewHeight)*Wsize)*0.2)
   
    Image.Resize NewWidth,Hsize
   
    end if
   
Response.BinaryWrite Image.Image

Set Image = Nothing
end if
%>
-----------------------------------------
/Hans

Duer scriptet kun på jpg-billeder? Kan man lave det sådan, at det både duer til jpg og gif?

Har ikke lige forsøgt, men det kan man sikkert godt...

Jeg sidder lige og tester det på mit site. Skriver lige om man kan om lidt....

Man kan ikke bruge scriptet på gif'er, jeg har testet det. Det jeg ikke havde forsøgt, var om man kunne laver scriptet så det virkede på gif'er...

Jeg får en fejl:

Overflow

/thumbnail.asp, line 23



Linie 23: NewHeight = Cint((ImageHeight*Wsize)/ImageWidth)

Jeg kan heller ikke rigtig få det til at virke.... Den viser ikke billederne - kun den klassiske "kasse" med et rødt kryds i.

Nogle forslag?

En typisk fejl er nok at du ikke definere billedets placering rigtigt...

Hvis nu du kører en subfolder på der hedder Billedvisninger\ og inde i Billedvisninger ligger der en mapper der hedder Billeder\ så definere du stien til billederne i Thumbnail sådan:
SubFolders = "Billedvisninger\Billeder\"
RoadToPicture = Request.servervariables("APPL_PHYSICAL_PATH") & SubFolders & Request("FileName")

Den virker altså.. Se eks her: http://hdhp.dk/gr/default.asp?PageID=8

Hvis du/i prøver at sende mig et link til jeres side, kan de være jeg kan se en fejl (Hvis i har lavet nogen ;) )

Jeg har ikke rettet i scriptet, udover stiangivelsen:

<%
SubFolders = "images\"
RoadToPicture = Request.servervariables("APPL_PHYSICAL_PATH") & SubFolders & Request("FileName")

Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage RoadToPicture
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX
Wsize = Cint(request("wsize"))
Hsize = Cint(request("hsize"))

If ImageWidth < Wsize AND ImageHeight < Hsize Then
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage RoadToPicture
Image.ImageFormat = 1
Image.JPEGQuality = 80
Response.BinaryWrite Image.Image
Set Image = Nothing
Set objImg = Nothing

Else

NewHeight = Cint((ImageHeight*Wsize)/ImageWidth)

Set objImg = Nothing
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage RoadToPicture
Image.ImageFormat = 1
Image.JPEGQuality = 80
   
    If NewHeight < Hsize then
        Image.Resize wsize,NewHeight
    Else
   
        NewWidth = Cint((Hsize/NewHeight)*Wsize)+Cint(Cint((Hsize/NewHeight)*Wsize)*0.2)
        Image.Resize NewWidth,Hsize
    End If

Response.BinaryWrite Image.Image

Set Image = Nothing
End If
%>

må jeg se hvordan du sætter billedet ind på siden?

eller bare din url... :P

Jeg har lavet en test-mappe for at få det til at virke:
http://www.holsthansen.dk/test/

Thumbnail.asp:
<%
'Sti fra roden til filen defineres:'
SubFolders = "billeder\"
RoadToPicture = Request.servervariables("APPL_PHYSICAL_PATH") & SubFolders & Request("FileName")

Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage RoadToPicture
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX
Wsize = Cint(request("wsize"))
Hsize = Cint(request("hsize"))

if ImageWidth < Wsize AND ImageHeight < Hsize then
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage RoadToPicture
Image.ImageFormat = 1
Image.JPEGQuality = 80
Response.BinaryWrite Image.Image
Set Image = Nothing
Set objImg = Nothing

else

NewHeight = Cint((ImageHeight*Wsize)/ImageWidth)

Set objImg = Nothing
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage RoadToPicture
Image.ImageFormat = 1
Image.JPEGQuality = 80
   
    If NewHeight < Hsize then
   
    Image.Resize wsize,NewHeight
   
    else
   
    NewWidth = Cint((Hsize/NewHeight)*Wsize)+Cint(Cint((Hsize/NewHeight)*Wsize)*0.2)
   
    Image.Resize NewWidth,Hsize
   
    end if
   
Response.BinaryWrite Image.Image

Set Image = Nothing
end if
%>

default.asp:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>Test af AspImage</title>
</head>
<body>

<img src="Thumbnail.asp?FileName=1.jpg&wsize=89&hsize=140" border="0" />

</body>
</html>

Mappen "billeder" ligger i mappen "test". Den indeholder kun filen "1.jpg".

hansdam> HJÆLP! Hvad er galt :D ?

Jeg har fundet problemet...
Som jeg troede, er det stigen billedet der er noget galt med...
SubFolders = "billeder\"
RoadToPicture = Request.servervariables("APPL_PHYSICAL_PATH") & SubFolders & Request("FileName")

Roden af dit webhotel finder vi ved den servervariabel APPL_PHYSICAL_PATH
Den kunne fx. se sådan ud: d:\web\holsthansen\wwwroot\

Og så siger du at billederne ligger i mappen "billeder" - men du har overset at det er "test\billeder" fordi den skal have hele stigen, og ikke kun fra derhvor din thumbnail ligger. dvs at den skal se sådan ud: 
SubFolders = "test\billeder\"
RoadToPicture = Request.servervariables("APPL_PHYSICAL_PATH") & SubFolders & Request("FileName")

http://hdhp.dk/test/

Nu har jeg ændret stien til:
SubFolders = "test\billeder\"
men det virker stadig ikke.....:'(

ellers er intet ændret ift. svar af 23:47

http://hdhp.dk/test/

Jeg har ikke ændre noget fra 21/06-2004 23:47:37
Kan ses her:
http://hdhp.dk/test/ShowSource.asp?Fil=default.asp
http://hdhp.dk/test/ShowSource.asp?Fil=Thumbnail.asp

Det burde altså virke!

Efter en nats søvn virkede det :D Ved ikke hvad jeg har gjort/gjorde galt, men nu spiller det i hvert fald, så tusind tak for din hjælp og tålmodighed!

For god ordens skyld paster jeg lige løsningen, så andre også kan få hjælp af den senere:

AspImage-komponenten skal naturligvis være installeret på serveren!

thumbnail.asp:
<%
'Sti fra roden til filen defineres:'
SubFolders = "test\billeder\"
RoadToPicture = Request.servervariables("APPL_PHYSICAL_PATH") & SubFolders & Request("FileName")

Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage RoadToPicture
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX
Wsize = Cint(request("wsize"))
Hsize = Cint(request("hsize"))

if ImageWidth < Wsize AND ImageHeight < Hsize then
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage RoadToPicture
Image.ImageFormat = 1
Image.JPEGQuality = 80
Response.BinaryWrite Image.Image
Set Image = Nothing
Set objImg = Nothing

else

NewHeight = Cint((ImageHeight*Wsize)/ImageWidth)

Set objImg = Nothing
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage RoadToPicture
Image.ImageFormat = 1
Image.JPEGQuality = 80

If NewHeight < Hsize then

Image.Resize wsize,NewHeight

else

NewWidth = Cint((Hsize/NewHeight)*Wsize)+Cint(Cint((Hsize/NewHeight)*Wsize)*0.2)

Image.Resize NewWidth,Hsize

end if

Response.BinaryWrite Image.Image

Set Image = Nothing
end if
%>

default.asp:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>Test af AspImage</title>
</head>
<body>

<img src="thumbnail.asp?FileName=1.jpg&wsize=89&hsize=140" border="0" />

</body>
</html>

Disse filer lagde jeg ift. roden i mappen "/test".
Billedet "1.jpg" lagde jeg ift. roden i mappen "/test/billeder".