Z
zhjie
Unregistered / Unconfirmed
GUEST, unregistred user!
怎样播放.RM类型的文件中的一小段视频？
设置一个始点和一个终点，让程序仅仅播放选定的这一小段。谢谢！！
设置一个始点和一个终点，让程序仅仅播放选定的这一小段。谢谢！！
Z
zhjie
Unregistered / Unconfirmed
GUEST, unregistred user!
很难吗？
M
michael.ma
Unregistered / Unconfirmed
GUEST, unregistred user!
把realplay的active控件引进delphi中，就可以操作了
B
bill_max
Unregistered / Unconfirmed
GUEST, unregistred user!
没看过相关技术资料，你可以自己去找找看啊[
]
]
Z
zhjie
Unregistered / Unconfirmed
GUEST, unregistred user!
已经把realplay的active控件引进delphi中了，也可以正常播放RM。
但找不到设定起点和终点的属性（函数方法），请大虾明示。谢谢！！！
但找不到设定起点和终点的属性（函数方法），请大虾明示。谢谢！！！
阿
阿蛮
Unregistered / Unconfirmed
GUEST, unregistred user!
关注
我用realplay的active只能播放音频
我用realplay的active只能播放音频
Z
zhjie
Unregistered / Unconfirmed
GUEST, unregistred user!
需要设定图象显示的位置对象才行。有以前的帖子，检索。
Z
zhjie
Unregistered / Unconfirmed
GUEST, unregistred user!
怎样播放.RM类型的文件中的一小段视频？
Z
zhjie
Unregistered / Unconfirmed
GUEST, unregistred user!
继续。。。。
Z
zhjie
Unregistered / Unconfirmed
GUEST, unregistred user!
没有人了？
Z
zhjie
Unregistered / Unconfirmed
GUEST, unregistred user!
听说最近搞全国数学建模比赛，可能都去比赛了，有点冷清。
W
wind2000
Unregistered / Unconfirmed
GUEST, unregistred user!
不好意思，昨晚太迟了，没时间试，今天装了RealAudio的active控件试了一下，
发现只能出声音，哪位告诉我如何出图像？下面代码可以实现播放一小段声音(视频？)：
with RealAudiodo
begin
....
do
Play;
SetPosition(10000);
//设置起点
...
end;
procedure TForm1.RealAudioPositionChange(ASender: TObject;
lPos,
lLen: Integer);
begin
if lPos = 15000 then
RealAudio.DoStop;
//设置终点
end;
发现只能出声音，哪位告诉我如何出图像？下面代码可以实现播放一小段声音(视频？)：
with RealAudiodo
begin
....
do
Play;
SetPosition(10000);
//设置起点
...
end;
procedure TForm1.RealAudioPositionChange(ASender: TObject;
lPos,
lLen: Integer);
begin
if lPos = 15000 then
RealAudio.DoStop;
//设置终点
end;
W
wind2000
Unregistered / Unconfirmed
GUEST, unregistred user!
搜索了一下，找到了显示图像的答案:
with RealAudiodo
begin
....
RealAudio('IMAGEWINDOW,CONTROLPANEL,STATUSBAR');
//显示图像框，控制面板，状态栏
SetSource('F:/PP/firstrun.rm');
do
Play;
SetPosition(10000);
//设置起点
...
end;
with RealAudiodo
begin
....
RealAudio('IMAGEWINDOW,CONTROLPANEL,STATUSBAR');
//显示图像框，控制面板，状态栏
SetSource('F:/PP/firstrun.rm');
do
Play;
SetPosition(10000);
//设置起点
...
end;
W
wind2000
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.RealAudioPositionChange(ASender: TObject;
lPos,
lLen: Integer);
begin
if lPos >= 15000 then
RealAudio.DoStop;
//设置终点(改成>=比较合适)
end;
lPos,
lLen: Integer);
begin
if lPos >= 15000 then
RealAudio.DoStop;
//设置终点(改成>=比较合适)
end;
Z
zhjie
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.