Foros Club Delphi - Como cargar una image desde un OpenPictureDialog1

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Como cargar una image desde un OpenPictureDialog1 (https://www.clubdelphi.com/foros/showthread.php?t=81668)

Salnhack

05-12-2012 22:16:45

Como cargar una image desde un OpenPictureDialog1

Hola tengo un TImagen y un OpenPictureDialog1 necesito que la imagen selecionada se me cargue en el TImagen lo hago de la sgte forma

Código Delphi [-]Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

Pero el problema es que me dice que la extención del archivo que estoy cargando es desconocida y estoy cargando un .ICO que es una de las extenciones validad para un TImagen

Ayuda Please

ecfisa

05-12-2012 22:46:00

Hola Salnhack.

Si la selección del archivo es correcta, tu código no debería dar ningún problema. ¿ Has probado si sucede lo mismo con otros archivos .ICO ?

Saludos.

nlsgarcia

05-12-2012 22:52:17

Salnhack,

Revisa este código:

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var
   OpenPictureDialog : TOpenPictureDialog;
begin
   OpenPictureDialog := TOpenPictureDialog.Create(Self);
   OpenPictureDialog.InitialDir := GetCurrentDir;
   OpenPictureDialog.Options := [ofFileMustExist];
   OpenPictureDialog.Filter := 'Icons Files|*.ico|Bmp Files|*.bmp';
   OpenPictureDialog.FilterIndex := 1;
   if OpenPictureDialog.Execute then
      Image1.Picture.LoadFromFile(OpenPictureDialog.FileName);
   OpenPictureDialog.Free;
end;

El código anterior funciona correctamente con archivos de tipo ICO y BMP.

Verifica que tus archivos con extensión ICO correspondan al tipo que sugiere la extención y no presenten problemas en su estructura.

Espero sea útil :)

Nelson.

Salnhack

05-12-2012 23:10:03

Ok, gracias

Cita:

Empezado por nlsgarcia (Mensaje 451324)

Salnhack,

Revisa este código:
Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); var OpenPictureDialog : TOpenPictureDialog; begin OpenPictureDialog := TOpenPictureDialog.Create(Self); OpenPictureDialog.InitialDir := GetCurrentDir; OpenPictureDialog.Options := [ofFileMustExist]; OpenPictureDialog.Filter := 'Icons Files|*.ico|Bmp Files|*.bmp'; OpenPictureDialog.FilterIndex := 1; if OpenPictureDialog.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog.FileName); OpenPictureDialog.Free; end;

El código anterior funciona correctamente con archivos de tipo ICO y BMP.

Verifica que tus archivos con extensión ICO correspondan al tipo que sugiere la extención y no presenten problemas en su estructura.

Espero sea útil :)

Nelson.

Ok, gracias

La franja horaria es GMT +2. Ahora son las 04:27:50.