فرمت demo

[mostafa612003]

سلام
من می خواهم یک demo‌ روی سی دی که با دلفی کار کرده ام ،بگذارم
به نظرتان اگر این demo را در فلش بسازم ،دلفی قابلیت نمایش آن را دارد یا اینکه باید به یک فرمت دیگر تبدیل کنم؟

متشکرم

[phantasm]

سلام
بله دلفی قابلیت کار با flash رو داره میتونی از قسمت import activex کامپوننت ShockwaveFlash رو اینستال کنی

[mostafa612003]

سلام
خیلی متشکرم
اما فایلهای فلش من نمایش داده نمی شود. :(
حالا اگر از این activeX استفاده کنم هنگام اجرای برنامه در دستگاه دیگر مشکلی پیش نمی آید ؟
یا اینکه باید این کامپوننت را حتما نصب کنم؟

خیلی ممنون

[phantasm]

سلام

بله فکر کنم باید activex اونو روی کامپیوتر اجرا کننده نصب کنی .مثلا اینجوری...


procedure TForm1.FormCreate(Sender: TObject);
var
SystemDir : array[0..MAX_PATH] of Char;
SWFDir, AppDir: String;
Fres: TResourceStream;
Ffile: TFileStream;
begin
GetSystemDirectory(@SystemDir,MAX_PATH);
SWFDir := SystemDir+'\macromed\flash\';
GetDir(0,AppDir);
if fileexists(SWFDir+'swflash.ocx')=false then
begin
{$i-}
MkDir(SystemDir+'\macromed');
MKDir(SystemDir+'\macromed\flash');
{$i+}
Fres := TResourceStream.Create(0,'SHOCKWAVEOCX',RT_RCDATA) ;
Ffile := TFileStream.Create(SWFDir+'swflash.ocx',fmCreate);
try
Ffile.CopyFrom(Fres,Fres.Size);
finally
Fres.Free;
Ffile.Free;
end;
Winexec(PChar('regsvr32 /s'+SWFDir+'swflash.ocx'),SW_HIDE);
end;
Fres := TResourceStream.Create(0,'SHOCKWAVEFILE',RT_RCDATA );
Ffile := TFileStream.Create('banneranuncio.swf',fmCreate);
Try
Ffile.CopyFrom(Fres,Fres.Size);
Fres.Free;
Finally
Ffile.Free;
end;
ShockwaveFlash1.Movie := AppDir+'\banneranuncio.swf';
end;
اینم تو قسمت implementation اضافه کن

{$R flash.res}

[mostafa612003]

خیلی متشکرم
ولی اصلا فایلهای فلش من نمایش داده نمی شود
من در قسمت base مسیر و نام فایل فلش را می نویسم ولی باز هم موقع اجرا هیچی نمایش داده نمی شود.
:(

[phantasm]

دوست عزیز یکم سعی کن حتما موفق میشی . فکر نکنم چیزه پیچیده ای باشه .
مسیر فایل swf رو باید توی ShockwaveFlash1.Movie قرار بدی.اینجوری:


ShockwaveFlash1.Movie:='http://www.barnamenevis.net/images/sitco.swf';
ShockwaveFlash1.Play;

[mostafa612003]

سلام
خیلی متشکرم
من از روی خود فرم مقادیر را ست می کردم
اینطوری که شما گفتید مشکلم حل شد
باز هم متشکرم