Versions Compared

Old Version 4

changes.mady.by.user user-2c621

Saved on

compared with

New Version Current

changes.mady.by.user user-2c621

Saved on

Key

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

...

  • Parameters: None

Code Examples

    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

...

  
      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

...

  
      Otherwise    
        #Status := 'Error with recording: ' + #lstatus  
      Endcase
    Endroutine

    Evtroutine Handling(#Stop.Click)

...

  
      #AudioRecord.Stop
    Endroutine