21/12/09 13:07
Ciao a tutti ho un nuovo problema. Nel mio programma devo usare dei file
audio (sono 12).
Questi file sono inseriti nella cartella "chord" che è nella stessa
cartella del file exe. Io scrivo questo:
for i:=1 to 12 do
(FindComponent('mp'+IntToStr(i)) as TMediaPlayer).FileName:=
'\chord\'+IntToStr(i)+'.mp3';
dove mp(piùnumero) è il nome del componente MediaPlayer (ho creato 12
componenti mediaplayer con nome mp1, mp2,...,mp12 e a ognuno devo
assegnare i file corrispondenti al nome). Mi viene fuori l'errore:
Impossibile trovare il file specificato ecc... Se invece io ci metto prima
la funzione Open, cioè:
L'errore mi dice : Non è possibile determinare il tipo di periferica
dall'estensione del file .'.
Sapreste aiutarmi per caso?
Grazie mille in anticipo
audio (sono 12).
Questi file sono inseriti nella cartella "chord" che è nella stessa
cartella del file exe. Io scrivo questo:
for i:=1 to 12 do
(FindComponent('mp'+IntToStr(i)) as TMediaPlayer).FileName:=
'\chord\'+IntToStr(i)+'.mp3';
dove mp(piùnumero) è il nome del componente MediaPlayer (ho creato 12
componenti mediaplayer con nome mp1, mp2,...,mp12 e a ognuno devo
assegnare i file corrispondenti al nome). Mi viene fuori l'errore:
Impossibile trovare il file specificato ecc... Se invece io ci metto prima
la funzione Open, cioè:
for i:=1 to 12 do begin with (FindComponent('mp'+IntToStr(i)) as TMediaPlayer) do begin Open; FileName:= '\chord\'+IntToStr(i)+'.mp3'; end; end;
L'errore mi dice : Non è possibile determinare il tipo di periferica
dall'estensione del file .'.
Sapreste aiutarmi per caso?
Grazie mille in anticipo