AsyncPro Verbindung mit GSM-Modem (Fehler abfangen)

[Grolle]

Hallo!
Ich stelle in meinem Programm eine Verbindung zu einem GSM-Modem her. Soweit klappt das
auch 1a mit den Kompos TurboPowerAsyncPro (Tapi + ComPort). Allerdings soll die Verbindung
bei besetzt oder Person vorrübergehend nicht erreichbar (wie beim Handy eben) getrennt werden.
In diesen beiden Fällen wird kein OnTapiConnect-Ereignis ausgelöst. Die Verbindung stelle ich
über ein ganz normales Modem her. Kann mir da jemand behilflich sein?
Viele Grüße...

[Grolle]

*push* :roll:

[runger]

Hallo,

ontapistatus ist der Event der Wahl.

Delphi-Quellcode:

procedure Tmain.mod1TapiStatus(CP: TObject; First, Last: Boolean; Device,
  Message, Param1, Param2, Param3: Integer);
begin
   check_modem_status(Param1);
end;

Ich habe dafür eine extra Procedur geschrieben, nämlich:

Delphi-Quellcode:

procedure Tmain.check_modem_status(i:integer);
begin
   case i of
   linecallstate_idle:
      Begin
         //$00000001;
      end;
   LineCallState_Offering:
      Begin
         //$00000002;
      end;
   LineCallState_Accepted:
      Begin
         //$00000004;
      end;
   LineCallState_Dialtone:
      Begin
         //$00000008;
      end;
   LineCallState_Dialing:
      Begin
         //$00000010;
      end;
   LineCallState_Ringback:
      Begin
         //$00000020;
      end;
   LineCallState_Busy:
      Begin
         //$00000040;
      end;
   LineCallState_SpecialInfo:
      Begin
         //$00000080;
      end;
   LineCallState_Connected:
      Begin
         //$00000100;
      end;
   LineCallState_Proceeding:
      Begin
         //$00000200;
      end;
   LineCallState_OnHold:
      Begin
         //$00000400;
      end;
   LineCallState_Conferenced:
      Begin
         //$00000800;
      end;
   LineCallState_OnHoldPendConf:
      Begin
         //$00001000;
      end;
   LineCallState_OnHoldPendTransfer:
      Begin
         //$00002000;
      end;
   LineCallState_Disconnected:
      Begin
         //$00004000;
      end;
   LineCallState_Unknown:
      Begin
         //$00008000;
      end;
   end;
end;

Der Code legt keinen Anspruch auf Vollständikeit.
Vorsicht Asynch pro wird nicht mehr gepflegt. Bei sourceforge gibt's eine ellenlange Liste von Fehlern. In diesem Bereich hab ich aber noch keine Fehler gefunden. GSM Modem funktioniert einwandfrei.

Rainer