TAPI: Telefonnummer anzeigen lassen

[MacGuyver]

Moin Leute, :hi:

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.

[DP-Maintenance]

Dieses Thema wurde von "mkinzler" von "Windows API / MS.NET Framework API" nach "Open-Source" verschoben.
Programm mit Source

[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 :hi:

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

Danke an fishbrain der :warn: 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. :shock: Ah!<kurzaufschrei> Was ist das! Dann habe ich TapiTest geöffnet und siehe da: NICHTS! :gruebel: Vielleicht ist mein Tapi-Treiber nicht mehr in Ordnung? Also Dialer.exe gestartet und angerufen. Siehe da, TapiTest zeigt etwas an. :wiejetzt: 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! :thumb: 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 ?

[MacGuyver]

Moin Rolf, :hi:

ich weiß jetzt so gerade nicht, was du genau willst. In der RAR-Datei im ersten Eintrag ist doch alles drin, was du brauchst. Starte einfach TapiTest (dpr oder bdsproj) oder öffne das mit deinem offenen Delphi. Dann compilieren und starten. Nun wählst du die Leitung aus, wo du deine Tapi-Leitung hast und gehst dann auf öffnen. Dann rufe dich selbst an und was reinkommt sollte angezeigt werden. Ich gebe dieses Programm auch meinen Kunden, bevor sie die Schnittstelle im Programm testen. Vor allem können sie mir dann sagen, was da genau reinkommt.

Stefan

[RWarnecke]

Moin Stefan,

ich meinte, brauche ich dau besondere Hardware oder reicht dazu ganz einfach ein Router aus, wo ein Telefon dran angeschlossen ist. Oder brauche ich ein Modem oder ISDN Anschluss in meinem Rechner ?

[MacGuyver]

Tach,

es ist egal, womit du arbeitet, Hauptsache Tapi. Ich habe eine Fritzkarte installiert mit Capi. Dafür gibt es einen Tapi-Treiber, den ich dann installiert habe.
Du kannst auch testweise deine Tapi-Verdingung mit der Telefonie prüfen. Unter XP ist die Telefonie nicht mehr direkt aufgeführt, kannst du aber über Start -> Ausführen -> dialer starten.

Stefan

[efk]

Hallo zusammen,

habe seit Delphi 2005 bis 2010 die Tapi-Komponenten von Kaed System. Die Komponenten kosten etwa 50$ und funktionieren problemlos an 5 verschiedenen Telefonanlagen und ISDN-Endgeräte. Der Programmieraufwand ist sehr gering.

Gruss Eddy

[MacGuyver]

Moin Eddy,

mein Ziel der Arbeit war es, ausschließlich die Telefonnummern abzugreifen. Da gibt es bestimmt noch einem Menge Komponenten/Sammlungen die gut funktionieren. Warum soll ich mir eine Komponente zulegen, nur um an die Telefonnummer zu kommen?

Drücke ich das anders aus: Wer will sich schon eine Kuh kaufen um ein Glas Milch zu tringen? <lach, schenkelklopf>

[warumwirleben]

DANKE DANKE DANKE - so etwas habe ich gesucht!