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;
Danke

Edit: 'Tick' ist anscheinend schon irgendwie vergeben. Habe die Datei umbenannt und die Resource neu erstellt und jetzt geht es.