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