Brian B. Christensen wrote in dk.edb.internet.webdesign.serverside.asp:
> Hej.
>
> Jeg vil gerne bruge AspImage til at lave thumbnails i mit fotogalleri
> (
http://www.patricia-brinch.dk/dk/foto.asp), da jeg idag laver disse
> manuelt og det tager tid og thumbs fylder jo også når der er mange.
>
> Jeg har så prøvet at test lidt med:
>
> <%Set FS = CreateObject("Scripting.FileSystemObject")
> FileName = Server.MapPath ("test.jpg")
>
>
> Set Image = Server.CreateObject("AspImage.Image")
> Image.LoadImage(FileName)
> Image.JPEGQuality = 80
> Image.resize 80, 80
> Image.FileName = (FileName)
> Image.SaveImage
> Set Image = nothing
> %>
>
>
> Og det laver også en fin resize - af originalbilledet!!
Jeg har lige et lille "trick" jeg fik fortalt til ASPImage.
så man kan lave en Resize der stadig holder billedets proportioner.
så undgår du at dine thumbs bliver "forvrængede".
tilgengæld vil du så ikke få helt ens thumbs, hvis ikke alle billederne
vender på samme led..
men .. here goes..
<%
Sub ResizeX (intXSize)
Dim intYSize
intYSize = (intXSize / Image.MaxX) * Image.MaxY
Image.ResizeR intXSize, intYSize
End sub
%>
den smider du ind før du kalder ASPImage komponentet, og så kalder du
den med
<% call ResizeX (80) %>
hvor tallet i paranteserne angiver bredden på de thumbs du vil ha..
eksemplet kunne se sån her ud..
<%
Sub ResizeX (intXSize)
Dim intYSize
intYSize = (intXSize / Image.MaxX) * Image.MaxY
Image.ResizeR intXSize, intYSize
end sub
<%Set FS = CreateObject("Scripting.FileSystemObject")
FileName = Server.MapPath ("test.jpg")
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage(FileName)
Image.JPEGQuality = 80
Call ResizeX (80)
Image.FileName = (FileName)
Image.SaveImage
Set Image = nothing
%>
> Det jeg er interesseret i, er mere at resize dynamisk, sende billedet
> til browseren og så videre til næste billede i loopet. Ikke noget med
> at ændre det originale billede på disken.
>
> Kan det lade sig gøre og hvordan?
Hvad jkeg ved, skal du bruge et uploadkomponent, eller et seperat script
til at uploade..
Jeg har selv et slags "galleri", lavet til mine venner og mig selv
primært, hvor folk så kan uploade billeder og skrive tekst, kommentarer
osv.
Men til at uploade billederne bruger jeg komponenten
ASPSmartUpload
> Jeg ved at komponenten AspJpeg kan gøre noget ala:
>
> <IMG SRC="sendbinary.asp?path=test.jpg"&width=80"> (Præcis hvad jeg
> ønsker at kunne gøre med AspImage.
ASPImage kan ikke bruges til at uploade med. Der skal du som sagt ha fat
i et andet komponent
/Mads
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials