ASP Image

Er ikke så stærk i ASP, men jeg mener at der ligge et eksempel ved www.script.dk el. www.asp101.com

~friiser~ http://www.radio-online.dk

Prøv med nedenstående. MINPIXELS angiver billedbredden og hust at rette "STI TIL MAPPE" og "FILNAVN" til dit eget. Jeg bruger selv nedenstående til at skalerer billeder med "on the fly":

<%
' Const MINPIXELS = 180
'*** get width/height of original image
Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage "d:\STI TIL MAPPE\" & rs("FILNAVN")
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX


'*** calculate aspect ratio based on MINPIXELS
NewHeight = Cint(ImageHeight*MINPIXELS/ImageWidth)
NewWidth = size
Set objImg = Nothing

'*** creat thumbnail image
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage "d:\STI TIL MAPPE\" & rs("FILNAVN")
Image.ImageFormat = 1
Image.JPEGQuality = 80
Image.ResizeR NewWidth,NewHeight
Response.BinaryWrite Image.Image
Set Image = Nothing
%>

/Goose

Kig evt. også på:
http://www.mpa-lifetech.de/Forum/aspObjects/Dynamic%20Image%20Thumbnails%20Using%20ASPImage%20and%20the%20FileSystemObject.htm

/Goose

Hej goose,

Tak for dine svar, det er helt garanteret sådan noget jeg skal have fat i.

Jeg har prøvet følgende, men desværre uden held.
<%
' Const MINPIXELS = 180
'*** get width/height of original image
Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage (Server.MapPath("../data/bynettop.jpg"))
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX


'*** calculate aspect ratio based on MINPIXELS
NewHeight = Cint(ImageHeight*MINPIXELS/ImageWidth)
NewWidth = size

Set objImg = Nothing

'*** creat thumbnail image
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage (Server.MapPath("../data/bynettop.jpg"))
Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.Resize NewWidth,NewHeight
Response.BinaryWrite Image.Image
Set Image = Nothing
%>

Billedet som jeg har testet med (bynettop.jpg) er 750 pixel bred og 75 pixels høj, men alligevel bliver den bare vist i den rigtige størrelse.

Hvis du kan hjælpe mig er pointene dine....jeg kan også godt forhøje dem hvis det er nødvendigt.

/pfp

Ups, det var vist min fejl, du har følgende:
' Const MINPIXELS = 180
skal være:
Const MINPIXELS = 180 (linien var udkommenteret)

og:

NewWidth = size
skal være:

NewWidth = MINPIXELS

Prøv det

/Goose

Tusind tak. Det er bare perfekt!!

Pointene er dine.

/pfp

Hej igen,

Lige et sidste lille spm. Kan du ikke hjælpe mig med at få det til at virke med server mappath.

Jeg har fået det til at virke med: (Server.MapPath("Grafik/bynettop.jpg"))

Men jeg vil gerne have selve billedfilen er dynamisk fra en db, hvordan kombinerer jeg min server mappath med mit feltnavn i min db?

På forhånd tak.

Det var så lidt, og thx for point

/Goose