Resources in Delphi

سلام
تا حالا شده که بخواهین یه فایل رو جایی بزارید که به دست کسی نرسه؟
و از مضاهم هایی که فایل های بازی رو عوض می کنند و انسان رو ناراحت
می کنند راحت بشید؟
توی پست بعدی آموزش گذاشتن فایل رو در فایل exe اجرایی آموزش میدم.
منتظر باشید!
راستی یه مطلب برای حرفه ای ها که از این پست ها ندن
برای بدست اوردن این فایل ها باز هم روش هست. روش هاشو هم می دونم.
پس دیگه نمی خواهد تاپیک رو شلوغ کنید برای این نوع نوشته ها:)

این کار چندین مرحله داره.
اول باید فایل هایی که می خواهید به فایل اجرایی بروند رو بنویسید
این کار هم چندین قانون داره.
از اسم فایل شروع می کنیم و ...
خوب اول باید برای خودتون یه فایل بسازید که به فایل res تبدیل بشه
یک فایل txt متنی بسازید ! بعد آن را باز کنید و چیزایی لازم رو بنویسید
چیزایه لازم شامل 3 بخش هستند
اسمی که در دلفی به کار می رود
فایل از چه نوعی است(متنی،صدا،تصویر و ...) یعنی فرمت فایل
اسم فایل ! همراه با آدرس اگر فایل جایی بود که این فایل متنی را
می نویسید بود لازم نیست آدرس رو بنویسید
چند نمونه براتون می زارم.

کد:

---

sample_bmp  BITMAP    sample.bmp
sample_ico  ICON      sample.ico
sample_cur  CURSOR    sample.cur
sample_ani  ANICURSOR  sample.ani
sample_jpg  JPEG      sample.jpg
sample_wav  WAVE      sample.wav
sample_txt  TEXT      sample.txt

---

خوب وقتی که کار نوشتن تمام شد باید نام فایل متنی را تغییر دهید
یعنی فرمت فایل را عوض کنید! از txt به rc ببرید. اینکار فقط تغییر اسم هست
حالا باید این فایل رو به res تبدیل کنید.
cmd را اجرا کنید
وقتی که cmd اجرا شد باید عبارت زیر را بنویسید
brcc32 نام فایل با آدرس دقیق.
وقتی این را نوشتید اگر مراحل رو به درستی انجام داده بودید این به نوشته ها اضافه میشه

کد:

---

borland Resource Compiler  Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.

---

خوب حالا فایل res ایجاد شده.همون جایی که rc را ایجاد کرده بودید.
حالا باید در دلفی از این فایل res استفاده کنید.
اول این جمله رو نوشته : {$R اسم فایلی که ساخته بودید.res}
زیر این خط باید باشه{$R *.dfm}
حالا باید در برنامه از این فایل استفاده کنید
چون حالا آماده اید برای استفاده از فایل.

برای استفاده از هر نوع فرمتی روال استفاده فرق داره .
بیتمپ :

کد:

---

Image1.Picture.Bitmap.Handle :=      LoadBitmap(hInstance, 'sample_bmp');

---

آیکن :

کد:

---

  Icon.Handle := LoadIcon(hInstance, 'sample_ico'); 
  Screen.Cursors[1] := LoadCursor(hInstance, 'sample_cur');

---

ج پی جی اول باید یک فانکشن به این صورت بسازید بعد مثل Example استعمال کنید

کد:

---

  function GetResourceAsJpeg(const resname: string): TJPEGImage;
  var   
Stream: TResourceStream; 
begin 
 Stream := TResourceStream.Create(hInstance, ResName, 'JPEG'); 
  try   
 Result := TJPEGImage.Create;   
  Result.LoadFromStream(Stream); 
  finally
      Stream.Free; 
  end;
 end;

---

Example:

کد:

---

  var
  Jpg: TJPEGImage;
 begin 
  // ... 
  Jpg := GetResourceAsJpeg('sample_jpg'); 
  Image2.Picture.Bitmap.Assign(Jpg); 
  Jpg.Free; 
  // ...
 end;

---

ویو هم روال خاصی دارد اول فانکشن زیر را نوشته بعد مثل Example استعمال کنید

کد:

---

function GetResourceAsPointer(ResName: pchar; ResType: pchar;                               
out Size: longword): pointer; 
var   
InfoBlock: HRSRC;   
GlobalMemoryBlock: HGLOBAL; 
begin   
InfoBlock := FindResource(hInstance, resname, restype);   
if InfoBlock = 0 then     
raise Exception.Create(SysErrorMessage(GetLastError));   
size := SizeofResource(hInstance, InfoBlock);   
if size = 0 then     
raise Exception.Create(SysErrorMessage(GetLastError));   
GlobalMemoryBlock := LoadResource(hInstance, InfoBlock);   
if GlobalMemoryBlock = 0 then     
raise Exception.Create(SysErrorMessage(GetLastError));   
Result := LockResource(GlobalMemoryBlock);   
if Result = nil then     
raise Exception.Create(SysErrorMessage(GetLastError)); 
end;

---

Sample calls:

کد:

---

var   
        sample_wav: pointer; 

procedure TForm1.FormCreate(Sender: TObject); 
var   
size: longword; 
begin   
        sample_wav := GetResourceAsPointer('sample_wav', 'wave', size);
