[ |../../index.htm#lansa/vlwebeng02_0090.htm]
現在地:

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  
[ |../../index.htm#lansa/vlwebeng02_0090.htm]