Delphi多媒体问题,请各位做过多媒体的大虾帮忙,愿意出100分.(100分)

  • 主题发起人 主题发起人 LimitVideo
  • 开始时间 开始时间
L

LimitVideo

Unregistered / Unconfirmed
GUEST, unregistred user!
视频窗口随界面放大和缩小,我写的一个播放视频的程序,只能在Panel面板的一部分显示,不能填充整个Panel,也不能随着窗口变化,
在线等待!!! 满意就散分 谢谢。。
 
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
MediaPlayer1: TMediaPlayer;
OpenDialog1: TOpenDialog;
Button2: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;


var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

with MediaPlayer1do

begin

if OpenDialog1.Execute then

begin

FileName:=OpenDialog1.FileName;
Open;
Play;
end;

end;

end;


procedure TForm1.Button2Click(Sender: TObject);
begin

MediaPlayer1.Pause;
end;

end.
 
怎么都没有回答问题的呢,是不是说的不够详细啊,大富翁怎么了.......
在线等待中.........满意就散分!!!
 
directshow也可以轻松搞定
 
设置MediaPlayer1的DisplayRect属性,然后再在PANEL中的ONResize事件中重新写DisplayRect就可以了,老兄,现在一般播放视屏都很少用这个控件了
 
MediaPlayer1.Display:= Panel1;
 
TO zbr:
MediaPlayer1.Display:= Panel1;
我在属性设置里已经设置
还是谢谢你
 
那给推荐个好的控件 ,最好有例子说明 谢谢
 
To xmcccc:
能不能把代码写详细一点啊 拜托
To cuit421:
能不能给我发directshow还有示例 谢谢!
 
能否提供该控件,再给个示例 100分就是你的了 谢谢
 
晕,dspack就是播放视频的控件,里面也有例子啦
下载地址
http://www.progdigy.com/modules.php?name=DSPack
 
我下载了 安装不上 系统提示说系统中的某个Dll文件找不到,我用的是 Windows 2000
 
哦,最新的Dspack是需要安装 Directx 9.0
 
好象以前关于flash的也有这个问题,可能一样,你可以找下,忘记在哪了
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部