[ |../../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]