Hallo
Ich bastel gerade an einem Wecker und finde keine Lösung für folgendes Problem:
Wenn ich die Zeit auf über 40 Sekunden einstelle und den Timer starte, wird jede Sekunde ein Klickgeräusch abgespielt.
Das funktioniert 40 Sekunden gut. Danach zählt der Timer brav weiter runter, aber der Sound bleibt dann stumm. Die Audiodatei ist kürzer als 1 Sekunde.
Die Audiodatei rufe ich so auf:
Delphi-Quellcode:
procedure TForm1.PlayAudio(ResourceID: string);
var
ResStream: TResourceStream;
TmpFile: string;
begin
ResStream := TResourceStream.Create(HInstance, ResourceID, RT_RCDATA);
try
TmpFile := TPath.Combine(TPath.GetDocumentsPath, 'sound.3gp');
ResStream.Position := 0;
ResStream.SaveToFile(TmpFile);
MediaPlayer1.FileName := TmpFile;
MediaPlayer1.Play;
finally
ResStream.Free;
end;
Im Timer der Aufruf
PlayAudio('Resource_1');
Wenn dann nach Ablauf des Timers eine andere Audiodatei aufgerufen wird,
PlayAudio('Resource_2');
spielt der Sound wieder.
Hat jemand eine Idee, woran das liegen kann und wie ich das hinbekomme, dass der Sound bis zum Ende des Timers gespielt wird?