Page History

デバイスのローカル・ストレージまたはリモート・サーバーの音声ファイルを再生します。

プロパティ

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