Buongiorno avrei bisogno di un aiuto...
Ho questo codice che funziona correttamente e serve a far visualizzare in dimensioni ridotte (non di kb) una immagine.
Poi ho provato ad adattare questo script preso da fotopix per il resize in asp.net per il ridimensionamento "al volo" delle immagini. (Questo è lo script originale e funzionante):codice:[img]image1.jpg[/img]
e queste sono le prove che ho fatto per provare ad adattarlo secondo le mie esigenze ma nessuna prova funziona:codice:<% response.write"[img]&strfile&[/img]" %>
codice:[img]&image1.jpg&[/img]codice:[img]resize.aspx?w=128&h=128&src=image1.jpg[/img]codice:[img]image1.jpg[/img]Quale prova mi manca che potrebbe essere quella giusta???codice:[img]resize.aspx?w=128&h=128&src=image1.jpg[/img]
Da premettere che ho inserito la mia pagina con il codice non funzionante, la pagina resize.aspx (che trovate di seguito) e l'immagine da visualizzare, nella root del sito.
questa è la pagina resize.aspx
GRAZIE IN ANTICIPOcodice:<%@ import namespace="System" %> <%@ import namespace="System.Drawing" %> <%@ import namespace="System.Drawing.Imaging" %> <%@ import namespace="System.IO" %> <script runat="server"> Function NewthumbSize(currentwidth, currentheight) ' Calculate the Size of the New image dim k,a,b,c,d as Double k=currentwidth/currentheight a=currentwidth b=currentheight c=Request.QueryString("h") d=Request.QueryString("w") 'if (k<=1 and currentheight>=c) then 'a=c*k 'b=c 'end if if (k>1) then a=d b=d/k else a=c*k b=c end if dim NewSize as New Size(a, b) return NewSize End Function Sub sendFile() ' create New image and bitmap objects. Load the image file and put into a resized bitmap. dim g as System.Drawing.Image = System.Drawing.Image.FromFile(server.mappath(request("src"))) 'dim g as System.Drawing.Image = System.Drawing.Image.FromFile(request("src")) ' initialise the web object 'Dim webC As New System.Net.WebClient() ' set the URL 'Dim strFilename as string 'if Request.QueryString("src")="" then ' strFilename="http://127.0.0.1/chiave.jpg" 'else ' strFilename="http://127.0.0.1/thumbaspx/"&Request.QueryString("src") 'end if ' create a bitmap based on the image from the URL 'Dim g = New System.Drawing.Bitmap(webC.OpenRead(strFilename)) dim thisFormat=g.rawformat dim thumbSize as New size thumbSize=NewthumbSize(g.width,g.height) dim imgOutput as New Bitmap(g, thumbSize.width, thumbSize.height) ' Set the contenttype 'if thisformat.equals(system.drawing.imaging.imageformat.Gif) then response.contenttype="image/gif" else response.contenttype="image/jpeg" end if ' send the resized image to the viewer imgOutput.save(response.outputstream, thisformat) ' output to the user ' tidy up g.dispose() imgOutput.dispose() end sub Sub sendError() ' if no height, width, src then output "error" dim imgOutput as New bitmap(120, 120, pixelformat.format24bpprgb) dim g as graphics = graphics.fromimage(imgOutput) 'create a New graphic object from the above bmp g.clear(color.yellow) ' blank the image g.drawString("ERRORE!", New font("verdana",14,fontstyle.bold),systembrushes.windowtext,new pointF(2,2)) ' Set the contenttype response.contenttype="image/jpeg" ' send the resized image to the viewer imgOutput.save(response.outputstream, imageformat.jpeg) ' output to the user ' tidy up g.dispose() imgOutput.dispose() end sub </script> <% ' make sure Nothing has gone to the client response.clear if request("src")="" then call sendError() else if file.exists(server.mappath(request("src"))) then call sendFile() else call sendError() end if end if response.end %>
Rispondi quotando
