hola amigos nuevamente yo tengo un problemita pues tengo este codigo donde convierto imagenes de bmp a jpeg todo bien hasta ahi pero me llego la idea de utilizar los componente dialogs para abrir y guardar las imagenes que utilizo bueno aqui le muestro el codigo que me funciona y el que no
el que funciona:
Código Delphi
[-]var bmp : TBitmap;
Jpg : TJpegImage;
begin
bmp := TBitmap.Create;
jpg := TJpegImage.Create;
bmp.LoadFromFile ('c:\chame.bmp');
jpg.Assign(bmp);
jpg.SaveToFile ('c:\chame.jpg');
jpg.Free;
bmp.Free;
end;
end.
el que no funciona
Código Delphi
[-] bmp := TBitmap.Create;
jpg := TJpegImage.Create;
bmp.LoadFromFile(abrir2.filename);
jpg.Assign(bmp);
jpg.SaveToFile(guardar2.filename);
jpg.Free;
bmp.Free;
espero que me ayuden