You are here

이번에는 클라이언트 포트/ip 쪽인데요...

label .p -text port
entry .port -textvariable port
label .ip -text IP
entry .ipnum -textvariable ipnum
button .run -text 접속 -command {
        if { $ipnum != {} and $port != {} } {
        set host $ipnum
        set port $port
        tk_messageBox -message "서버에 접속중입니다...!!"
        } {
        tk_messageBox -message "port와 ip를 확인해주세요!!"
        }      
}

 set sock [socket $host $port]
 fconfigure $sock -blocking 0 -buffering line
 fileevent $sock readable [list receivemessage $sock]

일단 이렇게...코딩을 했는데요..물론 중간에는 텍스트나 메뉴같은 위젯이 있구요.....그런데요..이걸로 실행하는 실행이 안되고요..컴이 엄청 느려지면서....
계속 그상태로 유지되내요..에러라든가...아님 창이라도 뜨면 어떻게 해결을 하겠는데요...이번에도 도움을 요청합니다..^^
아참..그리고요 한 화면에 포트랑 ip를 입력하지 않고요
다른 창에서 입력하고 접속을 누르면 채팅 창이 로드되서 채팅을 할 수 있도록 구현이 가능한가요?? 요즘 여러 언어를 쓰다보니..너무 햇갈리내요..ㅜ.ㅜ