请问各位高手,在delphi的form中的某一部分如何动态调用flash文件??急,急!急! 请问各位高手,在delphi的form中的上半部分和下半部分如何动态调用不同的flash文件??急,急!急! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 把ACTIVEX控件SHOCKWAVEFLASH加载进来就可以实现的呀! (*//声明: 本人保证所提供的方法是所知的最好方法 解答问题纯属公益性质 所以请不要向我追问 如果有时间自会关注后续问题分析:Flash是网页的一部分,直接用网页显示问题:如何用Delphi显示Flash?设计:Zswang日期:2002-09-30方案:使用TWebBrowser VCL控件附言:由于本人对HTML太多没有研究,只能提供如下例子//*)///////Begin Demoprocedure TForm1.FormShow(Sender: TObject);const cFileName = 'c:\temp\temp.htm';begin with TStringList.Create do try Text :='<OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=500 height=400>'#13#10 +' <PARAM NAME=movie VALUE="http://www.51uc.com/skybbs/gogo.swf">'#13#10 +' <PARAM NAME=quality VALUE=high>'#13#10 +'</OBJECT>'#13#10; SaveToFile(cFileName); finally Free; end; Application.ProcessMessages; WebBrowser1.Navigate(cFileName);end;///////End Demo 哪里有播放flash的控件?因为一个form的不同区域播放不同的flash.怎么实现???? flash的控件,网上搜索一下吧,一大把. 要不安装一个flash里面有一个.ocx也可以 在Delphi中,打开Compnonent-->import Activex control,在列表中选择Shockwave flash control, 点一下install就可以了,在你的Actives页中就会出现主个控件了 调试中不能查看变量内容,是什么原因? Form 数据库恢复问题 请教一个api调用问题? 为什么我不能在窗体上新建ado的控件,在线等待!!!! 关于treeview的问题 一个系统监测的小软件,高手能指点一下么? 关于安装程序的问题,来者有分 我DELPHI的File,View,Project,Run三个菜单下的快捷键,怎么没有了?怎么办? 关于串口通信的! 这样的文本文件如何读入数据库? 如何重新编译Delphi本身的源码(Debug版和Release版)?例如Math.pas
声明:
本人保证所提供的方法是所知的最好方法
解答问题纯属公益性质
所以请不要向我追问
如果有时间自会关注后续问题
分析:Flash是网页的一部分,直接用网页显示
问题:如何用Delphi显示Flash?
设计:Zswang
日期:2002-09-30
方案:使用TWebBrowser VCL控件
附言:由于本人对HTML太多没有研究,只能提供如下例子
//*)///////Begin Demo
procedure TForm1.FormShow(Sender: TObject);
const
cFileName = 'c:\temp\temp.htm';
begin
with TStringList.Create do try
Text :=
'<OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=500 height=400>'#13#10 +
' <PARAM NAME=movie VALUE="http://www.51uc.com/skybbs/gogo.swf">'#13#10 +
' <PARAM NAME=quality VALUE=high>'#13#10 +
'</OBJECT>'#13#10;
SaveToFile(cFileName);
finally
Free;
end;
Application.ProcessMessages;
WebBrowser1.Navigate(cFileName);
end;
///////End Demo