14.6.4 xDeviceAudioRecord ウィジェット

モバイル・デバイスの音声の録音をコントロールします。音声ファイルは LMA の論理ファイル・システムに保存されます。音声の最調値はデバイスの保存スペースにより異なります。

プロパティ

File

録音するファイルの完全修飾名を示す文字列です。

CompressionLevel

1 から 5 の整数で、圧縮のレベルを示します。(1 は最も低い圧縮レベルで最高質となり、5 は最も高い圧縮で、質は一番低くなります。)省略値は 2 です。

Duration

最大録音時間を秒で示す整数です。0 が設定された場合は無制限です。

メソッド

Record

録音を開始します。

• 入力引数: なし

• 出力引数: なし

• 戻り値: 状態コード

Stop

録音を停止します。

• 入力引数: なし

• 出力引数: なし

• 戻り値: なし

イベント

Started

録音が開始すると起動されます。

• パラメータ：

名前 タイプ 説明 Status 列挙値 状態コードを参照してください。

Completed

音声録音が終了すると起動されます。

• パラメータ：

名前 タイプ 説明 Status 列挙値 状態コードを参照してください。 Message 文字列

RecordFinished

録音が録音制限時間に達した際に起動されます。

• パラメータ：なし

サンプル・コード

Define_Com Class(#xDeviceAudioRecord) Name(#AudioRecord)

Evtroutine Handling(#COM_OWNER.Initialize)
  #Record.Enabled := false
  #Stop.Enabled := false
Endroutine

Evtroutine Handling(#AudioRecord.Initialize)
  #Record.Enabled := true
  #Stop.Enabled := true
Endroutine

Evtroutine Handling(#Record.Click)
  #AudioRecord.File := 'MyVoice'
  #AudioRecord.SampleRate := 44100
  #AudioRecord.Channels := 2
  #AudioRecord.Record()
Endroutine

Evtroutine Handling(#AudioRecord.Started) Status(#lstatus)
  If (#lstatus = 'OK')
    #Status := 'Recording started'
  Else
    #Status := 'Error starting recording:' + #lstatus
  Endif
Endroutine

Evtroutine Handling(#AudioRecord.Completed) Status(#lstatus)
  Case (#lstatus)
  When ('= OK')
    #Status := 'Recording finished'
  Otherwise
    #Status := 'Error with recording:' + #lstatus
  Endcase
Endroutine

Evtroutine Handling(#Stop.Click)
  #AudioRecord.Stop
Endroutine