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

C++빌더 Q&A
C++Builder Programming Q&A
[39645] Async Pro 로 개발 중 모뎀 전화 불가능
땅주인 [] 976 읽음    2005-03-27 14:43
Async pro 로 개발 중에 있습니다.

TApdComPort + TapiDevice  이렇게 조합해 놓고 진행 중인데요..
모뎀 설정하고 전화 자동 수신은 잘 되는데..
전화 걸기 하면 전혀 먹통이 됩니다..아무런 이벤트도 뜨지 않고,
전하도 걸지 않습니다..

왜 그런 것이지요?

//---------------------------------------------------------------------------
//  모뎀 환경 설정 버튼
//---------------------------------------------------------------------------
void __fastcall TFormMain::Button_ModemSettingClick(TObject *Sender)
{
    TTapiConfigRec Rec;

    Rec = ApdTapiDevice->ShowConfigDialogEdit(ApdTapiDevice->GetDevConfig());

    ApdTapiDevice->SetDevConfig(Rec);

    int iComPort =  ApdTapiDevice->ComPort->ComNumber;
    if ( iComPort < 1 ) iComPort = cb_PortList->ItemIndex + 1;
    int iBaudRate = ApdTapiDevice->ComPort->Baud;
    int iDataBit  = ApdTapiDevice->ComPort->DataBits;
    int iStopBit  = ApdTapiDevice->ComPort->StopBits;

    TRegistry *pReg = new TRegistry();
    pReg->RootKey = HKEY_LOCAL_MACHINE;

    pReg->OpenKey("SOFTWARE\\MYCCU", true);
    pReg->WriteString("MODEM",ApdTapiDevice->SelectedDevice);
    pReg->WriteBinaryData("TapiConfig",Rec.Data, Rec.DataSize);
    pReg->WriteInteger("ComPort",iComPort);
    pReg->WriteInteger("BaudRate",iBaudRate);
    pReg->WriteInteger("DataBit",iDataBit);
    pReg->WriteInteger("StopBit",iStopBit);
    pReg->WriteString("Parity","None");

    ed_Modem->Text = ApdTapiDevice->SelectedDevice;
    cb_Speed->Text = ApdTapiDevice->ComPort->Baud;

    ApdTapiDevice->AnswerOnRing = 1;    // auto answer after 1 ring
    ApdTapiDevice->AutoAnswer();

    AddMessage("레지스트리에서 모뎀을 설정하였습니다.");

    delete pReg;
}
//---------------------------------------------------------------------------
//  전화걸기
//---------------------------------------------------------------------------
void __fastcall TFormMain::Button_DialingClick(TObject *Sender)
{
    AnsiString sPhone = ed_Phone->Text;

    if ( sPhone == "" ) {
        AddMessage("전화번호를 입력하여 주십시요");
        return;
    }
    ApdTapiDevice->Dial(sPhone);
    AddMessage("전화를 걸고 있습니다.");
}

+ -

관련 글 리스트
39645 Async Pro 로 개발 중 모뎀 전화 불가능 땅주인 976 2005/03/27
39654     Re:Async Pro 로 개발 중 모뎀 전화 불가능[자답] 땅주인 1003 2005/03/28
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.