فلاش مع الدلفي

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

نعم هناك طريقة لذلك

كل المعلومات هنا http://www.delphiflash.com/codelib.php

وشكرا :rolleyes:

مرحبا mautez ... :D

بالنسبة للمشاهدة برامج الفلاش SWF في ديلفي يجب عليك أن تدرج Activex لهي في تطبيقك:

أنقر عل Component ثم Import ActiveX Control في Ide delphi.

إبحث عن Shockwave Flash ثم قم بتثبيته Install.

في لائحة الأدوات المرئية, تحت Activex ستجد مكون جديد إسمه TShockwaveFlash. أنقر عليه ثم ضعه داخل Form...

هذه لإجرائية لمشاهدة ملف SWF داخل شاشة Activex التي وضعتها في الفورم:

Procedure Extraction;
 var 
     FlashFile :string;
  begin
    ShockwaveFlash1.Stop;
    flashFile := '.\MyFlash.swf';
    ShockwaveFlash1.Movie := FlashFile;
    ShockwaveFlash1.Play;
  end;

(h)

:(

عفوا عزيزي JuStNiCk لم أنتبه أنك سبقتني بالرد في هذا الموضوع :lol: ..

الرابط الذي أعطيته ممتاز

:D

شرحك ممتاذ الرد السابق لى كان على سبيل المداعبة وشكرا :D

شكرا ..... إجابات رائعة ...

جزاكم الله كل خير

اولاً عليك ايجاد الملف (SWFLASH.OCX).

و من ثم من خلال دلفي اذهب الى Component--> Import ActiveX Control. اختر الملف (SWFlash.OCX) في حال لم يكن ضمن القائمة العلية و قم باستراده... عند الانتهاء من استيراده، ستجده ضمن صفحة ActiveX في دلفي باسم TShockWaveFlash... يمكن بعدها استخدامه مباشرةً.

طريق استخدامه وهي ضع (ShockwaveFlash1) على الفورم ثم اضغط دبل كليك

في الفورم حدد Movie URL مكان الفلاش الذي تريد وضع على الفورم واضغط على اوكي

ولاتنس ضع علامة صح امام Play........

--------------------

:rolleyes:

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

لعرض ملفات SWF في حاسوب لا يحتوي على ملف Activex للفلاش swflash.ocx( النسخة الأخيرة استبدل فيها إسم الملف ب flash.ocx):

شركة Macromedia, Inc. توفر ملف تنفيذي يقوم بتثبيث Activex على حاسوبك..يعني يمكنك تحميل آخر إصدار لShockwaveFlashLast PLuging و إدراجه مع تطبيقك.

أو تقوم بإدراج هذا الملف flash.ocx مع تطبيقك ثم تقوم بنسخه في Win_system\Macromed\Flash

مثلا إذا كان مجلد ويندوز هو WinNt فسيكون المسار هو C:\WinNt\system32\Macromed\Flash

هذه الطرق التي ذكرت تعد طرق يدوية يقوم بها مستعمل التطبيق..

سأعطي طريقة لكيفية تنفيذ التطبيق دون إعارة المستعمل إنتباهه هل الحاسوب به ملف Activex أم لا!:

سيتكون تطبيقك من الملف الرئيسي App.exe و ملفات الفلاش التي تريد استعمالها فيه و كذلك ملفflash.ocx في نفس مجلد تطبيقك.

عند تنفيذ التطبيق سنقوم بنسخ ملف flash.ocx في مسار Win_system\Macromed\Flash إذا لم يكن مثبثا في الحاسوب ثم نسجله في النظام حتى تستفيد منه باقي التطبيقات

التي قد تحتاجه هي أيضا.

هذا الكود تستعمله في حدث OnFormCreat

const
   FlashOcx= 'Flash.ocx';   // or swflash.ocx if you have the older version

procedure TForm1.FormCreate(Sender: TObject);
 var
   SystemDir : array[0..1024] of Char;
   SrcOcxDir, DestOcxDir: string;
begin
{Copy Flash.Ocx if nessecary to the system directory at the folder:
 [WinSystemDirectory]\Macromed\Flash
}
 SrcOcxDir:= ExtractFilePath(Application.ExeName);
 GetSystemDirectory (SystemDir, 1024);
 DestOcxDir := SystemDir;
 DestOcxDir:= DestOcxDir + '\Macromed\Flash\';

 if not FileExists(DestOcxDir+ flashocx) then
   begin
      ShowMessage('The Flash activex Pluginh is not istalled'+ #10#13
            + 'Presse "Enter" To process installing it');
      CopyFile(PChar(SrcOcxDir+ FlashOcx),
            PChar(DestOcxDir +FlashOcx), False);
      {Register the OCX File}
      winexec(PChar('regsvr32 /s '+ DestOcxDir +FlashOcx),SW_NORMAL); // the "/S" for silent registering
   end
 else
   ShowMessage('The Flash activex Pluginh is Corectely istalled');
end;

السلام عليكم ،،،

ستجد في هذا الرابط طريقة أخرى لتشغيل الفلاش في الأجهزة التي لا تحتوي على فلاش

/index.ph...1&st=&p=entry