请问有没有播放FALSE的控件?分不够可以加的!急! 请问有没有播放FALSE的控件? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 是flash吧~~在delphi中使用flash控件摘自《计算机世界日报》 (文/崔凯) FLASH是Macromedia公司出品的,用在互联网上动态的、可互动的shockwave。它的优点是体积小,可边下载边播放,这样就避免了用户长时间的等待。 ---- FLASH可以用其生成动画,还可在网页中加入声音。这样你就能生成多媒体的图形和界面,而使文件的体积却很小。 ---- FLASH虽然不可以象一门语言一样进行编程,但用其内置的语句并结合JAVASCRIPE,您也可作出互动性很强的主页来。 ---- FLASH另外一个特点就是必须安装插件PLUG-IN,才能被浏览器所接受!当然这也避免了浏览器之间的差异,使之一视同仁! ---- 但是你知道吗?在delphi中可以直接打开flash动画,并控制它播放和停止。你还可以得到它的总帧数,知道怎么实现的吗?请跟我来。 ---- 在delphi中的Component|Import ActiveX Contrals...中选中 "Shockwave Flash(Version 1.0)",并单击Install,会出现一个install窗口。 ---- 如果要把它添加到一个已经存在的包中,在"into existing package"对话框中的"File name:"窗口中选择你想安装的路径,并单击"OK";会弹出一个确认的对话框,它问你"Package dclusr50.bpl will be rebuilt. Continue?",单击"Yes";在弹出的窗口中单击击"install",该插件就安装完毕。 ---- 如果要把它添加到一个新建的包中,在"into new package"对话框中的 "File name:"窗口中选择你想安装的路径,并新建一个包,假如命名为test,并单击"OK";它问你"Package test.bpl will be built. Continue?",单击"Yes"。 在弹出的窗口中单击击"install",该插件就安装完毕。 ---- 这时,你会在控件条的ActiveX下发现一个新的控件,名字为ShokewaveFlash, 单击它把它放在form中,在该form中放一个OpenDialog控件和一个panel,在该panel上放四个button,他们的caption属性分别命名为"Openfile","Play","Stop","Close".设置panel1,ShockwaveFlash的Align 属性分别为Alleft 和AlClient; 分别在这四个Button的OnClick事件中写下如下代码: procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then ShockwaveFlash1.Movie:= OpenDialog1.FileName; end; procedure TForm1.Button2Click(Sender: TObject); begin ShockwaveFlash1.Play; end; procedure TForm1.Button3Click(Sender: TObject); begin ShockwaveFlash1.StopPlay; end; procedure TForm1.Button4Click(Sender: TObject); begin ShockwaveFlash1.FreeOnRelease; close; end;---- 你可以得到打开的flash图像的总帧数,在panel1上添加一个label,在form1的OnClick事件中写下如下代码 procedure TForm1.FormCreate(Sender: TObject); begin label1.caption:=shockwaveflash.totalframes; end;你还可以控制该打开的flash图像从那一帧开始播放, 在panel1上添加一个button和一个Edit控件,在该button的OnClick事件中添加如下代码。if ShockwaveFlash1.playing then ShockwaveFlash1.GotoFrame(SpinEdit1.Value); ShockwaveFlash1.Play;---- 在edit中填上你想跳到的帧,并单击该button,你即可实现该功能。 可不可以用热键控制?比如敲1播放第一个FLASH,敲打播放第二个FLASH? 先找一个 SWFlash.ocx 安装了 控制播放内容请用ShockwaveFlash1.Movie:= '文件路径以及文件名'够清楚了吧 有!!太有了,照我说的去做!1.打开delphi2.点菜单COMPONENT->IMPORT ACTIVEX CONTRL3.找到shockwave flash(1.0) shockwave activex contrl(version 1.0) 两个里面的一个吧,我忘了,你自己一个一个试4.点按钮“install”5.安装好后,到控件面板的activex中,你就可以看到了5.设置这个控件的moving属性为你的FLASH 文件路径就可 哦,已经好了,还有一个很白痴的问题:怎么去掉FORM的边框?我以前弄过,现在找不到了. 判断数据集状态 多国语言问题 皮肤安装问题!急! 请教各位showmessage的特殊问题,可否实现? 用COM调用服务器的数据库!请指教!!! 数据库的浮点数据的显示问题 如何实现是否自动启动? 高分求助:窗体滚动的时候,怎么才能让工具栏不跟着滚动 高分请教DLL的问题!!!如何在DLL中调用主程序窗体中的控件? 请问这里有人用DELPHI开发过IRC服务器的朋友吗?? 关于CORBA程序编译地问题,急!!!!!! 各位朋友,哪能下载Delphi7的补丁程序,多谢!
摘自《计算机世界日报》 (文/崔凯) FLASH是Macromedia公司出品的,用在互联网上动态的、可互动的shockwave。它的优点是体积小,可边下载边播放,这样就避免了用户长时间的等待。
---- FLASH可以用其生成动画,还可在网页中加入声音。这样你就能生成多媒体的图形和界面,而使文件的体积却很小。 ---- FLASH虽然不可以象一门语言一样进行编程,但用其内置的语句并结合JAVASCRIPE,您也可作出互动性很强的主页来。 ---- FLASH另外一个特点就是必须安装插件PLUG-IN,才能被浏览器所接受!当然这也避免了浏览器之间的差异,使之一视同仁! ---- 但是你知道吗?在delphi中可以直接打开flash动画,并控制它播放和停止。你还可以得到它的总帧数,知道怎么实现的吗?请跟我来。 ---- 在delphi中的Component|Import ActiveX Contrals...中选中 "Shockwave Flash(Version 1.0)",并单击Install,会出现一个install窗口。 ---- 如果要把它添加到一个已经存在的包中,在"into existing package"对话框中的"File name:"窗口中选择你想安装的路径,并单击"OK";会弹出一个确认的对话框,它问你"Package dclusr50.bpl will be rebuilt. Continue?",单击"Yes";在弹出的窗口中单击击"install",该插件就安装完毕。 ---- 如果要把它添加到一个新建的包中,在"into new package"对话框中的 "File name:"窗口中选择你想安装的路径,并新建一个包,假如命名为test,并单击"OK";它问你"Package test.bpl will be built. Continue?",单击"Yes"。 在弹出的窗口中单击击"install",该插件就安装完毕。 ---- 这时,你会在控件条的ActiveX下发现一个新的控件,名字为ShokewaveFlash, 单击它把它放在form中,在该form中放一个OpenDialog控件和一个panel,在该panel上放四个button,他们的caption属性分别命名为"Openfile","Play","Stop","Close".设置panel1,ShockwaveFlash的Align 属性分别为Alleft 和AlClient; 分别在这四个Button的OnClick事件中写下如下代码: procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
ShockwaveFlash1.Movie:=
OpenDialog1.FileName;
end; procedure TForm1.Button2Click(Sender: TObject);
begin
ShockwaveFlash1.Play;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ShockwaveFlash1.StopPlay;
end; procedure TForm1.Button4Click(Sender: TObject);
begin
ShockwaveFlash1.FreeOnRelease;
close;
end;
---- 你可以得到打开的flash图像的总帧数,在panel1上添加一个label,在form1的OnClick事件中写下如下代码 procedure TForm1.FormCreate(Sender: TObject);
begin
label1.caption:=shockwaveflash.totalframes;
end;你还可以控制该打开的flash图像从那一帧开始播放,
在panel1上添加一个button和一个Edit控件,在该button的OnClick事件中添加如下代码。
if ShockwaveFlash1.playing then
ShockwaveFlash1.GotoFrame(SpinEdit1.Value);
ShockwaveFlash1.Play;
---- 在edit中填上你想跳到的帧,并单击该button,你即可实现该功能。
1.打开delphi
2.点菜单COMPONENT->IMPORT ACTIVEX CONTRL
3.找到shockwave flash(1.0)
shockwave activex contrl(version 1.0)
两个里面的一个吧,我忘了,你自己一个一个试
4.点按钮“install”5.安装好后,到控件面板的activex中,你就可以看到了
5.设置这个控件的moving属性为你的FLASH 文件路径就可