Creare una gif

[zoccolo]

Salve,
girando sul web ho trovato questa procedura per la creazione di immagini gif..

Dim Bitmap
Bitmap objBmp = new Bitmap (32,32)
System.Drawing.Graphics objGraphics = System.Drawing.Graphics.Fromimage(objbmp)
objGraphics.Clear(Color.White)
objGraphics.TextRenderingHint = TextRenderingHint.AntiAlias
System.Drawing.Font objFont = new Font("Arial", 10, FontStyle.Regular)
objGraphics.DrawString("mymail@myaddress.com", objFont, Brushes.Blue, 3, 3)
Response.ContentType = "image/GIF"
objBmp.Save(Response.OutputStream, imageFormat.Gif)

Però non mi funzia...Mi spiegate perchè?

[AndreaZani]

A parte qualche stranezza che vedo nel codice... quale errore ti dà?

Un esempio più chiaro lo puoi trovare qui: tutorial

Ciao

[zoccolo]

Ok,
ho sostituito quel codice con questo ceh ho trovato in quel tutorial

Dim objBitmap As New Bitmap(200,200)
Dim objGraphic as Graphics = Graphics.FromImage(objBitmap)
Dim blueBrush As New SolidBrush(Color.Blue)

objGraphic.FillRectangle(blueBrush, 0, 0, 200, 200)

Response.ContentType = "image/Gif"
objBitmap.Save ("CIAO", ImageFormat.Gif)

Ho notato che mi lascia lo spazio per l'immagine ma non mi visualizza nulla e neppure mi salva un'immagine...
Dove dovrei modificare questo codice?

[AndreaZani]

Hai provato il codice d'esempio scaricato dal tutorial?

Provato ora e funziona correttamente.

[zoccolo]

ciao,
ho usato questo codice e funziona

<%@ Page Language="VB" Debug="True" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Imaging" %>
<%@ Import Namespace="System.Drawing.Text" %>

<%
	Dim objBMP        As System.Drawing.Bitmap
	Dim objGraphics   As System.Drawing.Graphics
	Dim objFont       As System.Drawing.Font

	objBMP = New Bitmap(32, 32)

	objGraphics = System.Drawing.Graphics.FromImage(objBMP)

	objGraphics.Clear(Color.Green)

	objGraphics.TextRenderingHint = TextRenderingHint.AntiAlias

	objFont = New Font("Arial", 12, FontStyle.Bold)

	objGraphics.DrawString(Valore, objFont, Brushes.White, -3, 1)

	Response.ContentType = "image/GIF"
	objBMP.Save(response.OutputStream, ImageFormat.Gif)

	objFont.Dispose()
	objGraphics.Dispose()
	objBMP.Dispose()

e funziona benissimo...
Ho creato pure una form dove scegliendo colore e dimensionidi sfondo,
tipo,dimensione e colore di carattere
faccio creare l'immagine con i parametri inviati
ora però i chiedevo se fosse possibile magari sostituire al posto del colore uniforme una immagine caricata da un'utente..
sarà una cosa stupida...ma vorrei provarci...