Wav aus Resource abspielen/extrahieren

Für alles, was in den übrigen Lazarusthemen keinen Platz, aber mit Lazarus zutun hat.
Antworten
Vielleichtmann
Beiträge: 20
Registriert: So 13. Jan 2013, 16:53

Wav aus Resource abspielen/extrahieren

Beitrag von Vielleichtmann »

Hallo,
ich habe folgendes Problem: Für mein Programm habe ich zwei Wav-Dateien ('Tick.wav' und 'Tack.wav'), die ich auch schon in eine Resource eingebunden habe. Auch die Resource ist im Initializations-Abschnitt eingetragen.
Wenn ich mit dem folgenden Code die Resource 'Tack' abspielen will, funktioniert das perfekt, wenn ich aber 'Tick' abspielen will funktioniert das aus irgendwelchen Gründen nicht mehr, das Programm finden die Resource aber auf jeden Fall, sonst würde er ja schon bei dem Resourcennamen aussteigen.

Code: Alles auswählen

procedure TForm1.Button3Click(Sender: TObject);
var   Sound1AsString: String;
      memStream : TMemoryStream;
      Laenge: Integer;
begin
   memStream:=TMemoryStream.Create;
   Sound1AsString:=LazarusResources.Find('Tick').Value;
   Laenge:=Length(Sound1AsString);
   memStream.Write(PChar(Sound1AsString)^, Laenge);
   PlaySound(memStream.Memory, 0, SND_ASYNC or snd_Memory);
   memStream.Free;
end; 
Vielleicht kann mir hier ja mal wieder jemand helfen.
Danke :-)

Edit: 'Tick' ist anscheinend schon irgendwie vergeben. Habe die Datei umbenannt und die Resource neu erstellt und jetzt geht es.
Windows 7, Lazarus v. 1.0.6 :-)

Antworten