[risolto ]rilevare il masterizzatore con un dvd vuoto dentro

[skrokkio]

ciao dovrei creare una routine che permetta di rilevare quando e' inserito un dvd vergine.
qualcuno sa aiutarmi ?
ciao

[fsurfing]

purtroppo non so aiutarti, credo però che non ci sia una funzione simile già pronta in gambas, forse ti conviene cercare un comando da terminale che svolga questa incompenza e poi lo lanci/controlli tramite gambas

[skrokkio]

purtroppo non riesco a trovare nulla. in rete ho trovato script per terminale che "aspettano" l'inserimento di un cd. Purtroppo non dunziona coi DVD vuoti.
Spero di trovare qualche aiuto qui.
ciao e grazie

[skrokkio]

PUBLIC SUB mytimer_timer()
SHELL "hal-device | grep volume_empty_dvd_plus_r_dl" TO riga2
IF InStr(riga2, "/org/freedesktop/Hal/devices/volume_empty_dvd_plus_r_dl") AND IF InStr(riga2, "/org/freedesktop/Hal/devices/volume_empty_dvd_plus_r_dl") THEN
 'IF InStr(riga2, "/org/freedesktop/Hal/devices/volume_empty_dvd_plus_r_dl") AND IF InStr(riga2, "/org/freedesktop/Hal/devices/volume.disc.is_blank") THEN
PRINT "dvd dl inserito"
ELSE  
PRINT "nessun dvd inserito"
ENDIF
END

[fsurfing]

ho provato ma a me non funziona,

ho provato a modificarlo e così mi funziona:

Codice: [Seleziona]

PUBLIC SUB mytimer_timer()
 SHELL "hal-device | grep volume_empty_dvd" TO riga2 
      
      
      IF Len(riga2) <> 0 THEN
      PRINT "dvd dl inserito"
      ELSE
      PRINT "nessun dvd inserito"
      ENDIF
  END
 

[fsurfing]

az ho capito ora che dl sta per dual layer rw per rewitable e per recordable

quindi si potrebbe modificare cosi:

Codice: [Seleziona]

PUBLIC SUB Timer1_timer()

DIM RIGA2 AS String
      
      SHELL "hal-device | grep volume_empty_dvd" TO riga2 
      
      
      IF Len(riga2) <> 0 THEN
          IF InStr(riga2, "dvd_dl") <> 0 THEN 
                PRINT "dvd dual layer vuoto inserito"
          ELSE IF InStr(riga2, "dvd_rw") <> 0 THEN 
                PRINT "dvd rewritable vuoto inserito"
          ELSE IF InStr(riga2, "dvd_r") <> 0 THEN 
                PRINT "dvd recordable vuoto inserito"
          ENDIF 
      ELSE
          PRINT "nessun dvd vuoto inserito"
      ENDIF
      
      
END
 

[Ceskho]

SELECT CASE non ti piace?

[fsurfing]

no non mi piace affatto  :-)
a te non piace if else if?
il giorno che mi vedrai usare select case sarà perchè ho copiato un tuo software! :-P

[vuott]

E' agevolmente verificabile mediante alcune risorse della libreria "libdvdread4":

http://www.gambas-it.org/wiki/index.php?title=Conoscere_il_numero_di_titoli_e_di_capitoli_presenti_in_un_DVD_con_l%27API_di_libdvdread4