欢迎进来!不会有错 就是一个Flash 的控件了,即使没有安装Flash,只要是Win98+IE5,默认就会有的。只不过名字是ShockWave Flash控件罢了。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以显示flash动画,真的很不错 它可以在delphi用:方法:如下刚刚研究出来:(哈哈)1.首先你必须找到以下文件 C:\Windows\System\Macromed\Flash\SWFLASH.OCX或者 C:\Windows\System32\Macromed\Flash\SWFLASH.OCX2.然后再delphi中安装:Component --> Import ActiveX Control3.这是最大的问题就是:如何使这个ocx组件,在别的程序中使用时还可以用。解决的方法可以这样:你可以在你的exe包含这个ocx的resource file。选取出需要的文件register 它有这样的例子:1.create a txt and write:Flash RCDATA "SWFLASH.OCX" 将它另存为以rc为后缀的文件,这里我存为:FlashOCX.rc注意的*.rc文件必须在和swflash.ocx在同一路径下。open 你的 Dos Windows and write Br32 Dir of File\FlashOcx.rc就是:brcc32 c:\Windows\system\FalseOcx.rc这样它就可以生成一个res文件:flashocx.res这时你就可以在程序中包含使用它了。{$R *.RES}{$R FLASHOCX.RES}代码:program Project1;uses Forms,comobj, Unit1 in 'Unit1.pas' {Form1};{$R *.RES}{$R FLASHOCX.RES}begin Application.Initialize; try Application.CreateForm(TForm1, Form1); except On EOleSysError Do begin Application.MessageBox('不能打开flash对象,你注册SWFLASH.OCX?','Open Error',0) //Register OCX File because not found. end; end; Application.Run;end.unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, ShockwaveFlashObjects_TLB;type TForm1 = class(TForm) ShockwaveFlash1: TShockwaveFlash; procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormActivate(Sender: TObject);begin ShockwaveFlash1.Movie:='e:\downloads\flashmovies\12.swf';(换成你的文件) ShockwaveFlash1.Zoom(200); ShockwaveFlash1.Play;end;end.试一试吧,很好玩的! murphy(豆豆) 你也不推荐几个?妈的 kao!网上的OCX好用得多的是!我这有的随便拿出一两个,就够眩死你! Delphi与CAD 大家发邮件用的html组件是什么? fastreport安装问题,请高手指教. DbGrid问题,求助! 大家帮忙 一个TXT文件为一列15位的身份证号码,现在需要抽奖,选出一个号码。请问使用随机数怎么使用? 请问怎样连接MySql数据库??? 今天圣诞节,给大家庆祝一下 当汇编遇上类... 大仙,怎样把含有Timage类型数据的表中的数据导到word中,我用ole,tring类型的数据能写入,TImage类型的是乱码,怎么办?急切求教!! 拖动控件后的操作 请教各位如何在Delphi中实现栏截以太网卡的数据,并分析数据包的类型?
方法:如下刚刚研究出来:(哈哈)
1.首先你必须找到以下文件 C:\Windows\System\Macromed\Flash\SWFLASH.OCX
或者 C:\Windows\System32\Macromed\Flash\SWFLASH.OCX2.然后再delphi中安装:Component --> Import ActiveX Control
3.这是最大的问题就是:如何使这个ocx组件,在别的程序中使用时还可以用。
解决的方法可以这样:
你可以在你的exe包含这个ocx的resource file。选取出需要的文件register 它
有这样的例子:
1.create a txt and write:
Flash RCDATA "SWFLASH.OCX" 将它另存为以rc为后缀的文件,这里我存为:FlashOCX.rc
注意的*.rc文件必须在和swflash.ocx在同一路径下。
open 你的 Dos Windows and write Br32 Dir of File\FlashOcx.rc
就是:brcc32 c:\Windows\system\FalseOcx.rc
这样它就可以生成一个res文件:flashocx.res
这时你就可以在程序中包含使用它了。
{$R *.RES}
{$R FLASHOCX.RES}代码:program Project1;uses
Forms,comobj,
Unit1 in 'Unit1.pas' {Form1};{$R *.RES}
{$R FLASHOCX.RES}begin
Application.Initialize;
try
Application.CreateForm(TForm1, Form1);
except
On EOleSysError Do
begin
Application.MessageBox('不能打开flash对象,你注册SWFLASH.OCX?','Open Error',0)
//Register OCX File because not found.
end;
end;
Application.Run;
end.unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtrls, ShockwaveFlashObjects_TLB;type
TForm1 = class(TForm)
ShockwaveFlash1: TShockwaveFlash;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormActivate(Sender: TObject);
begin
ShockwaveFlash1.Movie:='e:\downloads\flashmovies\12.swf';(换成你的文件)
ShockwaveFlash1.Zoom(200);
ShockwaveFlash1.Play;
end;end.试一试吧,很好玩的!
你也不推荐几个?妈的