ISDN: Anrufer erkennen

[DevStar]

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