摘要:
AVI视频用TMediaPlayer播放AVI视频,选择AVI文件,并调用Play方法(或者点击Play按钮),如果使用默认的MediaPlayer设置,将会出现一个单独的窗口播放AVI视频。如下图:也可以设置TMediaPlayer的Display属性为任何窗口组件(Windowed component),视频播放将会在这个组件的客户区(client area)中出现。例如,在窗体上有一个pnl1的面板,想在这个pnl1面板上显示AVI视频,这时,应该按下面的代码设置Display属性:?1mp1.Display := pnl1;当AVI播放时,它将显示在面板中。如果视频大于面板矩形,视频将 阅读全文
posted @ 2012-12-17 14:01
shuaixf
阅读(359)
评论(0)
推荐(0)
摘要:
CD音频(CD Audio) TMediaPlayer播放CD音频相当简单。要放CD,只需简单地改变DeviceType属性为dtCDAudio即可,并点击Play按钮(或调用Play方法)。 掌握CD音频设备程序设计最困难的是用于CD中不同的时间格式。用户将使用TMSF(time, minut... 阅读全文
posted @ 2012-12-17 14:00
shuaixf
阅读(275)
评论(0)
推荐(0)
摘要:
录制波形音频(Recording Wave Audio)录制波形音频不是像大家想象的直接,也许大家以为所要做的就是调用StartRecording方法。然而,因为TMediaPlayer的问题,它不是那么简单的。要录制波形文件,首先必须打开一个存在的波形文件,这个波形文件和所想要的新文件有相同的录制参数,然后开始录制新的波形文件,改变FileName属性为新文件名,然后保存文件,这有点笨拙,但其作用。例如,假设有一个叫做Test.wav文件,这个文件以8000Hz,采样率16位且为单声道的波形格式录制,这时可以像下面代码那样在按钮上点击录制波形音频:?12345678910111213proc 阅读全文
posted @ 2012-12-17 13:59
shuaixf
阅读(369)
评论(0)
推荐(0)
摘要:
设置输出音量(Setting the Output Volume)设置Wave文件输出设备的音量相当简单,但是必须利用Windows API进行。waveOutGetVolume和waveOutSetVolume函数分别用来获取音量和设置音量。音量以整型(integer)存储。高位字节(hight word)制定右声道音量设置,低位字节(low word)制定左声道音量设置。如果设备没有独立设置左、右声道音量的能力,则低位字节用于设置音量,高位字节被忽略。0值是无音量,16进制值$FFFF则是最大音量。下列代码为设置左右声道音量为50%,当然前提是要在uses列表中引用MMSystem单元。w 阅读全文
posted @ 2012-12-17 13:58
shuaixf
阅读(288)
评论(0)
推荐(0)
摘要:
Wave音频(Wave Audio)播放Wave音频是最基本的多媒体操作之一,它可能是最普通的,同步播放Wave文件代码如下:?1234567procedure TForm1.btn1Click(Sender: TObject);beginmpPlayer.Wait := True; { 同步播放}mpPlayer.FileName := 'test.wav';mpPlayer.Open;mpPlayer.Play;end;注意Wait属性设置为True,使得Wave文件同步播放。如果想紧接(back-to-back)着播放下一Wave文件,Wait属性也是很必要的。例如下面的 阅读全文
posted @ 2012-12-17 13:57
shuaixf
阅读(240)
评论(0)
推荐(0)
摘要:
VCL为简单多媒体操作提供MediaPlayer组件。该组件位于选项板组件System中。 该组件可播放Wave文件、MIDI文件、AVI视频等等。如果只是简单的播放Wave文件,常常使用上一讲中的PlaySound函数。也可以使用更复杂的MediaPlayer组件。 TMedi... 阅读全文
posted @ 2012-12-17 13:55
shuaixf
阅读(362)
评论(0)
推荐(0)
摘要:
windows media player 控件在我们编程时经常要用到,但是有很多属性及方法却不知道该怎么使用。现以 wmp 9.0控件为例说说其在 Delphi 7.0 中常用的属性与方法(JavaScript中用法几乎完全相同)。 假设此控件名为wmp 属... 阅读全文
posted @ 2012-12-17 13:52
shuaixf
阅读(491)
评论(0)
推荐(0)