Ver Mensaje Individual
  #4  
Antiguo 11-11-2004
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.293
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por Walterdf
...el programa debería hacer lo siguiente, abrir el archivo .jpg, reducir el peso de la imagen y pegarla en el dbimage...
Mejor explicado ahora, dónde va a parar...
Un comentario sólo, en lugar de "pegarla" en el DBImage, debes pegarla en el campo asociado del Dataset, que es el que tiene el dato, el DBImage símplemente "muestra" lo que hay en el DataSet.


Cita:
Empezado por Walterdf
...Calculo que para esto utilizaría las propiedades SaveToClipBoardFormat y LoadFromClipBoardFormat y no entiendo del todo los parámetros que deben llevar.
Como ya te comenté, para hacer lo que pides no se necesita utilizar el Clipboard para nada, puedes hacerlo con objetos.

Código Delphi [-]
var
  jpg:TJpegImage;
begin
  // Crear el objeto JPG
  jpg := TJpegImage.Create;
  try
    // Asignar de un TImage o Leer de disco
    jpg.Assign(Image1.Picture);
    // CAmbiar compresión y comprimir
    jpg.CompressionQuality := jpg.CompressionQuality DIV 2;
    jpg.Compress;
    // Asignar a otro Image
    Image2.Picture.Assign(jpg);
    // Para comprobar sólo; grabar las nuevas imágenes desde jpg y TImage2
   // y comprobar el tamaño en disco
    Image2.Picture.SaveToFile('c:\temp\out-Timage.jpg');
    jpg.SaveToFile('c:\temp\out-jpg.jpg');
  finally
    jpg.Free;
  end;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita