TAssistedTAPI Demo

• Delphi 3 oder höher
• Installierte TAPI Komponenten (Compilerschalter ohne Bedeutung !)
• Windows 9x oder höher bzw. NT ab Version 4
• Für  Delphi 3 dürfen nur die Units TAssistedTapi.pas und TAPI.pas verwendet werden ! Alle Einträge {$HPPEMIT ...} und {$EXTERNALSYM ... } müssen entfernt oder gegen {!$.. } ersetzt werden.
• Download der aktuellen Demo (englisch)

Erstellen wir jetzt unsere erste kleine Anwendung. Sie sollte nun etwa so aussehen (siehe Bild links). Weisen wir nun die Eigenschaften unserer AssistedTAPI1 Komponente zu. Da wäre AppName (Voreinstellung Form.Caption) also der Name unserer Anwendung der durch die Server Anwendung ggf. angezeigt wird. CalledParty enthält den Namen des Angerufenen Teilnehmers. Zu Comment kein Kommentar :-) .Die Eigenschaft DestAddress repräsentiert die zu wählende Telefonnummer. Diese darf hier sowohl im kanonischen oder im wählbaren Format vorliegen. Weisen wir nun noch die Ereignisbehandlungen zu. (siehe unten)

Nun noch
procedure TForm1.Button1Click(Sender: TObject);
begin
   AssistedTAPI1.MakeCall;
end;
Mein Glückwunsch ihre erste TAPI Anwendung ist fertig.

procedure TForm1.AssistedTAPI1InvalDestAddress(Sender: TObject);
begin
  MessageDlg('Die eingegebene Rufnummer ist falsch',mtError,[mbOK],0);
end;

procedure TForm1.AssistedTAPI1RequestQueueFull(Sender: TObject);
begin
  MessageDlg('Warteschlange ist voll, versuchen Sie es Später noch einmal',mtError,[mbOK],0);
end;

procedure TForm1.AssistedTAPI1NoRequestRecipient(Sender: TObject);
begin
  MessageDlg('Keine Empfänger Anwendung !, Installiern Sie Dialer.exe',mtError,[mbOK],0);
end;

procedure TForm1.AssistedTAPI1RequestFailed(Sender: TObject);
begin
  MessageDlg('Anforderung gescheitert',mtError,[mbOK],0);
end;

 Sie haben andere Hardware ? Bitte senden Sie mir die folgenden Informationen : Betriebssystem, Hardwarehersteller, Gerätetype, Problembericht.