Ist zwar schon ein paar Jahre alt, aber immer noch gut.
Zitat:
procedure Play (aConnectionID:integer; Filename:string);
Spielt das mit "Filename" angegegebene WAV-File über eine bestehende Verbindung ab. Wird bereits ein File abgespielt, so wird dieses geschlossen und stattdessen das neue abgespielt.
Wie kann ich es erreichen, dass erst das File zuende abgespielt wird, bevor das nächste gespielt wird?
Das was ich aus-kommentiert habe, funktioniert nämlich nicht.
Delphi-Quellcode:
{ ------------------------------------------------------------------- }
{ TCapiISDN.Play
Eine Wav-Datei über das Capi senden
{ ------------------------------------------------------------------- }
procedure TCAPIISDN.Play(aConnectionID:integer; Filename:string);
begin
if not assigned(FCapi) then exit;
if FConnectionInfos.IDItems[aConnectionID]=NIL then exit;
if assigned(FConnectionInfos.IDItems[aConnectionID].PWavFile) then begin
//devstar
//wave.close(FConnectionInfos.IDItems[aConnectionID].PWavFile);
if _debug>1 then
debug('This Connection had an open Input-File. Closed.');
end;
FConnectionInfos.IDItems[aConnectionID].PWavFile := Wave.open(Filename);
if (Wave.Error=0) and (_debug > 1) then
debug('Playing started')
else if (wave.Error>0) and (_debug>0) then
debug('??Error opening Wav-File');
FConnectionInfos.IDItems[aConnectionID].SendingMode := smWave;
end;
Hat jemand eine andere Idee?
Gruß
Devstar