ISDN: Anrufer erkennen

[nypharos]

Ich suche einen Weg um einen Anrufer (ISDN) an der Nummer zu erkennen und das Gespräch nicht anzunehmen, sondern den Anruf abzulehnen und stattdessen ein Programm zu starten.

Zweck ist es, meinen PC so auch ohne Internet ein Programm ausführen lassen zu können.

Gibt es dafür vielleicht auch irgendwelche Komponenten?

[Chewie]

Zitat:

Zitat von Chewie

Bestimmt. Such mal bei Torry nach den Stichwörtern CLIP, CAPI oder ISDN.

Edit: Seltsam. Aus dem Editieren wurde eine neue Antwort.
@Mods: Bitte das obige löschen.

[RomanK]

Hast du vielleicht Zitat anstatt Edit gedrückt ?? :wink: :roll: :zwinker:

[Chewie]

Zitat:

Zitat von FuckRacism

Hast du vielleicht Zitat anstatt Edit gedrückt ?? :wink: :roll: :zwinker:

Oh, verdammt. Erst bin ich so blöd und drück den falschen Knopf und dann fällt mir nicht mal auf, dass ich mich ja selbst zitiert hab. :oops:
Noch nie hab ich den Mit-Dem-Kopf-An-Die-Wand-Schlag-Smiley so vermisst wie jetzt :duck:

[nypharos]

Auf Torry habe ich nichts passendes gefunden, aber ich habe das Problem trotzdem gelöst, mit einer Komponente von hier

Gratis und perfekt für meine Zwecke!

Und was die alles kann:

Zitat:

Eigenschaften
DefaultResponse : TRespType
Legt fest, welche Standardbehandlung nach Ablauf der in RESPONSETIMEOUT angegeben Sekundenzahl einsetzen soll. Möglich ist rAccept, rReject und rClear.

DefaultResponseTimeOut : word
Legt fest nach wieviel Sekunden die Standardbehandlung eines eingehenden Anrufs erfolgen soll. Das Programm hat bis zum erreichen dieser Zeit Gelegenheit mit ACCEPTCALL, REJECTCALL oder CLEARCALL auf einen eingehenden Anruf zu reagieren.

DefaultRejectCause : TRejectCause
Falls die DEFAULTRESPONSE auf rREJECT gesetzt ist kann hier der Grund für die Zurückweisung eingetragen werden. Möglich ist rjeNormalCallClear oder rjeIgnoreCall. DTMFToneDuration : word read
Enthält die Dauer eines DTMF-Tons (ich glaub in Millisekunden). Sollte möglichst nicht verändert werden.

DTMFGapDuration : word read
Enthält die Dauer der Pausen zwischen DTMF-Tönen (ich glaub in Millisekunden) Sollte möglichst nicht verändert werden.

DebugLevel : word read
Da sich die Komponente im Entwicklungsstadium befindet kann mit dem Ereignis OnCAPIINFO eine Menge Information geliefert werden. Wieviel das ist bestimmt diese Eigenschaft. Die meisten Infos erhält man mit Fünf. Mit Null gar keine.

DefaultController : dWord (nur lesen)

Error : dword (nur lesen)

ErrorString : string (nur lesen)

--------------------------------------------------------------------------------

Ereignisse
onCapiInfo (Sender: TObject; info: String)
Im String INFO werden Informationen über CAPI-Messages und Komponenteninfos zum debuggen übermittelt.

OnIncomingCall (ConnectionID: Integer; CallingPartyNumber, CalledPartyNumber: String; CipValue: Word; CipValueString: String);
Wenn der Controller mit LISTEN in Empfangsbereitschaft gesetzt wurde wird bei einem eingehenden Anruf dieses Ereignis ausgelöst. Der Verbindung wird die ConnectionID zugewiesen und die Anwendung erhält Daten über den Anrufer (CallingPartyNumber) und den angerufenen Anschluss (CalledPartyNumber), sowie den benutzten ISDN-Dienst (CIP...)

