Oppure

Loading
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è:

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



30/12/09 14:17
Daf
Ho notato un punto in cui può esserci un errore: FileName := '/nome_cartella/nome_file'.
Anche se il programma si trova nella cartella corrente il nome (ricordo così;) deve essere completo:

FileName := ExtractFilePath(ParamStr(0)) + '/nome_cartella/nome_file'

Prova così:k:
aaa
04/01/10 10:44
Grazie mille provo subito.
Una domanda comunque: Cos'è il
"ExtractFilePath(ParamStr(0))"

perchè l'ho trovato spesso ma non ho idea di cosa sia.
Grazie mille per il supporto.
Sempre Gentilissimi
04/01/10 14:48
Daf
Cartella_Del_File_Eseguibile := ExtractFilePath(ParamStr(0));
Nome_Completo_File_Eseguibile := ParamStr(0); {Parametro 0 da riga di comando = nome e percorso del file eseguibile}
Cartella_Del_File_Prova := ExtractFilePath('C:\Users\Prova.txt'); {'C:\Users'}
Ultima modifica effettuata da Daf 04/01/10 14:49
aaa
05/01/10 19:17
Ecco cosa mi serviva! Grazie mille Gentilissimo. Ho risolto il problema.
E sono riuscito a completare il programmino.