WAV Datei abspielen?

[Pseudemys Nelsoni]

hi,

ich habe eine wavedatei in eine resource gepackt und eingebunden...

wenn ich nun im buttonclick soetwas habe:

PlaySound('Sound', 0, SND_RESOURCE or SND_ASYNC);
dann klappt das EINMAL und dann nichtmehr, also kein sound kein nix

[Duffy]

Hallo Pseudemys Nelsoni

Delphi-Quellcode:

var
  FindHandle, ResHandle: THandle;
  ResPtr: Pointer;
begin
  FindHandle := FindResource(HInstance, ResourceName, ResourceType);
  ResHandle := LoadResource(HInstance, FindHandle);
  ResPtr := LockResource(ResHandle);
  sndPlaySound(PChar(ResPtr), snd_Async OR snd_Memory);
  UnlockResource(ResHandle);
  FreeResource(FindHandle);
end;

versuch es mal so ...

bye
Claus

[Pseudemys Nelsoni]

hallo duffy,

was gebe ich denn bei type an?

Zitat:

lpType

Specifies the resource type. For more information, see the Remarks section. For standard resource types, this parameter can be one of the following values:

Value Meaning
RT_ACCELERATOR Accelerator table
RT_ANICURSOR Animated cursor
RT_ANIICON Animated icon
RT_BITMAP Bitmap resource
RT_CURSOR Hardware-dependent cursor resource
RT_DIALOG Dialog box
RT_FONT Font resource
RT_FONTDIR Font directory resource
RT_GROUP_CURSOR Hardware-independent cursor resource
RT_GROUP_ICON Hardware-independent icon resource
RT_ICON Hardware-dependent icon resource
RT_MENU Menu resource
RT_MESSAGETABLE Message-table entry
RT_RCDATA Application-defined resource (raw data)
RT_STRING String-table entry
RT_VERSION Version resource

ich sehe da nichts das einer WAVE datei entsprechen würde :\

[Duffy]

Hallo Pseudemys Nelsoni,

Delphi-Quellcode:

procedure PlayWaveSound(ResourceType, ResourceName: PChar);
var
  FindHandle, ResHandle: THandle;
  ResPtr: Pointer;
begin
  FindHandle := FindResource(HInstance, ResourceName, ResourceType);
  ResHandle := LoadResource(HInstance, FindHandle);
  ResPtr := LockResource(ResHandle);
  sndPlaySound(PChar(ResPtr), snd_Async OR snd_Memory);
  UnlockResource(ResHandle);
  FreeResource(FindHandle);
end;

der Aufruf wie folgt ...
PlayWaveSound('WAVE', 'WAVE_1'); sorry
bye
Claus

[Pseudemys Nelsoni]

moin duffy,

scheint zu funktionieren - danke übrigens

es gibt da aber wieder ein problem.

ich klicke den button - sound spielt - ich klickke erneut - und nichts passiert.....hmmmm

hast du eine idee wo das problem liegt?

[Duffy]

Hallo Pseudemys Nelsoni,
Du mußt den Sound zu Ende spielen lassen, dann kannst Du ihn erst erneut abspielen.

bye
Claus

[Pseudemys Nelsoni]

duffy, der sound geht nur 3sek, ich hab schon ne minute gewartet und es ging kein weiteres mal

[Duffy]

Hallo Pseudemys Nelsoni,
schaue ich mir heute Abend an, dann melde ich mich wieder.

bye
Claus

[Pseudemys Nelsoni]

vielen dank

[Hansa]

Ich benutze dazu diese Prozedur :

Delphi-Quellcode:

PROCEDURE WaveAbspielen (DateiName : string);
  VAR flag : byte;
  BEGIN
    flag:=SND_ASYNC;
    sndPlaySound(PChar (DateiName), Flag);
  END;

Ist ja fast nichts, aber es funktioniert und reicht.