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
Pascal - Audio
Forum - Pascal - Audio

Avatar
Lafa_96 (Normal User)
Pro


Messaggi: 111
Iscritto: 09/03/2011

Segnala al moderatore
Postato alle 17:42
Domenica, 08/05/2011
2 cose...1 è possibile riprodurre una traccia audio salvata sul pc? se sì come? grazie!

PM
Avatar
Poggi Marco (Member)
Guru


Messaggi: 969
Iscritto: 05/01/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 19:10
Domenica, 08/05/2011
Riprodurre un suono in pascal è possibile... anche se con molte limitazioni.
Vedi la finzione sound.

Vedi questo esempio: http://www.pierotofy.it/pages/guide_tutorials/Pascal/Beep/

Ultima modifica effettuata da Poggi Marco il 08/05/2011 alle 19:11
PM
Avatar
Phi (Member)
Expert


Messaggi: 241
Iscritto: 30/12/2009

Up
0
Down
V
Segnala al moderatore
Postato alle 14:01
Lunedì, 09/05/2011
Per Windows esiste la unit mmsystem
http://www.freepascal.org/packages/mmsystem.html
Questa permette di eseguire file wave(.wav).

Comunque, se serve per piccoli file, puoi aggiungerli al programma come risorse, usando come tipo WAVE, e inserire nel programma questo codice:

Codice sorgente - presumibilmente Delphi
  1. const
  2. SND_MEMORY = 4;
  3. SND_ASYNC = 1;
  4. SND_RESOURCE = $40004;
  5. nomerisorsa : pchar = {qui devi inserire il nome della risorsa};
  6.  
  7. Function PlaySound(x1: PChar; x2: HMODULE; x3: DWORD): BOOL;stdcall; external 'winmm.dll' name 'PlaySound';
  8.  
  9. ...
  10.  
  11. PlaySound(nomerisorsa,HInstance, snd_ASync or snd_Memory or snd_Resource);


Oppure, se ti accontenti di un suono a frequenza costante usi,
o la funzione Beep(frequenza, durata) della unit windows,
o le funzioni già linkate da Marco della unit crt



Phi ha allegato un file: mmsystem.zip (100455 bytes)
Clicca qui per scaricare il file

Ultima modifica effettuata da Phi il 09/05/2011 alle 14:03
PM