TAPI: Telefonnummer anzeigen lassen

[MacGuyver]

Moin Leute,

ich lese in meinem Programm die Telefonnummern der reinkommenden Gespräche über CAPI aus. Nun habe ich einen Kunden, der leider nur TAPI mit seiner Telefonanlage unterstützt. Da ich mein Projekt gerne schlank halte und nicht etliche Komponenten installieren will (und unter Turbo Delphi Standard nicht kann) habe ich etwas gesucht. Ok, etwas komplettes habe ich nicht gefunden und so ein paar Sachen zusammengeworfen. So klappt das, es fehlt nur die Null der Vorwahl. Das Zeigt die Wählhilfe von Windows aber auch so an. Das ist nicht so schlimmt, das kann die Anwendung wieder ausgleichen.

Ich hoffe es hilft anderen auf der Suche...

Stefan

edit: Neue Version mit Kommentaren hochgeladen

edit: Neue Version mit angepassten Parametern für lineOpen verwendet. Jetzt funktioniert das Programm, ohne vorher Dialer.exe gestartet zu haben.

[fishbrain]

Danke, dass du versucht diesen Code mit uns zu teilen.
Es wäre vielleit trotzdem sinnvoll, den Code zu kommentieren und evtl. die Relevanten Codeschnippsel extra zu behandeln.

Damit wäre sicher vielen geholfen.

[MacGuyver]

Moin Leute

Asche über mein Haupt. Da war ich doch wohl ein bisschen schnell. Wo ich doch so dokumentationsgeil bin...

Danke an fishbrain der hat.

Ich habe eine aktualisierte Version hochgeladen.


Stefan

[MacGuyver]

Tach auch!

Da habe ich ein Programm auf Grundlage dieses Beitrags erstellt und wollte jetzt am WE testen (in der Woche kein Rechner mit Tapi) und nichts klappt. Ah!<kurzaufschrei> Was ist das! Dann habe ich TapiTest geöffnet und siehe da: NICHTS! Vielleicht ist mein Tapi-Treiber nicht mehr in Ordnung? Also Dialer.exe gestartet und angerufen. Siehe da, TapiTest zeigt etwas an. Die Wählhilfe wieder dich, und es funzt immer noch.

So wie es aussieht klappt mein Programm nur, wenn ich einmal die Wählhilfe geöffnet habe. Haben sich das alle nur im Quelltext angeschaut und nicht einmal ausprobiert? Kennt sich hier jemand mit Tapi aus, der da mal einen Blick draufwerfen kann?


Stefan

[AliDi]

Hi Stefan,

hab den Code nur überflogen, aber das ist mir aufgefallen:

Delphi-Quellcode:

Error := TapiLineOpen(FHLineApp
                       ,lNumDev
                       ,FHLine
                       ,FTapiVersion
                       ,0
                       ,0
                       ,LINECALLPRIVILEGE_MONITOR//Die Leitung für einen Monitor öffnen
                       ,LINEMEDIAMODE_DATAMODEM  //Ist das für diesen Fall überhaupt wichtig?
                       ,lParams);

Du solltest immer LINECALLPRIVILEGE_MONITOR und LINECALLPRIVILEGE_OWNER setzen. LINEMEDIAMODE_DATAMODEM ist falsch (es sei den Du willst nur Dein Modem steuern). LINEMEDIAMODE_INTERACTIVEVOICE ist die richtige Wahl.

Gruß
alidi

[MacGuyver]

Jau! Danke AliDi, genau das war es. Jetzt funzt das Programm sofort, ohne vorher Dialer.exe zu öffnen.

Den Download im ersten Eintrag habe ich aktualisiert.



Stefan

[Scooty78]

hmmmm, habs in Delphi 2009 unter Windows 7 eingebunden.
Funktioniert soweit nur erhalte ich als Anrufer nur irgendein Unicode Geschnipsel....
Bei Deinem Testprogamm übrigens auch.

Hat vielleicht jemand eine Idee woran das liegen könnte???

[MacGuyver]

Moin Scooty78,

ich habe leider keinen Rechner mit Win7 und installiertem Tapi. Hänge bitte den Inhalt der hereinkommt rein. Mein einziger Benutzer bis jetzt verwendet XP, da klappt es.

Stefan

[RWarnecke]

Hallo Stefan,

erstmal danke für den Sourcecode. Hättest Du auch ein Beispiel für einen unwissenden wie mich, wie ich das am besten auch mal ausprobieren kann. Denn das vorgehen würde mich auch interessieren, da das auslesen einer Telefonnummer eventuell eine Anforderung für eines meiner nächsten Projekte sein könnte.

Edit: Was für Voraussetzungen brauche ich denn ?