20. august 2003 - 22:57
Der er
1 kommentar og 1 løsning
AspImage - scaler ned hvis billede større end 350 pixels
Jeg har et forum, og gider ikke have det smadret af alt for store billeder derfor har jeg lavet dette Set Image = Server.CreateObject("AspImage.Image") Image.AutoSize = true Image.LoadImage(server.mappath("\cygshop\forum\billeder\" & filnavn)) intXSize = 350 intYSize = (intXSize / Image.MaxX) * Image.MaxY Image.ResizeR intXSize, intYSize 'Image.AddImageTransparent "d:\home\jonsendk\www\cygshop\billeder\overlay.jpg", 300, 0, vbWhite Image.FileName = server.mappath("\cygshop\forum\billeder\" & filnavn) Image.SaveImage Set Image = nothing men hvis nu billedet er mindre end 350 skal det ikke laves større - hvordan gøres dette ? /cygnet
Annonceindlæg tema
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
20. august 2003 - 23:04
#1
Kan du ikke putte en if sætning omkring det som resizer billedet.: Set Image = Server.CreateObject("AspImage.Image") Image.AutoSize = true Image.LoadImage(server.mappath("\cygshop\forum\billeder\" & filnavn)) intXSize = 350 if Int(Image.MaxX) >= intXSize then intYSize = (intXSize / Image.MaxX) * Image.MaxY Image.ResizeR intXSize, intYSize 'Image.AddImageTransparent "d:\home\jonsendk\www\cygshop\billeder\overlay.jpg", 300, 0, vbWhite Image.FileName = server.mappath("\cygshop\forum\billeder\" & filnavn) Image.SaveImage End if Set Image = nothing
20. august 2003 - 23:19
#2
jo - det var da lige det man kunne.
Kurser inden for grundlæggende programmering