Location:
Search - mmsystem delphi
Search list
Description: 用Delphi的人对TMediaPlayer组件比较熟悉，它是一个相当出色的多用途的多媒体组件，但是美中不足的是：如果CDROM光驱的仓门打开就不能自动关闭。而且不幸的是，TMediaPlayer的方法和属性中没有解决这个问题的办法，所以我们不得不求助于Windows API，具体一些就是使用MMSystem.pas文件，另外一件需要注意的事是：我们可以单独调用Windows API函数，但是TMediaPlayer做了一些内部处理，所以我们就不必担心我们是否使用了组件。所以本例中使用了TMediaPlayer。-with Delphi TMediaPlayer the right components are more familiar with, It is a fairly remarkable versatility of the multimedia components, but the fly in the ointment is : If CDROM drive on the open Cangmen not shut down automatically. But unfortunately, TMediaPlayer methods and properties not solved the problem, Therefore, we have to seek help from the Windows API, is the use of specific MMSystem.pas documents, the other one thing to consider is : We can separate calling Windows API function, But TMediaPlayer done some internal processing, Therefore, we would not have to worry about whether we use the component. Therefore, the cases used TMediaPlayer.
Platform: |
Size: 3654 |
Author: 贾磊 |
Hits:
Description: WaveForm接口-WaveForm Interface
Platform: |
Size: 27648 |
Author: 邓小平 |
Hits:
Description: windows下多媒体定时器编程,时间分辨率可以达到1ms,开发平台delphi-windows multimedia timer programming, time resolution can be achieved 1ms, development platforms delphi
Platform: |
Size: 3072 |
Author: 海明 |
Hits:
Description: unit Video
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, stdctrls,
ExtCtrls, avicap, mmsystem, dsgnintf
// Types for event-procedures
type
TCapStatusProc = procedure(Sender: TObject) of object
TCapStatusCallback = procedure(Sender: TObject nID: integer status: string)
of object
TVideoStream = procedure(sender: TObject lpVhdr: PVIDEOHDR) of object
TAudioStream = procedure(sender: TObject lpWHdr: PWAVEHDR) of object
// Property Editor for driver selection
type
TDrivereditor = class(TPropertyEditor)
function GetAttributes: TPropertyAttributes override
procedure GetValues(Proc: TGetStrProc) override
function GetValue: string override
procedure SetValue(const Value: string) override
end -unit Video interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, stdctrls, ExtCtrls, avicap, mmsystem, dsgnintf// Types for event-procedurestype TCapStatusProc = procedure (Sender: TObject) of object TCapStatusCallback = procedure (Sender: TObject nID: integer status: string) of object TVideoStream = procedure (sender: TObject lpVhdr: PVIDEOHDR) of object TAudioStream = procedure (sender: TObject lpWHdr: PWAVEHDR) of object// Property Editor for driver selectiontype TDrivereditor = class (TPropertyEditor) function GetAttributes: TPropertyAttributes override procedure GetValues (Proc: TGetStrProc) override function GetValue: string override procedure SetValue (const Value: string) override end
Platform: |
Size: 54272 |
Author: 123456 |
Hits:
Description: 使用MMSystem实现高精度定时器Delphi范例。-High Resolution Timer Example By Delphi
Platform: |
Size: 86016 |
Author: 阿U |
Hits: