Automatisk thumbnail af et billede

ASPImage 2.x er din ven :o)

75 er max bredde (de resizer og maintainer aspect ratio)

<%
    Response.ContentType = \"image/jpeg\"

    Set Image = Server.CreateObject(\"AspImage.Image\")

    Image.LoadImage Server.MapPath(\"picture.jpg\")

    intRatio = ((75 * 100) / Image.MaxX)
    intNewY = CInt(Image.MaxY * (intRatio / 100))
    Image.ResizeR 75, intNewY
    Image.ImageFormat = 1

    Response.BinaryWrite Image.Image
    Set Image = nothing   
%>

Og brug den således:

Smid ovenstående i en .asp fil og gør flg. på din thumbnail side:

<img src=\"minside.asp?pic=picture.jpg\">

du skal så lige lave sådan at den henter \"pic\" værdien og loader/resizer den istedet for \"picture.jpg\"

Hej Tdaugaard :o) Længe siden!!

Under mappath (picture.jpg) skal jeg så bare skrive den fulde sti til billedet?

yeps :-) er ikke på mit primære ICQ # så meget mere ...
Smid flg. i en fil, f.eks. \"out_img.asp\"

<%
    Response.ContentType = \"image/jpeg\"

    strPicture = Request.QueryString
    Set Image = Server.CreateObject(\"AspImage.Image\")

    Image.LoadImage Server.MapPath(strPicture)

    intRatio = ((75 * 100) / Image.MaxX)
    intNewY = CInt(Image.MaxY * (intRatio / 100))
    Image.ResizeR 75, intNewY
    Image.ImageFormat = 1

    Response.BinaryWrite Image.Image
    Set Image = nothing   
%>

på din thumbnail side kan du så skrive:

<img src=\"out_img.asp?pictures/noget.jpg\">

Alt hvad du skriver efter ? vil blive mapped til den absolutte sti.

Det virker jo smukt :o)

Jeg har dog lige 2 underspørgsmål :o))

1. Hvad hvis det nu er gif for eksempel?
2. Hvis jeg har x antal billeder kan jeg så bare loope denne sætning: <img src=\"out_img.asp?pictures/noget.jpg\">?

Se\'følig gør det det ;o) (det er kode taget direkte fra noget hvor jeg selv bruger det *S*)

1. ASPImage MÅ og KAN ikke læse .GIF filer, så der er du på røven for at sige det mildt ;o)
2. Helt korrekt ..

f.eks.:

<%
  For index = 1 To 10
    Response.Write \"<img src=\'out_img.asp?pictures/pic\" & index & \".jpg\'>\"
    If (index Mod 3) = 0 Then Response.Write \"<br>\"
  Next
%>

Du kan istedet for GIF bruge .PNG, men det hjælper ikke meget hvis det er et system hvor andre end dig skal kunne uploade billeder ..

Det her er taget fra Scannet (min udbyder):

AspImage komponentet giver mulighed for at generere og redigere billeder via ASP. Der kan arbejdes med billeder af typen GIF (kun RLE) JPG, PNG og BMP. AspImage understøtter funktioner som crop, flip, resize, rotate, darken, lighten, plus andre effekter. Eksemplet nedenfor viser hvordan et billede med tekst og en gradient baggrund genereres.

Ser det så lidt lysere ud når der står GIF? :o)

ASPImage understøtter at gemme i GIF (RLE encoding), men ikke at loade dem. Dvs. du kan ikke loade og derved resize/vise thumbnail af et GIF billede.

nåmen det jeg tænkte på var..... nu du selv nævner .png.... hvad så med denne sætning:

Response.ContentType = \"image/jpeg\"

Vil det virke selvom det er PNG?

DAMN ASPImage :o))

Well jeg holder mig bare til Jpg filer!

Du skal have 1000 tak for hjælpen :o) og tålmodigheden med alle mine spørgsmål :o))

hilsener

Tommy

Yeps .. .ContentType er bare det format browseren får billedet i, og her sætter:

Image.ImageFormat = 1

hvilken type det er. 1 er JPG, og jeg mener at GIF har 3 og PNG 5.

Okay :o) TAK!! Du har sparet mig for en ordentlig bunke grå hår ;o))

Yeps .. tro mig .. jeg har bandet over ASPImage\'s manglende indlæsning af GIF filer ...

Det var så lidt :-)

hæ hæ .. det var så lidt :-) Er altid glad for at hjælpe hvis jeg kan :o)