Reducir tamaño de imagen de un dbimage

[Walterdf]

Hola Neftali,
Ante todo, gracias por haberme respondido.
Perdón por la falta de claridad en mi consulta, tenés razón, lo escribí apurado y así salió.
Lo que necesito hacer es reducir el peso de la imagen bajandole un poco la calidad y pensé en hacerlo con las propiedades que nombré antes, CompressQuality.
Cuando hablo del ClipBoard me refiero a que no necesito guardar la figura modificada en un archivo, el programa debería hacer lo siguiente, abrir el archivo .jpg, reducir el peso de la imagen y pegarla en el dbimage. Calculo que para esto utilizaría las propiedades SaveToClipBoardFormat y LoadFromClipBoardFormat y no entiendo del todo los parámetros que deben llevar.
Espero haber aclarado un poco el objeto de mi consulta y si puedes darme una mano con algún código de ejemplo te lo agradeceré.
Un saludo
Walter

[Neftali [Germán.Estévez]]

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.

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;

[Walterdf]

Muchas gracias Neftali, funcionó de maravillas!!!
De todos modos y si no es mucho molestia, me gustaría saber exactamente como funcionan las propiedades SaveToClipBoardFormat y LoadFromClipBoardFormat, simplemente me quedé con la curiosidad.
Un abrazo y gracias.
Walter