كيف يمكن إنشاء ملفات فلاش (swf) بواسطة الدلفي

نحن معك ياأخ mohamed.dz

وياريت بماأنك بادئ الموضوع تبدأ

نحن بالانتظار

السلام عليكم.. مرحبا بك يا نوبل مان ويا كل أعضاء هذا المنتدى...

أرجوا المعذرة عن تأخري في الإجابة لسببين أولهما أني كنت مشغولا بعض الشيء وثانيهما أنني كنت أجرب الطريقة ولم أوفق من إتقانها حتى البارحة...

ملاحظة: الطريقة مقتبسة من الموقع: http://www.faqts.com/knowledge_base/index....x.phtml/fid/175

ولكنها ليست مشروحة كفاية، وإليكم الطريقة:

1- يجب تحميل الملف swfobjs.dll من الرابط التالي: http://bukoo.sourceforge.net/swfobjs_2.zip والذي يجب أن توزعه مع البرامج التي ستصممها بعد فك ضغطها طبعا، ويستحسن أن تضعها في نفس المجلد الذي يحتوي على التطبيق.

2- يجب عليك كذلك تثبيت الأكتيف إكس swflash.ocx والذي يأتي مع الفلاش بلاير (يمكنك تحميل الإصدار الأخير من الرابط: www.macromedia.com/go/getflashplayer)

وذلك من خلال الأمر: component -> Import ActiveX Control...

3- إفتح الدلفي وأنشء تطبيقا جديدا، ثم إختر الأمر Project -> View Source ثم اكتب السطر التالي تحت Begin

registercomserver(getcurrentdir+'\swfobjs.dll');

ولا تنس أن تضيف الوحدتين التاليتين في uses كما يلي:

uses
  Forms,comobj,sysutils,

4- عد إلى form1 و أضف المكونات التالية:

shockwaveflash1 من ActiveX

Button1 وغير الخاصية caption إلى: create.

Button2 وغير الخاصية caption إلى: play.

Button3 وغير الخاصية caption إلى: stop.

5- أضف الكود التالي في الحدث OnClick ل: button1:

procedure TForm1.Button1Click(Sender: TObject);
var movie, txt, obj: variant;
    i: integer;
    filename:string;
begin
 filename := getcurrentdir+'\sample.swf';

 movie := CreateOLEObject('swfObjs.swfMovie');
 movie.SetSize(6400, 3700);

 txt := CreateOLEObject('swfObjs.swfObject');
 obj := CreateOLEObject('swfObjs.swfObject');

 obj.MakeRectangle(0, 0, 6380, 3680);
 obj.SetRadialFill(255, 255, 255, 255, 255, 224, 224, 255);
 obj.SetRadialFillCenter (5190, 1895);

 obj.SetDepth(0);
 movie.AddObject(obj);

 obj.MakeFont('MyFont');
 obj.AddGlyph('Arial', 'Hello,', ord('H'));
 obj.AddGlyph('Arial', 'arabteam', ord('B'));

 txt.MakeText('HB', obj);
 txt.translate(500, 1500);
 txt.SetSolidFill(255, 0, 0, 250);
 txt.Scale(65536 div 2, 65536 div 2);
 movie.AddObject(txt);

 for i := 10 to 50 do
 begin
  movie.GotoFrame(i);
  if i >= 10 then movie.RemoveObject(txt);
  txt.rotate( (50-i)*65536 * 9);
  txt.Scale( (60-i)*6553, (60-i)*6553);
  txt.SetSolidFill(255, 0, 0, (i-9)*5);
  movie.AddObject(txt);
 end;

 movie.WriteMovie(filename);

 ShockwaveFlash1.Movie := filename;
 ShockwaveFlash1.play;

end;

6- أضف الكود التالي في الحدث OnClick ل: button2:

procedure TForm1.Button2Click(Sender: TObject);
begin
    ShockwaveFlash1.play;
end;

7- أضف الكود التالي في الحدث OnClick ل: button3:

procedure TForm1.Button3Click(Sender: TObject);
begin
    ShockwaveFlash1.Stop;
end;

8- أضف الوحدة comobj إلى uses في الفورم1 وذلك لكي يتعرف الدلفي على الأمر CreateOLEObject.

شكرا لكل من ساهم في هذه الطريقة في الموقع المذكور أعلاه...

وأكرر اعتذاري على التأخير ... لكن المهم أن تستفيدوا من هذه المشاركة...

وأرجوا أن أرى ردودكم وتطبيقاتكم وتحسينات لهذه الطريقة عن قريب...

والسلام عليكم ورحمة الله وبركاته...

السلام عليكم...

أنا في انتظار ردودكم وتطبيقاتكم...

صديقكم الجديد mohamed.dz

عنجد تسلم ايدك وكتر الله خيرك

والله يكتر امثالك؟؟؟؟؟؟؟؟؟

تحياتي رح اجرب الطريقة واشوف.................

السلام عليكم ورحمة الله وبركاته

أين أنتم يا إخوان

وينك يا nobleman ، إن شاء الله تكون بخير

أين الوعد الذي وعدتني به ... أن نتناقش ونتبادل الأفكار...

أنا مازلت في انتظار ردودكم وتطبيقاتكم...

المنتدى في حالة سبات نتمنى يستيقض منها قريباً

تحياتي... والسلام عليكم ورحمة الله..

السلام عليكم ورحمة الله و بركاته

أولا أحب أن أشكر الأخ Mohamed.dz على المجهودات الطيبة

و أحب أن أخبر الإخوة أن هناك أكثر من ذلك في استخدام العروض الفلاشية في تطبيقاتهم حيث أنه بالإمكان إنشاء أزرار متحركة فلاشية و التحكم بها عن طريق دلفي أي أن الأزرار المتحركة و الجميلة المصممة بالفلاش يمكن رؤيتها و استخدامها في تطبيقاتنا, لكنني فقط أريد منتدا نشيطا فالمنتدى حقا في حالة سبات

أخوكم ABDELKADER