안녕하세요..

async32나 comm32란 컴포넌트를 사용하여

프로그램을 하다 해결하지 못하는 문제가 있어서 질문을 올립니다.

먼저 기존의 async32나 comm32 컴포넌트를 사용할 때의 문제점입니다.
-. 특정한 control character를 받으면 연결을 강제로 종료시키려합니다.
   '+++ ath0'로 연결을 종료하려하는데, 안되는군요.
   모뎀의 dcd가 off되어야 하는데 안되는군요..

그리고, 새로이 async pro trial 버젼으로 프로그램을 했습니다.
-. 특정한 control character를 받으면 연결을 강제로 종료시키려합니다.
   간단하게 port initial시키는 부분과 전화를 거는 부분과
   control character를 받아서 체크하여 연결을 종료하는
   부분의 소스입니다..

   procedure TForm1.FormCreate(Sender: TObject);
   begin
        ApdComPort1.Baud := 300;
        ApdComPort1.ComNumber := 2;
        ApdComPort1.DataBits := 7;
        ApdComPort1.Parity := TParity(Ord(pEven));
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
         ApdModem1.Dial('717-8033');
    end;

    procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
    var
       i: Word;
       c: Char;
    begin
         for i := 1 to Count do
         begin
              c := ApdComport1.GetChar;
              if Ord(c) = ENQ then
                   ApdModem1.HangUp;
          end;
     end;

위와 같이 했더니 강제로 종료되긴 되는데, 에러가 먼저 발생하는군요

'Modem is busy elsewhere'란 에러가 나더군요.

너무 많은 질문을 올린 것 같아서 죄송합니다.

제겐 중요한 프로그램이고, 딱히 물어 볼 곳이 없어서 질문을 올립니다.

제가 하고자 하는 내용은 전화를 걸어서 특정 control character

ENQ나 DLE, ACK 등을 체크하여 상황에 따라 강제 종료하는 것입니다.

도와주세요.