Afspilning af wav??

Nu ved jeg ikke lige hvad det er for et program du mener men WINAMP kan da afspille \"WAW\"-filer.

Under fanen System er der en TMediaPlayer. Den kan bruges til formålet.

/SpEeDy

Brug TMediaPlayer komponentet ! Kig i hjælpen for info om hvordan den bruges !

Snowball

snowball :))

1 sek!!!!

/SpEeDy

procedure TForm1.Button1Click(Sender: TObject);
var
  hWavRes : THandle ;
  lpData : PChar ;
begin
    hWavRes := LoadResource(hInstance, FindResource(hInstance, \'doe\', \'WAVE\')) ;
    if hWavRes <> 0 then begin
        lpData := LockResource(hWavRes) ;
        sndPlaySound(lpData, snd_Memory + snd_Sync) ;
        UnlockResource(hWavRes) ;
        FreeResource(hWavRes) ;
    end ;
end ;

vist lidt overkill at brug mediaplayer til det!

Det var da en besværlig måde at gøre det på stigc ! ;)

kingguro: Her kan du læse lidt om den, men kig også i hjælpen. Der er lidt flere eksempler !

http://www.kaposnet.hu/books/tysdelphi4/ch12/ch12.htm#Heading14

Snowball

stigc: Hvorfor det ???

Snowball

Jeg programmere ikke selv i Delphi, fandt det bare på Internettet!

Ja et windows API kald se nemmere ud!

stigc: Man starter jo ikke en ekstern Mediaplayer hvis det er det du tror !!! Der er jo som sagt et komponent i Delphi der kan klare det !

Og især hvis man er nybegynder i Delphi, så er den slags som du lige har skrevet jo ikke ret let og finde rundt i ! ;)

Snowball

Nej jeg ved godt den ikke starter en ekstern. Men den embeder den i formen og det er lidt spild, for loader også en masse ting man ikke skal bruge! Afspilning af mpeg,avi,mp3, play,stop,frem og tilbage! Også selvom man \"hider\" det!

her er en måde hvordan du kan samle dine wav. filer i din exe fil.
Lad os antage du har 2 wav filer, help.wav og help1.wav.
Brug Notepad(eller din favorit tekst Editor)opret en ny fil, og skriv følgende:
HELP.WAV  \"help.wav\"
Help1.WAV \"help1.wav\"
opret et bibliotek med navnet resource
Gem filen som *.rc, jeg vælger Sounds.rc
brug filerne brcc32.exe og rv32core.dll(som følger med i delphi 3. til at compile din *rc fil (skal være i samme bibliotek som din *rc fil)
Dette vil lave en SOUNDS.RES fil.
I din main unit under{ $R*.DFM} skriv {$R SOUNDS.RES}
her er så koderne som du kan vælge skal aktiveres via en knap eller andet:
PlaySound(PChar(\'help\'),hInstance,snd_Sync or nsd_Resource);
PlaySound(PChar(\'help1\'),hInstance,snd_Async or nsd_Resource);
hvis du vælger at bruge \"Async\" bliver wav filen afbrudt ved lukning af program,ellers kører den wav filen færdig, før programmet lukker
Har du ikke filerne BRCC32.EXE OG RW32CORE.DLL kan jeg maile dem.

glemte lige at sige du skal skrive mmsystem under Uses, for at kunne benytte PlaySound.

Jeg har selv fundet ud af det!!

Du er da fedtet!! Du har lige afvist 3 af mine svar, som var rigtige (og det er ikke kun mine svar du afviser.)!

Se spm. :

http://www.eksperten.dk/spm/55577
http://www.eksperten.dk/spm/40876
http://www.eksperten.dk/spm/33916

Hvad er du ude på ?? Du har fået fine besvarelser alle tre gange!

Er du i point-mangel ??

Jeg synes bare det virker underligt!

/SpEeDy