不知道为什么不行?希望大虾指点下 谢谢
代码:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MPlayer, StdCtrls, ExtCtrls;type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
MediaPlayer1: TMediaPlayer;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure playvedio(filename:string);
end; TplayerThread = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
public end;var
Form1: TForm1;
fname1,fname2:string;implementation
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
TplayerThread.Create(false);
playvedio(fname1);
end;
{ TplayerThread }procedure TplayerThread.Execute;
begin
freeonterminate:= true;
if form1.MediaPlayer1.Mode= mpStopped then
form1.playvedio(fname2);
end;procedure TForm1.playvedio(filename: string);
begin
mediaplayer1.FileName:= filename;
mediaplayer1.Display:= panel1;
mediaplayer1.Open;
mediaplayer1.DisplayRect:= Rect(0,0,panel1.Width,panel1.Height);
mediaplayer1.Play;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
fname1:= 'F:\avi\SISINFO.avi';
fname2:= 'F:\avi\SISTVLCD.AVI';
end;end.
代码:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MPlayer, StdCtrls, ExtCtrls;type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
MediaPlayer1: TMediaPlayer;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure playvedio(filename:string);
end; TplayerThread = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
public end;var
Form1: TForm1;
fname1,fname2:string;implementation
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
TplayerThread.Create(false);
playvedio(fname1);
end;
{ TplayerThread }procedure TplayerThread.Execute;
begin
freeonterminate:= true;
if form1.MediaPlayer1.Mode= mpStopped then
form1.playvedio(fname2);
end;procedure TForm1.playvedio(filename: string);
begin
mediaplayer1.FileName:= filename;
mediaplayer1.Display:= panel1;
mediaplayer1.Open;
mediaplayer1.DisplayRect:= Rect(0,0,panel1.Width,panel1.Height);
mediaplayer1.Play;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
fname1:= 'F:\avi\SISINFO.avi';
fname2:= 'F:\avi\SISTVLCD.AVI';
end;end.
解决方案 »
- win 7 下的 D7 是不是很悲剧
- delphi 看到这样的一段代码请教一个问题!
- 关于corba的问题,不知道如何使用,请帮忙,500分
- 要实现这么个功能,大家帮我解决下。
- 如何将多表查询结果保存到另外一张表中
- 使RichEdit1的protected设为true后再设为False后为什么还是保护状态不能修改呀?急急急!!!!!!!!!!!!!
- 怎樣對讓安裝的.bpl(自已計的)顯示在Paletee上發﹐也就是與Standard組件頁并排﹗
- 如何查找所有安装的软件的名称和对应的可执行文件完整路径。
- 高分求教!!请各位大虾务必进来看看(在线等待)
- 如何判断MediaPlayer正在播放?
- 关于listbox的查询
- 散分,关于多个别名的邮箱
还是没作用?
如果报错的话麻烦给出错误提示