Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como instalar un componente png (https://www.clubdelphi.com/foros/showthread.php?t=80366)

Gerson12 21-09-2012 19:12:59

Como instalar un componente png
 
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

Cita:

Empezado por Gerson12
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

Cita:

Empezado por Gerson12 (Mensaje 443876)
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
Código Delphi [-]
   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
Cita:

¿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.
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 )
Código Delphi [-]
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
Código Delphi [-]
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

ecfisa 22-09-2012 07:58:29

Hola Gerson12.

Revisa si te resulta útil este enlace: Combinar 2 imagenes en una

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 por favor si me pudieses ayudar
Pd: disuculpa pero si en ves de bitmap quiero saber si se puede hacer que sea Png


La franja horaria es GMT +2. Ahora son las 22:56:47.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi