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