10 replies to this topic

[luk2009]

Meter recursos dentro de un ejecutable
Una de las cosas que mas hacen engordar el tamaño de un ejecutable es
meter los mismos botones con imagenes en distintos formularios. Si diseñamos
nuestros propios botones Aceptar y Cancelar y los vamos replicando en cada
formulario el tamaño de nuestro programa puede crecer considerablemente.
Para evitar esto lo que vamos a hacer es meter la imagen dentro de un
recurso compilado y posteriormente accederemos a la misma dentro del
programa. La ventaja de utilizar este método es que la imagen sólo esta una
vez en el programa independientemente del número de formularios donde
vaya a aparecer.
Supongamos que vamos a meter la imagen MiBoton.jpg dentro de nuestro
programa. Creamos al lado de la misma el archivo imagenes.rc el cual
contiene:
1 RCDATA MiBoton.jpg
Se pueden meter en un archivo de recursos tantas imagenes como se desee,
así­ como otros tipos de archivo (sonidos, animaciones flash, etc.). Las
siguientes lí­neas serí­an:
2 RCDATA imagen2.jpg
3 RCDATA imagen3.jpg
...
Ahora abrimos una ventana de sí­mbolo del sistema dentro del mismo
directorio donde este la imagen y compilamos el recurso:
c:\imagenes\brc32 -r -v imagenes.rc
Lo cual nos creará el archivo imagenes.res.
Ahora para utilizar el recurso dentro de nuestro programa hay que añadir
debajo de implementation (del formulario principal de la aplicación) la
directiva {$R imagenes.res}:
[glow=red,2,300]implementation
{$R *.dfm}
{$R imagenes.res}[/glow]
Esto lo que hace es unir todos los recursos de imagenes.res con nuestro
ejecutable. Para cargar la imagen dentro de un objeto TImage hacemos lo
siguiente:


procedure TFPrincipal.FormCreate( Sender: TObject );
var
Recursos: TResourceStream;
Imagen: TJPegImage;
begin
Imagen := TJPegImage.Create;
Recursos := TResourceStream.Create( hInstance, '#1', RT_RCDATA );
Recursos.Seek( 0, soFromBeginning );
Imagen.LoadFromStream( Recursos );
Imagen1.Canvas.Draw( 0, 0, Imagen );
Recursos.Free;
Imagen.Free;
end;



Donde Imagen1 es un objeto TImage. Aunque pueda parecer algo molesto
tiene las siguientes ventajas:
- Evita que un usuario cualquiera utilice nuestras imagenes (a menos claro que
sepa utilizar un editor de recursos).
- Facilita la distribución de nuestro programa (va todo en el exe).
- Se puede añadir cualquier tipo de archivo o dato dentro del ejecutable.
- Ahorramos mucha memoria al cargar una sola vez el recurso.
Pruebas realizadas en Delphi 7. 

Esto lo saque de unos manuales de nombre delphi al limite. 

Mi duda es como crear el archivo    .RC  porque no entiendo como hacerlo y si cuales son los pro y los contra de hacer esto asi.

Lo quiero utilizar basicamente para unos archivos de audio de mi aplicacion y asi poder tenerlos junto con mi ejecutable.

Espero sus comentarios

[poliburro]

Mi duda es como crear el archivo    .RC  porque no entiendo como hacerlo y si cuales son los pro y los contra de hacer esto asi.

Lo quiero utilizar basicamente para unos archivos de audio de mi aplicacion y asi poder tenerlos junto con mi ejecutable.

Espero sus comentarios

Si mal no recuerdo el .rc es un simple archivo de texto con esa extensión. Al compilar ese archivito es como se genera el de recursos.

Ahora sobre su uso yo opino que es una excelente solución para aligerar tus aplicaciones cuando le incluirás muchos archivos de imagen o como en tu caso: audio.

Saludos

[enecumene]

Ahí­ mismo lo dice, debes abrir notepad y agregar los recursos y guardarlo como archivo .rc, así­ de sencillo.

Saludos.

[luk2009]

gracias por sus respuestas.

Eso fue lo que entendi, gracias por aclararme, ademas queria saber la opinion de ustedes sobre el asunto.

Dos Preguntas:

1.- Despues de compilar los archivos, puedo borrarlos de mi maquina, porque lo que pretendo hacer es crear una carpeta con todos estos archivos, compilar el .RC y borrar esa carpeta, ya que los archivos estan en varias carpetas.

2.- En caso de un archivo de audio, que vaya a ser tocado por medio del mediaplayer, es factible utilizarlo asi y si se puede como hay que cargarlo al media player.

gracias

[poliburro]

gracias por sus respuestas.

Eso fue lo que entendi, gracias por aclararme, ademas queria saber la opinion de ustedes sobre el asunto.

