You are here

tcl/tk 를 이용해서 채팅 프로그램을 만드는 중인데요...포트넘

label .l -text port
entry .e -textvariable e
button .b -text Run
pack .l .e .b -side left

if {![info exists sock]} {
set sock [socket -server connect 7777]
}

원래 구현했던 서버에는 위 부분처럼 포트 넘버를 미리 설정해주고 실행을 시켜야 합니다. 하지만 개인적으로 서버를 실행시키면 서버를 실행시킬 때 마다 포트넘버를 바꿔줘야 하는데..상당히 번거롭습니다.
그래서 위에 간단히 위젯을 구현한 부분에 포트를 치고 버튼(Run)을 눌렀을 때 값이 소켓의 포트넘버부분으로(현재 7777) 넘어가서 작동하도록 하고 싶은데요
제가 해봤는데...잘 감이 안잡히내요.
아시는분 알려주시면..감사하겠습니다.
더불어 포트넘버가 겹치면 에러문구가 뜨는것도요....
생소한 언어라...공부하기가 힘드내요.ㅋㅋ