You are viewing an old version of this page. View the current version.

Compare with Current View Page History

Version 1 Next »

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