Dos Preguntas:

1.- Despues de compilar los archivos, puedo borrarlos de mi maquina, porque lo que pretendo hacer es crear una carpeta con todos estos archivos, compilar el .RC y borrar esa carpeta, ya que los archivos estan en varias carpetas.

2.- En caso de un archivo de audio, que vaya a ser tocado por medio del mediaplayer, es factible utilizarlo asi y si se puede como hay que cargarlo al media player.

gracias

1 - Efectivamente amigo, puedes borrarlos pero yo te recomendaria tener un respaldo por si las moscas.

2 - si el archivo de audio es un WAVE debe ser de la siguiente manera:

agregas la unidad mmsystem a tu uses

y utilizas este procedimiento:

delphi

procedure TForm1.PlaySound(soundname: String) ;
var
  hFind, hRes: THandle;
  Song: PChar;
begin
   hFind := FindResource(HInstance, soundname, 'WAVE') ;
   if hFind <> 0 then begin
    hRes:=LoadResource(HInstance, hFind) ;
   if hRes <> 0 then begin
     Song:=LockResource(hRes) ;
     if Assigned(Song) then SndPlaySound(Song, snd_ASync or snd_Memory) ;
     UnlockResource(hRes) ;
   end;
   FreeResource(hFind) ;
 end;
end;

saludos

[luk2009]

gracias poliburro por tu respuesta

Si entiendo bien, con este procedure lo que hago es asignar el recurso y tocarlo directamente, no por medio del mediaplayer.

Estoy haciendo lo que me dices y recibo el siguiente error:



que estoy haciendo mal. 

gracias de nuevo

[Fenareth]

Hola luk(skywalker???)2009  ( chiste estúpido, ya sé  :$)

Te manda una incompatibilidad de tipos... sustituye esto:

delphi

hFind := FindResource(HInstance, soundname, 'WAVE');

por esto:

delphi

hFind := FindResource(HInstance, pChar(soundname), 'WAVE');

Saludox !

[luk2009]

Gracias Fenareth por tu respuesta.

Compila bien y sin errores.

La pregunta ahora es como uso ese procedimiento. Ejemplo si lo pongo en un boton
playsound( ) ;  //que debo poner entre los parentesis?

no me parecio estupido el chiste, mas bien tierno

[Fenareth]

Hola luk !!!

Pon el nombre de la canción, de esta manera:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
       playsound('Canción chida');
end;

Saludox ! 

[luk2009]

Gracias Fenareth por tu ayuda.

lo primero que hice fue crear una carpeta donde puse un archivo que se llama police.wav. Luego de esto cree con notepad el archivo  soni.rc que dice en su interior:

1 RCDATA police.wav   

luego de esto lo compile haciendo lo siguiente:

c:\monitoreo\brc32 -r -v soni.rc     

Con lo cual se creo en la misma carpeta c:\monitoreo el archivo  soni.res.

En delphi creo una aplicacion nueva y pongo un boton en el form
declaro la procedure que me indico poliburro y pongo en el uses mmsystem:

  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MPlayer, StdCtrls,mmsystem;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure PlaySound(soundname: String) ;
    procedure Button1Click(Sender: TObject); 

luego de implementation:

delphi

implementation
 
{$R *.dfm}
{$R soni.res}
 
 
procedure TForm1.PlaySound(soundname: String) ;
var
  hFind, hRes: THandle;
  Song:PChar;
begin
   //hFind := FindResource(HInstance, soundname, 'WAVE') ;
  hFind := FindResource(HInstance, pChar(soundname), 'WAVE');
   if hFind <> 0 then begin
    hRes:=LoadResource(HInstance, hFind) ;
   if hRes <> 0 then begin
     Song:=LockResource(hRes) ;
     if Assigned(Song) then
          SndPlaySound(Song, snd_ASync or snd_Memory) ;
     UnlockResource(hRes) ;
       end;
   FreeResource(hFind) ;
 end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound('police');
end; 

Que estoy haciendo mal, porque no suena cuando presiono el boton?.

[luk2009]

Hola a todos, el problema hasta donde he visto estaba en la forma en que creo en notepad el archivo de recursos
lo he cambiado a esta forma:

police wave "c:\monitoreo\police.wav"   

y luego lo he vuelto a compilar y si funciona.

gracias por su ayuda.

Ahora voy a realizar las pruebas de como funciona con otro tipo de recursos como mp3 e imagenes y ademas entender bien el codigo de poliburro.  Porque la idea no es solo realizar una cosa, lo mas importante es saber como se hace, para poder crecer en tu aprendizaje.

Por esta razon Poliburro, puedes explicar paso a paso como funciona tu procedure?