如何在启动画面播放AVI？

[grace_zou]

如何在启动画面播放AVI？在启动画面的AVI播放完毕后直接进入主程序？请高手指教
下面是在工程代码中的设置，可是没有达到上面说的效果，只是闪了一下就进入主程序了，
begin
Application.Initialize;
Application.Title := '测试';
form1:=tform1.Create(application);
form1.Show;
form1.Update ;
Application.CreateForm(TfrmMain, frmMain);
form1.Hide;
form1.Free;
Application.Run;

procedure TForm1.FormShow(Sender: TObject);
begin
self.MediaPlayer1.FileName:='llk.avi';
self.MediaPlayer1.Display:=self.Panel1;
self.MediaPlayer1.Open;

[yejinson]

在show那个窗体播放AVI不就可以了

[bdmh]

  Application.Initialize; 
  Application.Title := '测试';
  with TForm1.Create(nil) do
  begin
    try
      ShowModal;
    finally
      FreeAndNil(form1);
    end;
  end;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;


在form1的close事件中写Action := caFree;
在avi播放完后写，ModalResult:=mrOk;

[grace_zou]

[Quote=引用 2 楼 bdmh 的回复:]
Delphi(Pascal) code
Application.Initialize;
Application.Title := '测试';
with TForm1.Create(nil) do
begin
try
ShowModal;
finally
FreeAndNil(form1);
end;
end;
Application.CreateForm(TfrmMain, frmMain);
Application.Run;


在form1的close事件中写Action := caFree;
在avi播放完后写，ModalResult:=mrOk;？在什么事件里面写的？
[/Quote]运行时报错，
Undeclared identifier: 'FreeAndNil'

[grace_zou]

FORM1里面的代码，是不是这样写呢？
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MPlayer, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
MediaPlayer1: TMediaPlayer;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
self.MediaPlayer1.FileName:='llk.avi';
self.MediaPlayer1.Display:=self.Panel1;
self.MediaPlayer1.Open;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;

end;

end.

[grace_zou]

我在form1中点击MediaPlayer1上的播放键，提示“无法播放视频流：找不到相应的解压缩程序”。这是怎么回事呢，

[liuhuan992]

LZ，不会加个TIMER控件吗？设置一定的时间，
你的明白？

[lhy]

[Quote=引用 5 楼 grace_zou 的回复:]
我在form1中点击MediaPlayer1上的播放键，提示“无法播放视频流：找不到相应的解压缩程序”。这是怎么回事呢，
[/Quote]
找个没有压缩的avi。

[grace_zou]

[Quote=引用 7 楼 lhylhy 的回复:]
引用 5 楼 grace_zou 的回复:
我在form1中点击MediaPlayer1上的播放键，提示“无法播放视频流：找不到相应的解压缩程序”。这是怎么回事呢，

找个没有压缩的avi。
[/Quote]
在form1中点击MediaPlayer1上的播放键：无法使用视频， 找不到“vids:dvsd”解压缩程序
是这样的，
我只有压缩过的AVI，而且要放用到的就是这个，还有其他办法吗？

[lhy]

如果程序只打算在自己的机器上用，就下在解码器并安装。
如果要卖给客户，你的要求客户安装解码器，或者用文件格式转换器转换成不压缩的。
一般视频文件，比如说avi什么的都是个容器，具体的视频格式可能有很多种，h264，divx,xvid什么的，都需要专门的解码器。
当然最传统的avi是不压缩的，像windows自带的，delphi里带的那个都是不压缩的。

[grace_zou]

文件格式转换器转换成不压缩的.用哪款软件好呢？

[grace_zou]

我下载的几个都是要钱的，有没有免费版呢？

[grace_zou]

我添加了一个控件WindowsMediaPlayer，在DELPHI中用WindowsMediaPlayer播放AVI，代码要怎么写呀，像这样不对，请帮忙！非常感谢！
procedure TForm1.FormShow(Sender: TObject);
begin
self.WindowsMediaPlayer1.FileName:='llk.avi';
self.WindowsMediaPlayer1.Display:=self.Panel1;
self.WindowsMediaPlayer1.Open;
end;