end;

---

و حالا استفاده از متن تی ایکس تی باز هم مثل دو تا قبلی:

کد:

---

  function GetResourceAsString(ResName: pchar; ResType: pchar): string; 
var   
        ResData: PChar;   
        ResSize: Longword; 
begin   
        ResData := GetResourceAsPointer(resname, restype, ResSize);   
        SetString(Result, ResData, ResSize);
 end;

---

Sample calls:

کد:

---

procedure TForm1.FormCreate(Sender: TObject); 
var   
size: longword; 
begin   
        Memo1.Lines.Text := GetResourceAsString('sample_txt', 'text'); 
end;

---

این هم از استفاده از یک فایل ویو که بالا گفتیم

کد:

---

procedure TForm1.Button1Click(Sender: TObject); 
begin   
sndPlaySound(sample_wav, SND_MEMORY or SND_NODEFAULT or SND_ASYNC); 
end;

---

این ها هم توضیح احتیاج ندارند.خودتون دیگه می دونین

کد:

---

procedure SaveResourceAsFile(const ResName: string; ResType: pchar;    const FileName: string); 
begin   
with TResourceStream.Create(hInstance, ResName, ResType) do     
try       
SaveToFile(FileName);     
finally       
Free;     
end; 
end;

---

کد:

---

function SaveResourceAsTempFile(const ResName: string;    ResType: pchar): string; 
begin   
Result := CreateTempFile;   
SaveResourceAsFile(ResName, ResType, Result); 
end;

---

برای استفاده از یک فایل برای نشان گر موس که متحرک هم هست.

کد:

---

function GetResourceAsAniCursor(const ResName: string): HCursor; 
var   
CursorFile: string; 
begin   
CursorFile := SaveResourceAsTempFile(ResName, 'ANICURSOR');   
Result := LoadImage(0, PChar(CursorFile), IMAGE_CURSOR, 0,
                        0, LR_DEFAULTSIZE or LR_LOADFROMFILE);   
DeleteFile(CursorFile);   
if Result = 0 then     
        raise Exception.Create(SysErrorMessage(GetLastError)); 
end;

---

Sample call:

کد:

---

Screen.Cursors[1] := GetResourceAsAniCursor('sample_ani');  Form1.Cursor := 1

---

;



خوب بالاخره تموم شد.خیلی خسته شدم.
امید وارم که بدرتون خورده باشه. نظر هم یادتون نره.
راستی تهیه کننده یادم رفت خودم:)
منبع هم داره باز هم خودم.

عالي بود
2 تا سوال داشتم.

1. از همين روش براي ساخت Dllها كمكي استفاده ميشه؟
2. فايل Exe رو چه جوري ميشه وارد يك چنين فايلي كرد و ازش استفاده كرد؟

سلام
سوالت خيلي برام جالب و به جا بود.
براي دي ال ال هم دقيقآ همين روال هست
چون دي ال ال و اگزه(اجرايي) مثل هم هستند
در بعضي موارد كم مثل هم نيستند.
فايل اجرايي اجرايي است و نمي توني جاي ديگه بزاري.
اگر احتياج داري اون رو به صورت دي ال ال بساز(كمي بايد حرفه اي باشي)
و از دي ال ال استفاده كن.چون دي ال ال مخصوص اين كارهاست.

برنامه توسط يك زبان ديگه ساخته شده كه امكانات ضعيفي داره و نميشه ازش فايل Dll گرفت.
و من ميخوام اين برنامه رو به دلفي لينك كنم.
خروجي كمپايل اون زبان فقط Exe است

نقل قول:

---

راستی یه مطلب برای حرفه ای ها که از این پست ها ندن
برای بدست اوردن این فایل ها باز هم روش هست. روش هاشو هم می دونم

---

لا اقل كدها رو تو تگ كد بذار كه قابل خوندن باشه

سلام
اون برنامه هم ام ام بي هست.
نگو از كجا مي دوني:):):)
خوب پس احتياجي نيست كه
dll باشه از همون فایل اجرایی استفاده کن
یا نوحه استفاده ازش رو بلد نیستی؟
اما احتیاجی نیست که اون رو جایی قرار بدی

FGIT
من به زودی این کارو می کنم.

آره.
من نميدونم چطوري لينكش كنم بدون اينكه Exe دوم يا همنو Mmb معلوم بشه.
يا بايد براش پارامتر بزارم كه فكر نكنم Mmb پارامتر وردودي داشته باشه و يا بايد غير قابل دسترسش كنم كه نميدونم چطوري.

سلام
براي چي مي خواهي غير قابل دسترس باشه
اگر واسه اينه كه وقتي اجراش كردند ضايع ميشه
توي قسمتي كه وقتي فرم ايجاد شد يه پيغام بده
اين فايل خرابه و بسته بشه.ديگه اينجوري هم
در امانه.اما اگر روش خيلي حرفه اي تري هم
ميخواهي بگو.

فايل mmb توريه كه اگه از بيرون اجرا بشه برنامه بعدا ممكنه دچار اشتباه بشه و اين فايل بايد از توي پروژه من اجرا بشه.

سولجر جان نظرتو بگو.