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 1129 korisnika na forumu :: 40 registrovanih, 3 sakrivenih i 1086 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: 8u47, _Rade, Arahne, Bahuss, bokisha253, Doca, DonRumataEstorski, DPera, dragan_mig31, Excalibur13, GORDI, HrcAk47, Još malo pa deda, Koridor, Kubovac, lcc, LUDI, m0nstrum_, Magistar78, mane123, Metanoja, mgolub, milenko crazy north, milimoj, nebkv, Nemanja.M, nemkea71, Panter, Parker, pedja.st, radionica1, Rogan33, rovac, royst33, Shinobi, shlauf, Tvrtko I, Valter071, vaso1, zixmix