デバイスのローカル・ストレージまたはリモート・サーバーの音声ファイルを再生します。
プロパティ
File
再生するファイルの完全修飾名を示す文字列です。
Url
音声ファイルの URL を示す文字列値です。
メソッド
Play
録音を開始します。
- 入力引数: なし
- 出力引数: なし
- 戻り値: 状態コード
Stop
録音を停止します。
- 入力引数: なし
- 出力引数: なし
- 戻り値: なし
イベント
Started
再生が開始されると起動します。
パラメータ：
名前
タイプ
説明
Status
列挙値
状態コードを参照してください。
Completed
音声ファイルの再生が終了すると起動されます。パラメータ：
名前
タイプ
説明
Status
列挙値
状態コードを参照してください。
Message
文字列
Stopped
再生が終了すると起動されます。パラメータ：
名前
タイプ
説明
Status
列挙値
状態コードを参照してください。
サンプル・コード
Define_Com Class(#xDeviceAudioPlayback) Name(#AudioPlayback)
Evtroutine Handling(#COM_OWNER.Initialize)
#Play.Enabled := false
#Stop.Enabled := false
Endroutine
Evtroutine Handling(#AudioPlayback.Initialize)
#Play.Enabled := true
#Stop.Enabled := true
Endroutine
Evtroutine Handling(#Play.Click)
#AudioPlayback.File := 'MyVoice'
#AudioPlayback.Play()
Endroutine
Evtroutine Handling(#Stop.Click)
#AudioPlayback.Stop
Endroutine
Evtroutine Handling(#AudioPlayback.Started) Status(#lstatus)
If (#lstatus = 'OK')
#Status := 'Playback started'
Else
#Status := 'Error starting playback:' + #lstatus
Endif
Endroutine
Evtroutine Handling(#AudioPlayback.Stopped) Status(#lstatus)
If (#lstatus = OK)
#Status := 'Playback stopped'
Else
#Status := 'Error stopping playback:' + #lstatus
Endif
Endroutine
Evtroutine Handling(#AudioPlayback.Completed) Status(#lstatus)
If (#lstatus = OK)
#Status := 'Playback completed'
Else
#Status := 'Playback completed with error:' + #lstatus
Endif
Endroutine