OnConnect (ConnectionID: Integer)
Ein mit OnIncomingCall signalisierter Anruf wird von der Anwendung angenommen oder eine mit CONNECT gewünschte Verbindung wird von der Gegenstelle angenommen.

OnDisconnect (ConnectionID: Integer)
Die Verbindung mit der Nummer CONNECTIONID wird getrennt. Der Wert den CONNECTIONID bisher hatte wird von der Komponente danach für neue Verbindungen wieder verwendet.

OnWavEnded(ConnectionID: Integer)
Ein mit PLAY abgespieltes WAV-File wurde zu Ende abgespielt.

onDTMF(ConnectionID: Integer; DTMFChar: Char)
Wenn mit LISTENDTMF die Tonerkennung eingeschaltet wurde wird bei einem erkannten DTMF Ton dieses Ereignis ausgelöst. In DTMFChar steht dann entweder '0'..'9','#',oder '*'. Achtung: Dies funktioniert nicht bei allen ISDN-Karten gleich zuverlässig. Mit der FritzCard ist es aber O.k.
--------------------------------------------------------------------------------

Methoden
function Listen (aController : dWord ): boolean;
Setzt die Karte in Empfangsbereitschaft, damit sie auf eingehende Anrufe reagieren kann

function StopListen(aController : dWord) : boolean;
Hebt die Empfangsbereitschaft wieder auf

procedure RejectCall (aConnectionID:integer; aRejectCause:TRejectCause);
Weist einen signalisierten Anruf ab. Andere ISDN-Geräte haben weiterhin die Möglichkeit den Anruf entgegen zu nehmen

procedure ClearCall (aConnectionID:integer);
Nimmt den Anruf an und trennt danach sofort die Verbindung. DIES KOSTET DEN ANRUFER EINE EINHEIT. Andere Geräte können den Anruf nicht mehr annehmen.

procedure AcceptCall (aConnectionID:integer);
Nimmt den eingehenden Anruf an

function connect (aController:dword;aNumber:string):integer;
Baut eine Verbindung zur Gegenstelle mit der Telefonnummer aNumber auf.

procedure disconnect (aConnectionID:integer);
Trennt eine bestehende Verbindung

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.

procedure StopPlay (aConnectionID:integer);
Beendet das Abspielen eins WAV-Files

procedure RecordWav (aConnectionID:integer; Filename:string);
Nimmt das Telefongespräch in das WAV-File mit dem Dateinamen "Filename" auf. Dies kann auch passieren während mit Play() eine Datei abgespielt wird.

procedure StopRecord (aConnectionID:integer);
Beendet die Aufnahme

procedure SendDTMF (aConnectionID:integer; aDTMFStr:shortstring);
Sendet die in aDTMFStr angegebenen Tastentöne (z.B: zur Fernsteuerung von Anrufbeantwortern)

procedure ListenDTMF (aConnectionID:integer);
Schaltet die Empfangsbereitschaft für, von der Gegenstelle gesendete,DTMF-Töne ein

procedure StopListenDTMF (aConnectionID:integer);
Schaltet die Empfangsbereitschaft für DTMF-Töne wieder ab

function GetCallingNumber(aConnectionID:integer):string;
Liefert die Telefonnummer des Anrufenden zurück

function GetCalledNumber (aConnectionID:integer):string;
Liefert die Telefonnummer des Angerufenen zurück

function GetCIPValue (aConnectionID:integer):word;
Liefert den CIPValue (Kennzeichen für ISDN-Dienste, siehe CAPI-Doku)

[chippie]

Hallo,

