PDA

Ver la Versión Completa : Como instalar un componente png

Gerson12
21-09-2012, 19:12:59
hola amigos bueno quisiera preguntarles algo es que quiero guardar una imagen en formato png , pero estuve leyendo que debo tener un componente instalado la verdad no se como instalarlo porfavor alguien me pude ayudar

//Saludos^\||/
Casimiro Notevi
21-09-2012, 19:43:01
quiero guardar una imagen en formato png
¿Guardar en la base de datos?
Gerson12
21-09-2012, 21:41:57
en la compuadora
quiero guardarla
Casimiro Notevi
21-09-2012, 21:53:53
en la compuadora
quiero guardarla

Sigo sin entender :confused:
Gerson12
22-09-2012, 02:19:30
disculpa es que estaba en un celular ^^ ahora si te explico ,bueno lo que quiero es hacer abrir 2 imagenes en un form usando Timage1 y Timage2 pero quiero que al darle el boton guardar estas dos imagenes se guarden(se guarden en la computadora no en una base de datos) como una sola imagen.

Pd:buscando encontre una posible solución
jpg := TJPEGImage.Create;
jpg.Assign(imgAvatar.Picture.Bitmap);
jpg.SaveToFile(dlg.FileName);
pero aca solo indica 1 Timage :=imageAvatar pero yo quiero 2 imagenes formen 1 sola y que el formato sea PNG.

por eso es mi pregunta como puedo instalar y de donde saco dichos componentes que lei en algunos hilos que se necesita para dar el formato Png

gracias de antemano
Casimiro Notevi
22-09-2012, 02:30:37
¿Guardar juntas?, ¿te refieres a crear una imagen con las otra dos? :confused:
¿Unidas en horizonal o en vertical?
Gerson12
22-09-2012, 02:47:15
vertical amigo
¿te refieres a crear una imagen con las otra dos?
si me refiero a esa
Caral
22-09-2012, 03:04:17
Hola
Aqui hay un ejemplo. (http://neftali.clubdelphi.com/?p=1030)
Saludos
Gerson12
22-09-2012, 03:18:24
gracias Caral y Casimiro provare y si me funciona les imformo Gracias
Gerson12
22-09-2012, 07:27:56
hola
[Caral] bueno prove el ejemplo pero la verdad no entiendo mucho estas lineas(disculpa es que lo unico que se es que aca se guia mediante cordenadas )
ARect.Left := 0; ARect.Top := 0; ARect.Right := 48; ARect.Bottom := 48;
imgDestino.Canvas.CopyRect(ARect, img1.Canvas, img1.ClientRect);

ARect.Left := 48; ARect.Top := 0; ARect.Right := 92; ARect.Bottom := 48;
imgDestino.Canvas.CopyRect(ARect, img2.Canvas, img2.ClientRect);

ARect.Left := 0; ARect.Top := 48; ARect.Right := 48; ARect.Bottom := 92;
imgDestino.Canvas.CopyRect(ARect, img3.Canvas, img3.ClientRect);

ARect.Left := 48; ARect.Top := 48; ARect.Right := 92; ARect.Bottom := 92;
imgDestino.Canvas.CopyRect(ARect, img4.Canvas, img4.ClientRect);

El codigo que eh encontrado en google ah sido esto
try
if dlg.Execute then
begin
jpg := TJPEGImage.Create;
try
jpg.Assign(imgAvatar.Picture.Bitmap);
jpg.SaveToFile(dlg.FileName);
finally
jpg.Free;
end;

bueno dejo una imagen de lo que quiero hacer por si puede ayudar
http://www.uploadimagen.com/images/956Dibujo.jpg
ecfisa
22-09-2012, 07:58:29
Hola Gerson12.

Revisa si te resulta útil este enlace: Combinar 2 imagenes en una (http://www.clubdelphi.com/trucos/imprimir.php?id=80)

Saludos. :)
Gerson12
22-09-2012, 08:01:13
bueno revisare eficsa gracias comentare el resultado
Pd: disuculpa pero si en ves de bitmap quiero que sea Png
Gerson12
22-09-2012, 08:21:39
@eficsa disculpa la molestia pero no se si me puedes dar un ejemplo es que me confunde un poco el metodo de uso de este tema que me distes (http://www.clubdelphi.com/trucos/imprimir.php?id=80) por favor si me pudieses ayudar
Pd: disuculpa pero si en ves de bitmap quiero saber si se puede hacer que sea Png