[Back to COMM SWAG index] [Back to Main SWAG index] [Original]

    {
    From: MIGUEL MARTINEZ
    Subj: Accessing the phone
    ---------------------------------------------------------------------------
     ± I am a novice programmer and I am writing an address book type program
     ± in TP 6.0. How can I send the phone a number to be dialed? Thanx.

    Try this routines:
    }

    USES CRT;

    Procedure DialNumber(Number:String);
    Var ComPort:Text;
        ComName:String;
    Begin
      ComName:='COM2';   (* Assuming your modem is located there *)
      Assign(ComPort,ComName);
      ReWrite(ComPort);
      Writeln(ComPort,'ATDT'+Number);
      Close(ComPort);
    End;

    Procedure Hangup;
    Var ComPort:Text;
        ComName:String;
    Begin
      ComName:='COM2';   (* Assuming your modem is located there *)
      Assign(ComPort,ComName);
      ReWrite(ComPort);
      Writeln(ComPort,'ATH0M1');
      Close(ComPort);
    End;

    {An example of how to use this routines, is this fragment of code:}
    BEGIN
       DialNumber('345554323');
       Repeat Until Keypressed;
       Hangup;
    END.

    If you don't hang up, guess... You'll get a funny noise if you don't
    connect. :)

[Back to COMM SWAG index] [Back to Main SWAG index] [Original]