AIUTOOOO: Resize Immagini, che sbaglio???

**santino83** · 13-04-2005, 16:47

Premettendo che io di asp.net non so nulla, qual'è l'errore di questa pagina?

codice:

<%@ Page language="c#" %>
<%@ Import namespace="System.IO" %>
<%@ Import namespace="System.Net" %>
<%@ Import namespace="System.Drawing" %>
<SCRIPT RUNAT="SERVER">
Sub Page_Load()

Dim width as Integer = 0
Dim height as Integer = 0

' ridimensiona l'immagine se specificato
Dim immagine as String = Server.MapPath(Request.QueryString("img"))
width=Request.QueryString("w")
height=Request.QueryString("h")

call ImgRedim(immagine, width, height)

End Sub

' Funzione di redim
Public Sub ImgRedim(immagine as String, width as Integer, height as Integer)
Dim bmp as System.Drawing.Bitmap = CType(System.Drawing.Image.FromFile(immagine), System.Drawing.Bitmap)

' creo la Thumbnail con i parametri impostati
Dim miniaturabmp as New System.Drawing.Bitmap(bmp, width, height)

' salvo sullo stream di output
if immagine.EndsWith(".jpg") Then
miniaturabmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg)
else
miniaturabmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Gif)
end if

' pulizia
miniaturabmp.Dispose()

' pulizia finale
bmp.Dispose()

End Sub

</SCRIPT> 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Resize Image</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>
<body onLoad="Page_Load()">
calcolando l'immagine
</body>
</html>

in sostanza passo da un'altra pagina il nome dell'immagine che deve ridimensionare insieme ai parametri Height e Width. Io vorrei che quello script la ridimensionasse. Però mi fa errore la pagina .aspx e non mi fa nulla

mi date una mano please?

**santino83** · 13-04-2005, 16:56

ho scoperto che la sintassi è sbagliata, però io questa l'ho copiata prendendola da uno o due post qui sul forum. Dov'è errata?

**Raffa62** · 13-04-2005, 17:01

primo: hai messo <%@ Page language="c#" %> ma poi usi il VB.Net
secondo: <body onLoad="Page_Load()"> cos'è?
terzo: passi il nome dell'immagine?
Dim immagine as String = Server.MapPath(Request.QueryString("img"))

**santino83** · 13-04-2005, 17:59

lo so sono una scarpa, ma non è colpa mia

io non l'avrei mai fatta sta pagina ma il cliente la vuole. Ti prego aiutami

1: come la correggo l'intestazione?
2: pensavo servisse a richiamare la SUB Page_Load che ho scritto sopra. Come faccio a richiamarla al momento del caricamento della pagina?
3: si passo il nome dell'immagine che è già presente sul server

**Raffa62** · 13-04-2005, 18:05

1. <%@ Page language="VB" %>
2. la sub Page_Load viene eseguita al caricamento della pagina, non serve richiamarla

**cipcip** · 04-08-2005, 09:14

salve, a me serve lo stesso script solo che io ho il nome dell'immagine e le dimensioni scritta in un cookies asp
es.
("img")("w")="200"
("img")("h")="150"
("img")("name")="/public/nomefile.jpg"

ed inoltre l'anteprima deve sovrascrivere il file originale ed essere creata in base a questo criterio:

se W>H allora H=H/W*100 e W=100
se H>W allora W=W/H*100 e H=100
se H=W allora W=100 e H=100

Le dimensioni originali H e W sono gia' note , ma se ci fosse un metodo per farne a meno sarebbe ancora meglio.

come potrei adattare l oscript ?

grazie in anticipo

Roberto

**sms** · 04-08-2005, 10:14

Originariamente inviato da cipcip
salve, a me serve lo stesso script solo che io ho il nome dell'immagine e le dimensioni scritta in un cookies asp
es.
[..]

Roberto

se non ricordo male, grazie a ciò:

codice:

Dim bmp as System.Drawing.Bitmap = CType(System.Drawing.Image.FromFile(immagine), System.Drawing.Bitmap)

puoi recuperare h e w tramite

codice:

bmp.Width
bmp.Height

**cipcip** · 04-08-2005, 10:55

...e per salvare il file sul server anziche sull oschermo?

**Raffa62** · 04-08-2005, 11:26

Originariamente inviato da cipcip
...e per salvare il file sul server anziche sull oschermo?

ad esempio

codice:

Dim miniaturabmp as New System.Drawing.Bitmap(bmp, width, height)
		try
   		 	if newImg.EndsWith(".jpg") Then
   			 	miniaturabmp.Save(Server.MapPath("pippo.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)
    		else

				response.Write("solo file .jpg")
    		end if
		catch
			response.Write("errore")
		end try

però non puoi sovrascrivere l'immagine originale, devi salvarla con un nome diverso e poi cancellarla

**cipcip** · 04-08-2005, 11:33

un'altra cosa sms mi ha detto che con questo codice potevo dedurre WxH ma mi da errore come mai l'errore sta nella parte segnata di rosso l oso perche ho aggiunto il codice riga per riga, ma non so che errore e' perche e' disabilitata la visualizzazione degli errori, approposito come si fa ad abilitarla?

codice:

<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %>
<%@ Import namespace="System.IO" %>
<%@ Import namespace="System.Net" %>
<%@ Import namespace="System.Drawing" %>
<SCRIPT RUNAT="SERVER">
Dim immagine as String = Server.MapPath("/public/120.jpg")
Dim bmp as System.Drawing.Bitmap = CType(System.Drawing.Image.FromFile(immagine), System.Drawing.Bitmap)

Dim width as Integer
Dim height as Integer

width=bmp.width
height=bmp.height
response.Write("width: " & width & " x " & "height: " & height)
</SCRIPT>

Discussione: AIUTOOOO: Resize Immagini, che sbaglio???

Strumenti discussione

Ricerca discussione

Visualizza

AIUTOOOO: Resize Immagini + errore sintassi, che sbaglio???

Permessi di invio