ASPimage - resize leverer et hvidt billede...

Jeg er sikke rpå at du ikke finder frem til filen i filnavn !!

Prøv at brug variablen fra upload.file

Image.LoadImage upload.file

Jeg har noget der fungerer på min anden computer, hvis ikke det her virker så hæng lige på, jeg sender mit eksempel.

vh Mark

>>pollas

Det lyder dump, men du har husket at kalde det via ex:
<a href="Isbjerg.jpg"><img src='test3.asp' alt='miniature billede 1' border="0"></a>

hvor din kode er gemt i et særskilt asp scrip ( her test3.asp)

<%
            Response.Expires    = 0
            Set Image = Server.CreateObject("AspImage.Image")
            Response.ContentType = "image/jpeg"

            Image.LoadImage server.mappath("images")& "Isbjerg.jpg"
            'Response.Write "<p><b>Billedet var : </b>" & Image.MaxX & "x" & Image.MaxY & ".</p>"
           
            intRatio = ((75 * 100) / Image.MaxX)
            intNewY = CInt(Image.MaxY * (intRatio / 100))
            Image.Resize 75, intNewY
            Image.CreateButton 5,true
            Image.ImageFormat = 1
           
            Image.ProgressiveJPEGEncoding = true

            Response.BinaryWrite Image.Image
            'Response.Write "<p><b>Billedet er  nu kun: </b>" & Image.MaxX & "x" & Image.MaxY & ".</p>"
            Set Image = nothing   
   
%>

Jeg bruger ikke server.mappath("images") men abs sti

Henrik

hnteknik >> Jeg er ikke helt sikker på, hvad du mener. Jeg forsøger at gemme en seperat thumbnail ifm. upload af 'hoved'billedet, og der skrives også en thumbnail med de angivne dimensioner på serveren - men den har kun hvidt indhold :(

Pollas>>

Der kan kun være en grund til at gemme en TN på serveren og det må hastigheden. Ovenstående genererer dynamisk en thumbnail af billedet på serveren. Du kan selv teste hastigheden på http://www.web4it.dk/blaabog/thumbtest.asp

to ting kan du forsøge:

1) Brug den første af de to udkommatererede response.writes ovenfor for at se, om du har fat i et billede. Har du fat i et billede, så udkommenter igen, da du ikke kan vise billede og tekst sammen.

2) har du et billede som udagnagnpunkt, så prøv at skrive Image.saveimage i stedet for response.binarywrite og se hvad der sker. Skal det ikke have et nyt navn ??? Image.saveimage

prøv det her :

Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage strOriginal 'oprindelig navn
Image.GetImageFileSize strOriginal, X, Y
Image.MaxX = X
Image.MaxY = Y
'maintain aspect ratio
ResizedY = (ResizedX / Image.MaxX) * Image.MaxY
Image.ResizeR ResizedX, ResizedY

'saving thumbnail to disk
Image.ImageFormat = 1
Image.FileName= strThumb ' nyt navn
Image.SaveImage



Henrik

Takker