ISDN: Anrufer erkennen

[DevStar]

Oder so?

Delphi-Quellcode:

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
    FConnectionInfos.IDItems[aConnectionID].PWavFile := Wave.open(Filename);
    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;