Programación General > Delphi

 Guardar Un Bitmap...

(1/1)

vivichos:
Antes que nada hola.. a todos, soy principiante en delphi pero me he informado mucho sobre este lenguaje, de hecho estoy haciendo un editor en 2D,con un TMainMenu, abro archivos *.BMP , y guardo el  mismo en mi compu, pero a la hora de abrirlo en la misma me dice que hay un error "No se puede leer el archivo"; Porfavor si me podrían decir cual es mi error.

Mi código es el siguiente:

private {  Private declarations }
    c_pluma  : TColor;  
    g_pluma  : byte;    
    t_pluma  : byte;    
    _px, _py : integer;
   nom_bmp : string;
   BB    : TBitmap;

procedure TForm1.GuardarComo1Click(Sender: TObject);
var
nombre : string;
begin
  SaveDialog1.Filter:= '*.bmp';
  if SaveDialog1.Execute then begin
    nom_bmp:= SaveDialog1.FileName;
    nombre := Image1.Name;
   Image1.Picture.SaveToFile(nombre);
    end;
  end;

De ante mano muchas gracias!!!.

Enko:
Muchas vueltas para algo que tendría que ser tan sencillo como:

--- Código: Text --- if SavePictureDialog1.Execute then   Image1.Picture.SaveToFile(SavePictureDialog1.FileName);  o bien puedes usar un TSaveDialog en vez del TSavePictureDialog que en realidad es mejor para este caso.

Navegación

[0] Índice de Mensajes