Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Delphi - Problema FileName di TMediaPlayer
Forum - Delphi - Problema FileName di TMediaPlayer

Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 1:00
Giovedì, 01/01/1970
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è:

Codice sorgente - presumibilmente Delphi

  1. for i:=1 to 12 do
  2.   begin
  3.     with (FindComponent('mp'+IntToStr(i)) as TMediaPlayer) do
  4.       begin
  5.         Open;
  6.         FileName:= '\chord\'+IntToStr(i)+'.mp3';
  7.       end;
  8.   end;



L'errore mi dice : Non è possibile determinare il tipo di periferica
dall'estensione del file .'.

Sapreste aiutarmi per caso?

Grazie mille in anticipo




PM Quote
Avatar
Daf (Normal User)
Pro


Messaggi: 78
Iscritto: 27/06/2009

Segnala al moderatore
Postato alle 15:17
Mercoledì, 30/12/2009
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:

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 11:44
Lunedì, 04/01/2010
Grazie mille provo subito.
Una domanda comunque: Cos'è il
Codice sorgente - presumibilmente Plain Text

  1. "ExtractFilePath(ParamStr(0))"


perchè l'ho trovato spesso ma non ho idea di cosa sia.
Grazie mille per il supporto.
Sempre Gentilissimi

PM Quote
Avatar
Daf (Normal User)
Pro


Messaggi: 78
Iscritto: 27/06/2009

Segnala al moderatore
Postato alle 15:48
Lunedì, 04/01/2010
Codice sorgente - presumibilmente Delphi

  1. Cartella_Del_File_Eseguibile := ExtractFilePath(ParamStr(0));
  2. Nome_Completo_File_Eseguibile := ParamStr(0); {Parametro 0 da riga di comando = nome e percorso del file eseguibile}
  3. Cartella_Del_File_Prova := ExtractFilePath('C:\Users\Prova.txt'); {'C:\Users'}


Ultima modifica effettuata da Daf il 04/01/2010 alle 15:49
PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 20:17
Martedì, 05/01/2010
Ecco cosa mi serviva! Grazie mille Gentilissimo. Ho risolto il problema.
E sono riuscito a completare il programmino.

PM Quote