Page History

[ Image Removed |../../index.htm#lansa/vlwebeng02_0095.htm]
現在地:

...

デバイスのローカル・ストレージまたはリモート・サーバーの音声ファイルを再生します。
プロパティ
File
再生するファイルの完全修飾名を示す文字列です。
Url
音声ファイルの URL を示す文字列値です。
メソッド
Play
録音を開始します。

...

イベント
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

   
  [ Image Removed |../../index.htm#lansa/vlwebeng02_0095.htm]