Delphi XE5 firemonkey api call

Question

안드로이드 API TJAudioRecord를 직접 호출하여 firemonkey에 오디오를 녹음하려하지만 audioRecord.getState가 작동하지 않으면 STATE_UNINITIALIZED를 반환합니다.

이 기능

audioRecord := 

    TJAudioRecord.JavaClass.init(TJMediaRecorder_AudioSource.JavaClass.VOICE_COMMUNICATION, 
               16000, 
               TJAudioFormat.JavaClass.CHANNEL_IN_MONO, 
                TJAudioFormat.JavaClass.ENCODING_PCM_16BIT, 
                bufferSize); 

전체 코드

bufferSize := TJAudioRecord.JavaClass.getMinBufferSize(16000, 
                  TJAudioFormat.JavaClass.CHANNEL_IN_MONO, 
                  TJAudioFormat.JavaClass.ENCODING_PCM_16BIT); 

    if (bufferSize <> TJAudioRecord.JavaClass.ERROR_BAD_VALUE) then 
    begin 
     audioRecord := TJAudioRecord.JavaClass.init(TJMediaRecorder_AudioSource.JavaClass.VOICE_COMMUNICATION, 
               16000, 
               TJAudioFormat.JavaClass.CHANNEL_IN_MONO, 
                TJAudioFormat.JavaClass.ENCODING_PCM_16BIT, 
                bufferSize); 
     ShowMessage(IntToStr(buffersize)); 
     if (audioRecord.getState = TJAudioRecord.JavaClass.STATE_INITIALIZED)then begin 
     //then begin 
     audioRecord.startRecording; 
     ShowMessage('ok'); 
     end; 
    end; 
    except 
    ShowMessage('Error 0'); 
    end; 

Answer 1

나는 다음과 같은 코드를 사용하여 내 삼성 갤럭시 노트 III에서 작동에 약간의 오류가 있습니다.

Ses := TJAudioRecord.JavaClass.init(TJMediaRecorder_AudioSource.JavaClass.MIC, 11025, TJAudioFormat.JavaClass.CHANNEL_IN_MONO, TJAudioFormat.JavaClass.ENCODING_PCM_16BIT, 44100 * 2); 
    (Ses As JAudioRecord).startRecording; 
    Okunan := 0; 
    M := TMemoryStream.Create; 
    for I := 1 to 2 do 
    Begin 
    Tampon := TJavaArray<SmallInt>.Create(44100); 
    Okunan := Okunan + (Ses As JAudioRecord).read(Tampon, 0, 44100); 
    M.Write(Tampon.Data^, Tampon.Length * 2); 
    Tampon.Free; 
    End; 
    (Ses As JAudioRecord).stop; 
    Ses.release; 
    M.SaveToFile(TPath.GetRingtonesPath+'/ses.raw');