[
|../../index.htm#lansa/vlwebeng02_0095.htm]
現在地:
14.6.5 xDeviceAudioPlayback ウィジェット
デバイスのローカル・ストレージまたはリモート・サーバーの音声ファイルを再生します。
プロパティ
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
[
|../../index.htm#lansa/vlwebeng02_0095.htm]