Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

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

...