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.
شكرا لكل من ساهم في هذه الطريقة في الموقع المذكور أعلاه...
وأكرر اعتذاري على التأخير ... لكن المهم أن تستفيدوا من هذه المشاركة...
وأرجوا أن أرى ردودكم وتطبيقاتكم وتحسينات لهذه الطريقة عن قريب...
والسلام عليكم ورحمة الله وبركاته...
http://www.paramegsoft.com/forum/topic19926.html