Rilevare I/O audio

[sigmund]

Ciao a tutti ho il seguente problemino:
Esiste un metodo che permetta a Gambas di rilevare se la scheda audio stà riproducendo qualcosa ?
Stesso problema per l'input microfonico.
A me basterebbe rilevare la presenza del segnale, in parte ho risolto usando un programma esterno (record) ma non mi sembra il metodo migliore (poco gambasiano).

[madnessmike]

Per vedere se la scheda audio è occupata o no per riprodurre un suono ho fatto così, sfruttando la proprietà del catch, che viene attivato in caso di errore di un comando:

Codice: [Seleziona]

PUBLIC SUB Suona()
  DIM SoundToPlay AS Sound
  SoundToPlay= NEW Sound("nomefile")
  SoundToPlay.Play()
  CATCH
    PRINT "Device occupato"
END

[md9327]

Puoi anche evitare di mandare in CATCH il codice:

Codice: [Seleziona]

PUBLIC SUB Suona()
  DIM SoundToPlay AS Sound
  SoundToPlay= NEW Sound("nomefile")
  TRY SoundToPlay.Play()
  IF ( ERROR ) THEN
    PRINT "Device occupato"
  END IF
END

[vuott]

.... ma non mi sembra il metodo migliore (poco gambasiano).

Un modo ancor meno gambasiano, ma molto sbrigativo ed efficace  , è di lanciare da terminale la seguente linea di comando:

 ~ $ cat < /proc/asound/card0/pcm0p/sub0/status

(il numero identificativo presente nel nome pcm0p del dispositivo audio della scheda può essere anche diverso: pcm1p, pcm2p, etc)

Se il risultato è "closed", significa che la scheda audio (in questo caso la prima, qualora ve ne siano due o più disponibili, identificata con il numero zero) non sta processando alcun segnale audio.


 

[vuott]

...ma, ovviamente, è possibile anche una soluzione tutta gambasiana:

http://www.gambas-it.org/wiki/index.php?title=Rilevare_se_la_scheda_audio_sta_processando_dati_audio