Hola que tal...
Hice un programita que toma imagenes desde una webcam y las guardo en una base de datos, pero ahora me pidieron el que a esa imagen le montara texto, como tal ya lo hago en un Picture Box usando el metodo pait y la instrucción draw string, pero al momento de guardarla solo guardo la imagen no se guarda el texto que le puse en el metodo paint, tambien ya intente hacer la prueba guardandolo en un archivo jpg pero es el mismo resultado.
Alguien de ustedes tiene una sugerencia?
Tambien otro problema con el que me tope es que la camara es de 10 mpx y quieren que las fotos se tomen con esa reslucion pero hasta la fecha no eh podido, se ven como vga o 1 mpx maximo.
De antemano gracias a todos
Hola que tal de nuevo, ya pude hacer lo de las imagenes, este es el codigo que use para la marte de ponerle texto sobre la imagen y guardarlo..
Dim nWidth, nHeight As Integer
nHeight = 200
nWidth = 200
img = New Bitmap("Dibujo1.bmp")
red = New Pen(Color.Red, 8)
bm = New Bitmap(img, nWidth, nHeight)
lienzo = Graphics.FromImage(bm)
lienzo.DrawRectangle(red, 0, 0, nWidth, nHeight)
lienzo.DrawString("HOLA", drawFont, Brushes.White, 50, 50)
PB.Image = bm '//show the bitmap in a picture box control
bm.Save("C:/temp/test.jpg")
Ahora solo me faltaria el mantener la resolucion de mi imagen si es que alguien me puede ayudar.
Gracias
Hola de nuevo a todos, no se si hayan leido este mensaje, pero de ser asi.. ahora me estan solicitando otra cosa.. que recorte algunas partes de la foto tomada, alguna sugerencia?
Nuevamente pongo mi codigo con el que pude recortar la imagen
Dim bmpdest As Bitmap
Dim lienzo As Graphics
Dim x, y As Integer
Dim rect, rect1 As Rectangle
bmpdest = PictureBox1.Image
lienzo = Graphics.FromImage(bmpdest)
x = bmpdest.Width
y = bmpdest.Height
rect = New Rectangle(0, 0, x, y)
rect1 = New Rectangle(0, 370, 3500, 1800)
lienzo.DrawImage(PictureBox1.Image, rect, rect1, GraphicsUnit.Pixel)
PictureBox2.Image = bmpdest
Espero a alguien le sirva