关键字 flash+全屏+播放完毕+Activex 秋枫遇到难题 关于flash播放

[「已注销」]

1、Activex控件播放的时候不能自动适应窗口 而且留有残影 很不爽

2、我没法知道flash的这一电影播放完了 即我没法实现连续播放一批列表

问题我在CSDN找了找 发现没有解决好的

只好拿来让弟兄们帮忙看看了


@_@

[「已注销」]

to ：　max_wzg(暴走-银狼)　

建议您试试 自动适应刚开始的确可以 但你一修改窗口大小 就坏了菜了……


to 凡高

好地


to 老r

再加上180分 如何

[rh]

不好意思！最近忙得他奶奶的不得了，呵呵，而且，我觉得，我没有能解决你的问题也！
真的，你的要求我可以勉强实现，但是效果不好：—）绝对有更好的方法：）

我是这样做的：
1 关于知道播放完毕：
void __fastcall TMainForm::TimerTimer(TObject *Sender)
{
ProgressText->Caption = "当前播放进度：" + IntToStr(FlashPlayer->FrameNum + 1) + " / "
+ IntToStr(FlashPlayer->TotalFrames);
if(FlashPlayer->FrameNum + 1==FlashPlayer->TotalFrames);//播放完毕是也
}

2 关于调整大小，有明显的闪烁感：
//---------------------------------------------------------------------------
void __fastcall TMainForm::PlayPanelResize(TObject *Sender)//PlayPanel是其parent
{
FlashPlayer->Left = PlayPanel->Left + 1;
FlashPlayer->Top = PlayPanel->Top + 1;
FlashPlayer->Width = PlayPanel->Width - 2;
FlashPlayer->Height = PlayPanel->Height -2;
FlashPlayer->Hide();
FlashPlayer->Show();
FlashPlayer->SetFocus();//这句一定要，没有办法，我只找到这笨蛋办法：（~~~~~~~
}
//---------------------------------------------------------------------------

[rh]

我今天晚上写的小测试代码：
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ShockwaveFlashObjects_OCX"
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
: TForm(Owner)
{
//FlashPlayer->AlignMode = 0;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::PlaySBtnClick(TObject *Sender)
{
if(FlashPlayer->IsPlaying())return;

FlashPlayer->Play();
Timer->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::StopSBtnClick(TObject *Sender)
{
if(FlashPlayer->IsPlaying()){
FlashPlayer->Stop();
Timer->Enabled = false;
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ForwardSBtnClick(TObject *Sender)
{
FlashPlayer->Forward();
Timer->Enabled = true;
FlashPlayer->Play();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::BackSBtnClick(TObject *Sender)
{
FlashPlayer->Back();
Timer->Enabled = true;
FlashPlayer->Play();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::RewindSBtnClick(TObject *Sender)
{
FlashPlayer->Rewind();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OpenSBtnClick(TObject *Sender)
{
if(OpenDialog->Execute()){
FlashPlayer->Stop();
FlashPlayer->Movie = WideString(OpenDialog->FileName);
Timer->Enabled = true;
FlashPlayer->Play();
//FlashPlayer->LoadMovie(1,WideString(OpenDialog->FileName));
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::SpeedButton1Click(TObject *Sender)
{
AnsiString Frame;
if(InputQuery(Application->Title, "请输入你想跳转的祯数",Frame)){
FlashPlayer->GotoFrame(StrToInt(Frame));
Timer->Enabled = true;
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::PlayPanelResize(TObject *Sender)
{
FlashPlayer->Left = PlayPanel->Left + 1;
FlashPlayer->Top = PlayPanel->Top + 1;
FlashPlayer->Width = PlayPanel->Width - 2;
FlashPlayer->Height = PlayPanel->Height -2;
FlashPlayer->Hide();
FlashPlayer->Show();
FlashPlayer->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::TimerTimer(TObject *Sender)
{
ProgressText->Caption = "当前播放进度：" + IntToStr(FlashPlayer->FrameNum + 1) + " / "
+ IntToStr(FlashPlayer->TotalFrames);
if(FlashPlayer->FrameNum + 1==FlashPlayer->TotalFrames);

}
//---------------------------------------------------------------------------



时间有限，bug多多，你自己看着修改吧：）嘿嘿~~~~

[rh]

奶奶的，“祯(zhen)”是错的，应该是：“帧(zheng)”字。xixi~~没有办法，普通话差也。

[Spring414]

第一个问题可以这样：

ShockwaveFlash的Align=alClient;

添加一个TEdit或其他可得到焦点的控件。

在Form或是他的父亲的Resize事件里
Edit1->SetFocus();
ShockwaveFlash1->SetFocus();

[rh]

很好！解决了！切~我为什么就没有想到试一下呢：）
但是，虽然没有闪烁，当尺寸改变时，刷新还是有些延迟
也就是说，在拉窗体的边沿连续改变大小时，画面可能会花
不过比我的傻瓜方法好太多了：）

注：我的机器：cii566 + 320M + win2000 + flash5

[「已注销」]

先提前一下

我当然已经解决了

让朋友们提提意见

rh说的很精彩

@_@

[duduwolf]

叶老大怎么解决的？贴出来哦！！

[rh]

精彩？随手写出的破烂代码，bug多多……
精彩个P才是真。老叶你也太给面子了：）

[「已注销」]

我解决的办法太…………

我是用浏览器解决的

脸红了……

@_@

[rh]

faint……你高：）

[yushaofeng]

很热闹，帮叶老大ＵＰ一把

[「已注销」]

结账

[wangledong]

啊！来晚了！

[「已注销」]

晕…………

我正好结账不成功

乐乐

有你的份 不过等明天我再试吧

到时候我再多加点

[Sephil]

这个东东就是不爽嘛！

[蚊子王]

Mark

[knf]

已阅

[rh]

嘿嘿嘿嘿
叶老大，你那玩意我用不了啊！！

[yiwei]

浏览器也很好阿