hat die oben von nypharos genannte Komponente noch irgendjemand? Die Webseite ist inzwischen leider nicht mehr erreichbar :(

[fkerber]

HI!

Schau mal hier:
http://www.the-infobase.de/isdn/download.htm


Ciao Frederic

[chippie]

Danke schön, allerdings sind das die Projekte von Peter Zwosta. Ich suche die Komponente von Dirk Ruebenach, die es früher auf http://www-users.rwth-aachen.de/dirk.ruebenach/capi.htm gab und von der nypharos oben die Eigenschaften aufgelistet hat.

[fkerber]

Hi!

Ja, aber die von Rübenach basieren darauf, deswegen dachte ich, es könnte helfen:

Zitat:

CAPI-Komponente und Anrufmonitor-Beispiel
Basierend auf den CAPI-Sourcen, die Sie auf dieser Seite downloaden können, gibts eine CAPI-Komponente mit einem beispielhaften ISDN Anrufmonitor bei Dirk Rübenach.

Ciao Frederic

[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

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

[DevStar]

Weiß keiner rat?

Wer arbeitet denn mit diesen Komponenten?

[TBx]

:warn: Unterlasse bitte das pushen :warn:
Danke!

[Hansa]

Zitat:

Zitat von DevStar

..Wer arbeitet denn mit diesen Komponenten?

Ich. Läuft schon ein paar Jahre immer mit (die von Zwosta).

[DevStar]

Zitat:

Zitat von Hansa

Ich. Läuft schon ein paar Jahre immer mit (die von Zwosta).

Leider erhalte ich ein Error 404 auf der Seite.

Kannst Du die Komponente mal als Anhang anfügen?

[Hansa]

Ne, nützt so nichts. Von der ursprünglichen Komponente ist nicht mehr viel übrig. :mrgreen: Da hängt DB dran, um per Tel.Nr. den Anrufer im Klartext anzuzeigen, Logbuch etc. Da es für mich klar ist, was wo weshalb gemacht wird, ist das außerdem kaum kommentiert. Hinzu kommt folgendes : der Download geht nicht. Weshalb ?

[TBx]

Guckst Du mal hier

[DevStar]

Zitat:

Zitat von TBx

Guckst Du mal hier

Ja, danke. Die habe ich. Das sind die von D. Rübenbach, die auf P. Zwosta aufbauen.
Ansich nicht schlecht. Bekomme es nur damit nicht hin, ein WAVE-File 2x abzuspielen.

Gruß
Devstar

[DevStar]

Es gibt folgendes Ereignis.

Zitat:

OnWavEnded(ConnectionID: Integer)
Ein mit PLAY abgespieltes WAV-File wurde zu Ende abgespielt.

Kann mir das behilflich sein, bzw. wie kann ich das Ereignis korrekt benutzen?

[DevStar]

Wer arbeitet denn noch mit dieser Komponente?

[TBx]

Hallo DevStar,

ich habe Dich einige Beiträge weiter oben schon einmal gebeten, das Pushen zu unterlassen.
Falls Du nicht weißt, was das ist, erklähre ich es noch einmal kurz:
Als Pushen bezeichnet man das Erstellen eines neuen Beitrages in einem Thread obwohl der letzte Beitrag von einem selbst stammt.
Es ist ungeschriebenes Gesetz hier (und auch in allen anderen Foren, die ich kenne), dass dies frühestens nach 24 Stunden geschehen darf. Zuvor sollte immer der alte Beitrag editiert werden.
Das hat folgenden Grund:
Die Erstellung eines neuen Beitrages bringt den Thread in der Übersicht automatisch nach oben. Man drängelt sich also in den Vordergrund. Dies entspricht nicht dem Community-Gedanken, jeder soll hier gleichberechtigt seine Fragen stellen können.

Also noch einmal meine Bitte, unterlasse das Pushen (zumindest bevor 24 Stunden vergangen sind).

Danke!


PS: Das kannst Du auch noch einmal im Kodex nachlesen ;-)





[Edit]Hinweis auf den Kodex hinzugefügt[/Edit]

[DevStar]

Ich würde mich trotzdem über eine kleine Hilfe freuen.

Gruß DS

[Real_Thunder]

HAt jemand die Komponente (http://www.the-infobase.de/isdn/download.htm

) unter dlephi 2010 / 2009 zuzm laufen bekommen ???

Bei mir zeigt er nur Chinesisch als rufnummer an.. ich denke das liegt an der enuen Interpretierung des Std String.. zu von ansi zu unicode ....

[Grolle]

Hi,

bekommst du hier ...

Viele grüße ...