¿Cómo puedo extraer un recurso en un archivo en tiempo de ejecución?

Question

Quiero distribuir solo un .exe, sin embargo, en el tiempo de ejecución me gustaría extraer algunos recursos de imágenes incrustadas en la unidad de disco duro del usuario.

¿Puedo, y en caso afirmativo, cómo?

Answer 1

Utilice Delphi's TResourceStream. Su constructor encontrará y cargará el recurso en la memoria, y su método SaveToFile hará la escritura del disco.

Algo similar a esto debería funcionar:

var 
    ResStream: TResourceStream; 
begin 
    ResStream := TResourceStream.Create(HInstance, 'YOURRESOURCENAME', RT_RCDATA); 
    try 
    ResStream.Position := 0; 
    ResStream.SaveToFile('C:\YourDir\YourFileName.jpg'); 
    finally 
    ResStream.Free; 
    end; 
end; 

Si puede utilizar el ID de recurso en lugar del nombre, que es un poco menos memoria. En ese caso, reemplazaría Create con CreateFromID y proporcionaría el ID numérico en lugar del nombre de la cadena.

Answer 2

Crear un TResourceStream. Necesitará el identificador de instancia del módulo (generalmente SysInit.HInstance para el archivo EXE actual, o lo que sea que obtenga de LoadLibrary o LoadPackage), el tipo de recurso (como rt_Bitmap o rt_RCData) y el nombre del recurso o ID numérico. Luego, llame al método SaveToFile de la transmisión.

Answer 3

try 
    if not Assigned(Bitmap) 
    then 
     Bitmap := TBitmap.Create(); 
    Bitmap.LoadFromResourceName(HInstance,SRC); 
except 
    on E:Exception do 
     ShowMessage(e.Message); 
end; 

Y a continuación, guarde el mapa de bits en el disco.

Answer 4

Quizás esto también sea útil si necesita trabajar con los recursos en sí. Delphidabbler/ResourceFiles