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
jpg := TJpegImage.Create;
try
jpg.Assign(Image1.Picture);
jpg.CompressionQuality := jpg.CompressionQuality DIV 2;
jpg.Compress;
Image2.Picture.Assign(jpg);
Image2.Picture.SaveToFile('c:\temp\out-Timage.jpg');
jpg.SaveToFile('c:\temp\out-jpg.jpg');
finally
jpg.Free;
end;