12 respuestas en este tema

[enecumene]

Hola a todos, es la primera vez que trabajo con ellos, no tuve problemas en generar el archivo RES con imágenes PNG, pues bien, lo agrego al proyecto de esta manera:

delphi

{$R *.dfm}
{$R Interfaz.RES}

Ahora, cuando intento cargarlo de esta manera:

delphi

Image1.Picture.Bitmap.LoadFromResourceName(hinstance,'ZERO');

Me arroja un error diciendo que el recurso ZERO no fue encontrado, el recurso lo generé con XN Resouce editor.

¿Alguien me podría decir a qué se debe eso? .

Saludos.

[enecumene]

¿nadie ha tenido ese tipo de experiencia?

[escafandra]

¿nadie ha tenido ese tipo de experiencia?

Si..., tranquilo, te estaba preparando un ejemplo....

Lo estás haciendo bien, se hace así. Sólo hay un pequeño detalle, tu recurso debe incluirse como un BITMAP, si no delphi no lo puede manejar. No se si se podrá con las últimas versiones de delphi, pero hasta la 7 no.

Te subo el ejemplo. 

[enecumene]

:$ :$, acabo de ver el code y funciona bien , a ver una cosa, al meter un recurso PNG como BITMAP pues esa imagen se veía como BITMAP no como PNG, no sé si aquí estoy haciendo algo mal o en realidad es así, quisiera saber cómo hiciste el archivo .rc o lo hiciste con el software que mencioné.

Saludos.

[escafandra]

quisiera saber cómo hiciste el archivo .rc o lo hiciste con el software que mencioné.

Pues hice puna prueba con el Resource Workshop 4.5 del delphi. Para recursos normales lo uso mucho. Sólo tiene una pega, es antiguo y no trabaja con imágenes de mas de 256 colores.

Luego hice una prueba con el XN Resouce editor que proponías. Tienes que darle el nombre a tu recurso, es decir, por defecto pone un número.

Como ampliación te diré que los Recursos pueden referenciarse con una cadena o con un número, la macro de Miscrosoft MAKEINTRESOURCE convierte el número a su cadena:

cpp

LPTSTR MAKEINTRESOURCE( WORD wInteger /*integer to convert*/ );

la definición es esta:

cpp

#define MAKEINTRESOURCE(i)  (LPTSTR) ((DWORD) ((WORD) (i)))

de esta manera puedes trabajar con ResourceId.

Saludos.

[enecumene]

Gracias por la aclaración escafandra, pero no me refería a eso, me refería a que cuando ingreso un archivo PNG ésta se convierte en una imagen BMP, por lo que la calidad no es la misma, deja subir un ejemplo para que veas la diferencia.

Saludos.

[enecumene]

Creo que ya sé cual es el problema, creo que el problema viene con las imágenes con transparencia. , déjame hacer unas pruebas.

[enecumene]

Efectivamente el problema era de las transparencia, basandome en tu aclaración escafandra, lo que hice fue tratar primero la imagen como PNG y luego asignarlo en un TImage, lo hice de esta manera:

delphi

procedure TForm1.FormCreate(Sender: TObject);
var PNG: TPNGObject;
begin
 
PNG := TPNGObject.Create;
 
PNG.LoadFromResourceName(hinstance,'ZERO');
 
Image1.Picture.Assign(PNG);
end;

Y me ha funcionado de pelos, el TPNGObject es una clase de los componentes PNGComponents de Thany , gracias amigo .

Saludos.

[Bertifox]

Hola enecumene, por favor me podrias indicar que uses necesito para LoadFromResourceName, tengo el siguiente error y no logro dar con la info.

 

DCC Error] UMultiView.pas(118): E2003 Undeclared identifier: 'LoadFromResourceName'

[escafandra]

Es un método de TBitmap:
 

delphi

TBitmap.LoadFromResourceName(Instance: THandle; const ResName: string);

 

Saludos.

[Bertifox]

gracias  escafandra me queda claro.

[Bertifox]

escafandra, funciona perfecto en una aplicacion vcl, pero no funciona para una apps Android, serias tan amable de revisar este hilo para ver que me sugieres.

 

Saludos....

 

http://delphiaccess....agen-a-la-apps/

[sir.dev.a.lot]

delphi

procedure TForm1.FormCreate(Sender: TObject);
    var 
       PNG: TPNGObject;
    begin
       PNG := TPNGObject.Create;
       Try 
          PNG.LoadFromResourceName(hinstance,'ZERO');
          Image1.Picture.Assign(PNG);    
       Finally
          PNG.Free;    
       End;
    end;

No te olvides de Liberar los Objetos, Memory Leaks

 

Saludos!