Làm cách nào tôi có thể trích xuất tài nguyên vào tệp trong thời gian chạy?

Question

Tôi chỉ muốn phân phối một tệp .exe, tuy nhiên, khi chạy, tôi muốn nó trích xuất một số tài nguyên hình ảnh được nhúng vào ổ đĩa cứng của người dùng.

Tôi có thể, và nếu có, làm cách nào?

Answer 1

Sử dụng TresourceStream của Delphi. Đó là hàm tạo sẽ tìm và nạp tài nguyên vào bộ nhớ, và phương thức SaveToFile của nó sẽ làm ghi đĩa.

Something tương tự như này nên làm việc:

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; 

Nếu bạn có thể sử dụng ID tài nguyên thay cho tên, đó là một chút ít bộ nhớ. Trong trường hợp đó, bạn nên thay thế Tạo bằng CreateFromID và cung cấp ID số thay vì tên chuỗi.

Answer 2

Tạo một TResourceStream. Bạn sẽ cần xử lý đối tượng mô-đun (thường là SysInit.HInstance cho tệp EXE hiện tại hoặc bất kỳ thứ gì bạn nhận được từ LoadLibrary hoặc LoadPackage), loại tài nguyên (chẳng hạn như rt_Bitmap hoặc rt_RCData) và tên tài nguyên hoặc ID số. Sau đó, gọi phương thức SaveToFile của luồng.

Answer 3

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

Sau đó lưu Bitmap vào đĩa.

Answer 4

Có thể điều này cũng có ích nếu bạn cần làm việc với chính tài nguyên. Delphidabbler/ResourceFiles