اجرای فایلهای برنامه بصورت خصوصی و خارج از دسترس کاربر

[Mask]

سلام.
درگیر پروژه ای بودم که سفارش دهنده نیت داشت که فایلهای عکس و صدا و تصویرش رو بصورتی در برنامه استفاده کنیم که مشتریانش دسترسی به فایل منبع ان نداشته باشند.
پس از کلی تلف کردن وقت، یه راه ساده با استفاده از کامپوننت zipforg پیدا کردم که جالب دیدم برای دوستان هم قرار بدهم.
روال زیر نمونه ایست برای باز کردن عکسی از یک فایل zip پسوورد دار در حافظه. با این روال فایل در حافظه اکستراکت شده و در برنامه لود میشود.

procedure TForm1.Button1Click(Sender: TObject);var
aStream: TMemoryStream;
begin
aStream := TMemoryStream.Create;
try
Archiver.FileName := 'c:\11.zip';
Archiver.Password:='8546';
Archiver.OpenArchive(fmOpenRead);
Archiver.ExtractToStream('hamze1980.jpg', aStream);
aStream.Position := 0;
ShowImageFromStream(Image1, aStream);
Archiver.CloseArchive;
finally
aStream.Free;
end;
end;