الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف أتعامل مع ملفات متنوعة داخل الرسورس ؟

بدأه sofiane_ism في 19 يوليو 2009 · 2 رد · 482 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بســم الله الـرحمــن الرحيــم

لقد قمت بإنشاء ملف رسورس وقمت بإدخال داخله عدة ملفات ذات عدة إمتدادات وقد قمت بإدراج هذا الرسورس مع برنامج لي في الدلفي وأنا أريد أن أقوم بإخراج تلك الملفات إلى مسار معين فكيف أقوم بذلك وشكرا

وهذه الامتدادات التي داخل الرسورس

*.exe , *.dll , *.bmp , *.3gp , *.ini , *.flv

فهل هناك طريقة أو دالة تتعامل مع أي نوع موضوع داخل الرسورس بصفة عامة وشكرا

#2

أخي يمكنك أن تتعامل مع جميع المصادر بنفس الصيغة Rt_RCDATA ومن ثم إستخرجها بواسطة TResourceStream

procedure TForm1.Button1Click(Sender: TObject);
var
 rStream: TResourceStream;
begin
rStream:= TResourceStream.Create(hInstance, 'Sunset', Rt_RCDATA);
rStream.SaveToFile('Sunset.bmp');
FreeAndNil(rStream);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 rStream: TResourceStream;
begin
rStream:= TResourceStream.Create(hInstance, 'Project', Rt_RCDATA);
rStream.SaveToFile('Project.exe');
FreeAndNil(rStream);
end;

أتمنى لك التوفيق

تم تعديل هذه المشاركة بواسطة حسين طي في 21 يوليو 2009 في 05:46

#3

شكرا أخي حسين طي الطريقة المطروحة من قبلك صحيحة وإشتغلت معي وأراحتني من عناء الكثير

مواضيع مشابهة