LoadFromFile y SaveToFile
Código Delphi
[-]
procedure TDMMain.CargarImagenDeArchivo(Imagen: TImage; Archivo: string);
begin
try
Imagen.Picture.LoadFromFile(Archivo);
except
on EInvalidGraphic do
begin
Imagen.Picture.Graphic := nil;
MessageDlg(_('Formato de imagen no aceptado'), mtError, [mbOK], 0);
end;
on EFOpenError do
begin
Imagen.Picture.Graphic := nil;
MessageDlg(_('Error al abrir imagen'), mtError, [mbOK], 0);
end;
end;
end;
procedure TDMMain.GuardarEnArchivo(Imagen: TImage; Archivo: string);
begin
try
Imagen.Picture.SaveToFile(Archivo);
except
MessageDlg(_('Error al guardar imagen'), mtError, [mbOK], 0);
end;
end;