dll i wav fajlovi...

dll i wav fajlovi...

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.
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.



offline
  • l0s7 
  • Novi MyCity građanin
  • Pridružio: 04 Feb 2009
  • Poruke: 11

RADI! Hvala ti puno.

Ko je trenutno na forumu
 

Ukupno su 613 korisnika na forumu :: 31 registrovanih, 3 sakrivenih i 579 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: amaterSRB, Areal84, Atomski čoban, dankisha, Daxi184, DM1994, doklevise, draggan, FOX, helen1, JOntra, Kaplar2, kuntalo, lelan, Marko Marković, MB120mm, Najax, nik8282, pedja.st, rovac, ruger357, shone34, Smiljke, Stefan1207, stegonosa, Toni, trajkoni018, vlahale, vlvl, vrlenija, YU-UKI