> 제가 원하는 답이 아니라서 다시 한번 올림니다.
> 모뎀으로 전화걸기는 성공 했으나 종료가 되지 않습니다.
> 한번 봐 주세요...
procedure Tftel.Disconnect;
var
atdtbuff : string;
begin
atdtbuff := 'ath0'+#13+#10;
NetWriteString(atdtbuff);
CloseHandle(hComm);
end;
procedure Tftel.NetWriteString(pszString :string);
var
lrc : DWORD;
begin
lrc := 0;
if WriteFile(hComm, PChar(pszString)^, Length(pszString), lrc, nil) = false then
begin
showmessage('Com Port Write Error');
exit;
end;
end;
하지만, 데이터를 전송중이었다면, 명령모드가 아니겠지요...?
다시 명령모드로 돌아와서 아래의 atdtbuff 를 모뎀으로 보내야 전송이 중단 된답니다.
명령오 모드로 되돌아오는 문자는 모뎀 설정에 따라서 틀리지만,
대체로 '+++' 문자를 빠르게 전송하면 다시 OK 가 뜨면서
명령어 모드로 돌아온답니다. ^^;
모뎀 명령어에 대한 자세한 설명은 다음 사이트를 참조하세요..
http://www5.compaq.com/athome/presariohelp/kr/MODEMS/index.html
heyyou wrote:
> > 제가 원하는 답이 아니라서 다시 한번 올림니다.
> > 모뎀으로 전화걸기는 성공 했으나 종료가 되지 않습니다.
> > 한번 봐 주세요...
>
> procedure Tftel.Disconnect;
> var
> atdtbuff : string;
> begin
> atdtbuff := 'ath0'+#13+#10;
> NetWriteString(atdtbuff);
> CloseHandle(hComm);
> end;
>
> procedure Tftel.NetWriteString(pszString :string);
> var
> lrc : DWORD;
> begin
> lrc := 0;
> if WriteFile(hComm, PChar(pszString)^, Length(pszString), lrc, nil) = false then
> begin
> showmessage('Com Port Write Error');
> exit;
> end;
> end;
>