Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[1233] [질문] async pro 에 대해 질문..
폭주족 [ ] 2012 읽음    1998-02-10 17:57
안녕하세요..

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 등을 체크하여 상황에 따라 강제 종료하는 것입니다.

도와주세요.


+ -

관련 글 리스트
1233 [질문] async pro 에 대해 질문.. 폭주족 2012 1998/02/10
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.