Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-10-2019
trex2000 trex2000 is offline
Miembro
 
Registrado: may 2003
Posts: 237
Poder: 21
trex2000 Va por buen camino
Modificar imagenes

Saludos a todos.

Me podrian ayudar para poder modificar imágenes desde una aplicación que ya tengo en delphi y se le desea agregar la opción de recortar el tamaño de la imagen original y poder renombrarla, alguien me podria ayudar y decirme como poder hacerlo?

Espero haberme explicado bien.

De antemano muchas gracias.
Responder Con Cita
  #2  
Antiguo 07-10-2019
aposi aposi is offline
Miembro
 
Registrado: dic 2006
Posts: 146
Poder: 18
aposi Va por buen camino
Con este codigo cargas la imagen y la guardas con el nombre que quieras
Código Delphi [-]
Jpg:= TJPEGImage.Create;
               try                  
                    Jpg.LoadFromFile(Ruta_origen+nombre +'.jpg');
                    proporcional(Jpg,500,500);                   
                    Jpg.SaveToFile(Ruta_destino+nombre +'.jpg');                   
               finally
                Jpg.Free;
               end;


la funcion proporcional la ajusta al tamaño que quieras


Código Delphi [-]
procedure Proporcional(Imagen: TGraphic; Ancho, Alto: Integer);
var
  Bitmap: graphics.TBitmap;
begin
  Bitmap:= graphics.TBitmap.Create;
  try
    if Imagen.Width < ancho then ancho := Imagen.Width;
    if Imagen.Height < alto then alto := Imagen.Height;
    if  (Ancho/Imagen.Width) < (Alto/Imagen.Height) then
      Alto:= Trunc((Ancho*Imagen.Height)/Imagen.Width)
    else
      Ancho:= Trunc((Imagen.Width*Alto)/Imagen.Height);
    Bitmap.Width:= Ancho;
    Bitmap.Height:= Alto;
    Bitmap.Canvas.StretchDraw(Bitmap.Canvas.ClipRect,Imagen);
    Imagen.Assign(Bitmap);
  finally
    Bitmap.Free;
  end;

end;
Responder Con Cita
  #3  
Antiguo 08-10-2019
trex2000 trex2000 is offline
Miembro
 
Registrado: may 2003
Posts: 237
Poder: 21
trex2000 Va por buen camino
Gracias por tu respuesta.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Insertar, mostrar y modificar imágenes a una base de datos Jaroncp Varios 13 18-10-2016 21:42:08
Modificar El Bde NEOALEX00016 Conexión con bases de datos 2 07-01-2010 03:05:18
modificar con sql Cosgaya SQL 5 20-12-2005 01:27:51
modificar imágenes bmp RTorres Gráficos 3 08-08-2005 17:14:02
Modificar o NO? vtdeleon Firebird e Interbase 2 30-05-2005 17:56:47


La franja horaria es GMT +2. Ahora son las 17:45:55.


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
Copyright 1996-2007 Club Delphi