¿Como puedo compilar una imagen y que el programa la busque en una ruta?

[ecfisa]

Hola viejinho.

Algunos enlaces que te serán útiles para agregar datos a tu ejecutable:

• Meter recursos dentro de un ejecutable
• Using resource files with Delphi
• How to use JPEG images stored in resource files
• How To Include JPEG's In Your Executable
• Como cargar imagenes PNG desde los recursos de mi App hacia un TImage?
• Embeber font en executable
• insertar sonidos en delphi con el ejecutable

Saludos

Edito: No ví el último mensaje mientras componía este, pero es la misma idea que te sugiere Neftali.

[viejinho]

Muchas gracias, me funciono, sola una ultima duda.
Yo usaba

Código Delphi [-]
Image1.Picture.LoadFromFile('imagen.jpg');

Para cargar los Jpg, ahora con los recursos ya no se como se hace, se hacerlo con imagenes bmp usando el siguiente código:

Código Delphi [-]
Image1.Picture.Bitmap.LoadFromResourceName(hInstance,'imagen');

Pero para usarlo con jpg ¿como le hago? intente remplazando Bitmap por JPEG y por Graphic y en ninguna funciona.

PD: También me gustaría saber hacerlo con GIF y PNG.

[Neftali [Germán.Estévez]]

Empezado por viejinho

Pero para usarlo con jpg ¿como le hago? intente remplazando Bitmap por JPEG y por Graphic y en ninguna funciona.

Mismo código, pero prueba a añadir la unit JPEG al uses.

[viejinho]

Empezado por Neftali

Mismo código, pero prueba a añadir la unit JPEG al uses.

Gracias por responder pero no me sirve ya agregue JPEG al uses pero me salen estos errores:

[Error] Unit1.pas(30): Illegal character in input file: '*' ($A0)
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

Si le cambio el Bitmap por JPEG salen los mismos 2 errores mas el siguiente:

[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

[[nlsgarcia]]

viejinho,

Empezado por viejinho

...Para cargar los Jpg, ahora con los recursos ya no se como se hace...

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$R Universe_Images.res}

procedure TForm1.Button1Click(Sender: TObject);
var
   RS : TResourceStream;
   ImageJpg : TJPEGImage;

begin

   try

      RS := TResourceStream.Create(hInstance, '#1', RT_RCDATA);

      ImageJpg := TJPEGImage.Create;
      ImageJpg.LoadFromStream(RS);

      Image1.Center := True;
      Image1.Stretch := True;
      Image1.Align := alClient;
      Image1.Picture.Graphic := ImageJpg;

   finally

      RS.Free;
      ImageJpg.Free;

   end;

end;

end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, Carga una imagen JPG contenida en un archivo de recursos en un componente TImage, como se muestra en la siguiente imagen:



Espero sea útil

Nelson.

[viejinho]

Empezado por nlsgarcia

viejinho,




Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$R Universe_Images.res}

procedure TForm1.Button1Click(Sender: TObject);
var
   RS : TResourceStream;
   ImageJpg : TJPEGImage;

begin

   try

      RS := TResourceStream.Create(hInstance, '#1', RT_RCDATA);

      ImageJpg := TJPEGImage.Create;
      ImageJpg.LoadFromStream(RS);

      Image1.Center := True;
      Image1.Stretch := True;
      Image1.Align := alClient;
      Image1.Picture.Graphic := ImageJpg;

   finally

      RS.Free;
      ImageJpg.Free;

   end;

end;

end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, Carga una imagen JPG contenida en un archivo de recursos en un componente TImage, como se muestra en la siguiente imagen:

Espero sea útil

Nelson.

Muchas gracias por responder, ¿como tendría que compilar la imagen en un recurso para ese código? Yo tengo compilada mi imagen del siguiente modo:

#1 JPEG imagen.jpg

¿Tendría que compilarlo cambiando JPEG por RCDATA o por RC_DATA?

Disculpen las molestias, pero soy muy principiante, también me gustaría saber que cambiar en el código para usar otros formatos.

[[nlsgarcia]]

viejinho,

Empezado por viejinho

...¿Tendría que compilarlo cambiando JPEG por RCDATA o por RC_DATA?...soy muy principiante...

Revisa esta información:

1- Inside the (Delphi) EXE

2- RCDATA resource

3- How to read data embedded in your program's resources

4- Embedding files as resources in a Delphi executable

5- Libros y tutoriales para aprender Delphi

Espero sea útil

Nelson.

[ecfisa]

Empezado por viejinho

¿Tendría que compilarlo cambiando JPEG por RCDATA o por RC_DATA?

Tres ejemplos concretos mas (sonido, imágen y font) :

• insertar sonidos en delphi con el ejecutable
• Una ayuda con Imágenes PNG
• Embeber font en executable

Saludos