Q&A

  • 전화끊기 도와주세요 ???????????
> 헬프

> 모뎀으로 전화걸기는 성공 했으나 종료가 되지 않습니다.

> 한번 봐 주세요...



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;



1  COMMENTS
  • Profile
    김광섭 2001.02.01 01:47
    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;

    >



    TDialUp 중에 다음과 같은 메소드가 있네요 ^^

    참고로만 하세요.

    DialUp1.HangUpConn(Handle);

    그럼, 즐코~