モバイル・デバイスの音声の録音をコントロールします。音声ファイルは 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



  • No labels