http://labs.insert-title.com/labs/article832.aspx
He modificado ago el codigo (lo he dejado como comentario lo que estaba), pero FUNCIONA.
Mis conocimientos sobre Net son NULOS
, agradeceria de veras cualquier ayuda o aclaracion.<%@ Page Explicit="True" Language="VB" Debug="True" %>
<%@ Import Namespace="system.drawing" %>
<%@ Import Namespace="system.drawing.imaging" %>
<%@ Import Namespace="system.drawing.drawing2d" %>
<%@ Import Namespace="system.io" %>
<script runat="server">
dim Filename as String
dim Width, Height, shadowSize as Integer
dim Bitmap as system.drawing.bitmap
dim ImgFormat as ImageFormat
dim Img as System.Drawing.Image
Dim baseMap as Bitmap
dim top, left as Integer
sub CreateGraphic()
Dim letterBrush as SolidBrush = new SolidBrush(Color.FromArgb(50, 255, 255, 255))
Dim shadowBrush as SolidBrush = new SolidBrush(Color.FromArgb(50, 0, 0, 0))
Dim fontTitle as Font = new Font("tahoma", 20, FontStyle.Bold)
Filename = Request.QueryString("filename")
'Filename = server.mappath(Filename)
Filename=Server.MapPath("Imagenesgaleria\") & "\Originalesjb\" & Filename
ImgFormat = ImageFormat.jpeg : response.contenttype="image/jpeg" ' Default=jpeg '
Img = system.drawing.image.FromFile(Filename)
Width = Img.Width
Height = Img.Height
baseMap = new Bitmap(Width,Height)
Dim myGraphic as Graphics = Graphics.FromImage(baseMap)
with myGraphic
.DrawImage(Img, 0,0, Width,Height)
.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.AntiAlias 'Mover a lo ancho , Mover a lo alto
.DrawString("WWW.Diaes.Com", fontTitle, shadowBrush, 1, 60)
.DrawString("WWW.Diaes.Com", fontTitle, letterBrush, 7, 62)
.drawString("ESTO LO HE PUESTO PARA HACER PRUEBAS 1", New font("verdana",14,fontstyle.bold),systembrushes.wi ndowtext, New pointF(5,10))
.drawString("ESTO LO HE PUESTO PARA HACER PRUEBAS 2", New font("verdana",10,fontstyle.bold),systembrushes.wi ndowtext, New pointF(5,200))
.drawString("ESTO LO HE PUESTO PARA HACER PRUEBAS 3", New font("verdana",10,fontstyle.bold),systembrushes.wi ndowtext, New pointF(500,64))
end with
Img.dispose()
'para intentar guardar la imagen con la marca de agua
end sub
</script>
<%'ESTO LO PONIA DOS VECES, HE DEJADO SOLO UNA
'¿Para que estaba dos veces?
'CreateGraphic
'baseMap.Save(Response.OutputStream, ImageFormat.JPEG)
'baseMap.dispose()
'Img = Nothing
'response.end
%>
<%
CreateGraphic
baseMap.Save(Response.OutputStream, ImageFormat.JPEG)
baseMap.dispose()
Img = Nothing
response.end
%>
