วัตถุประสงค์ใช้ไฟล์ทรัพยากรใน Delphi
ตัวอย่างนี้คือการเพิ่มแอนิเมชั่นแฟลชในโปรแกรมของเราและปล่อยมันเมื่อโปรแกรมเริ่มต้น
สร้างไฟล์ใหม่ก่อน
เนื้อหาเขียน: Flash swffile1 ขอบคุณ swf
บันทึกเป็น: swffile.rc
จากนั้นใช้ brcc32.exe เพื่อสร้างไฟล์ทรัพยากร
จากนั้นเพิ่มบรรทัด (บรรทัดสุดท้าย) ใน Delphi
การดำเนินการ
{$ r *.dfm}
{$ r swffile.res} // นี่คือบรรทัด
จากนั้นเพิ่มขั้นตอน:
ขั้นตอน flashrestofile (const resname, reestype, filename: string);
วาจา
Flashres: Tresourcestream;
เริ่ม
Flashres: = tresourcestream.create (hinstance, resname, pchar (resype));
พยายาม
flashres.savetofile (ชื่อไฟล์);
ในที่สุด
Flashres.free;
จบ;
จบ;
ใช้:
flashrestofile ('flash', 'swffile1', 'ขอบคุณ. swf');
ShockWaveFlash1.Movie: = ExtractFilePath (Paramstr (0)) + 'ขอบคุณ. swf';
Shockwaveflash1.Play;