MyCity » Pascal -> Delphi » dll i wav fajlovi...

dll i wav fajlovi...

Napisano na dan: 22.9.2009

dll i wav fajlovi...
Sledeća strana Pagination

Idi na vrh

Poslao: 22 Sep 2009 04:46
Idi na vrh
offline
  • l0s7 
  • Novi MyCity građanin
  • Pridružio: 04 Feb 2009
  • Poruke: 11

procedure PlaySnd(snd_name: Byte); var   LibHandle: THandle;   tada: Pointer; begin   LibHandle:=Loadlibrary('myfile.dll');   try     if LibHandle<>0 then     begin       tada := Pointer(FindResource(LibHandle, 'RCData', 'click_snd'));       if tada <> nil then       begin         tada := Pointer(LoadResource(LibHandle, HRSRC(tada)));         if tada <> nil then tada := LockResource(HGLOBAL(tada));       end;       sndPlaySound(tada, SND_MEMORY or SND_NODEFAULT or SND_ASYNC);     end;   finally   end; end;

Poz,
kako mogu da ucitam wav fajl koji se nalazi u dll?
Hvala!



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 22 Sep 2009 19:48
Idi na vrh
offline
  • rejn 
  • Novi MyCity građanin
  • Pridružio: 02 Okt 2008
  • Poruke: 16

Ovaj red

tada := Pointer(FindResource(LibHandle, 'RCData', 'click_snd'));

bi trebalo da bude

tada := Pointer(FindResource(LibHandle, 'click_snd', RT_RCDATA));

Takodje, u finally delu oslobodi handle lib-a [FreeLibrary(LibHandle)], jer ce sa svakim novim pozivom funkcije novi res wav file-a ostati zakljucan u memoriji, a sve do zavrsetka procesa.



Poslao: 22 Sep 2009 22:18
Idi na vrh
offline
  • l0s7 
  • Novi MyCity građanin
  • Pridružio: 04 Feb 2009
  • Poruke: 11

RADI! Hvala ti puno.

MyCity » Pascal -> Delphi » dll i wav fajlovi...

Ko je trenutno na forumu
 

Ukupno su 1147 korisnika na forumu :: 38 registrovanih, 3 sakrivenih i 1106 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., anbeast, Boris BM, darionis, DonRumataEstorski, draganca, dulleo, dushan, esx66, Fog of War, galerija, HrcAk47, Joja, krkalon, Kubovac, Leonov, Litostroton, mercedesamg, Milos82, Oscar, ostoja, ozzy, panonski mornar, panzerwaffe, procesor, raptorsi, ruger357, Srle993, StefanopuloZ, stegonosa, t84dar, Trpe Grozni, vathra, vladetije, vladulns, vukovi, Wrangler, zeo