> 헬프
> 모뎀으로 전화걸기는 성공 했으나 종료가 되지 않습니다.
> 한번 봐 주세요...
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;
> > 헬프
> > 모뎀으로 전화걸기는 성공 했으나 종료가 되지 않습니다.
> > 한번 봐 주세요...
>
> 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;
>
TDialUp 중에 다음과 같은 메소드가 있네요 ^^
참고로만 하세요.
DialUp1.HangUpConn(Handle);
그럼, 즐코~