1
Programmazione (Gambas 2) / Re: Multiprocesso shell
« il: 15 Febbraio 2010, 22:29:58 »
Grazie a tutti..... mi cucino una piadina poi mi metto subito a provare!!
19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
PUBLIC SUB transfer_Click()
DIM i AS Integer
DIM shellMsg, command AS String
DIM idClass AS NEW Object[]
IF $hwList.Count > 0 THEN
FOR i = 0 TO $hwList.Count - 1
command = "mkfs.ext2 " & $hwList[i] & " -I 128 -L \"UsbDrive\""
TRY idClass[i] = NEW CDuplica ' CDuplica è una classe che svolge principalmente la creazione di un processo
WITH idClass[i]
.sCommand = command
.sNode = $hwList[i]
END WITH
NEXT
ENDIF
END
DIM timer AS NEW timer
DIM processi AS NER process[]
DIM i AS integer
DIM cmd AD string
'$listaPeriferiche e' una var di tipo NEW String[] globale con l'elenco di tutte le periferiche
FOR i=0 TO $listaPeriferiche.Count
cmd = "dd if=/image.img of=/dev/" & $listaPeriferiche[i]
processi[i] = SHELL cmd FOR READ
NEXT
timer.start