ip,소켓관련 팁 모음..devpia게시물 발췌(05.02.23)

예전 카페에서 폐지 공지가 와서 자료를 옮겨 놓습니다.

---

 

자기 컴의 ip 주소 알아내는 방법입니다.

        Dim a As String
        Dim b As IPAddress
        Dim i As IPHostEntry
        Dim c As String

        a = Dns.GetHostName()
        i = Dns.GetHostByName(a)
        For Each b In i.AddressList
            c = b.ToString()
            MessageBox.Show(c)
        Next

//=======================================================

소켓 통신시 한글처리

소켓으로부터 스트림 Object를 받고서 StreamReader 와 StreamWriter를
생성할때 Encoding 개체를 넘겨줍니다.

VB.NET 샘플에는 Encoding 개체를 ASCII 로만 사용하였기에 한국에
맞지 않는 샘플이라 하겠습니다.(?)

System.Text 네임 스페이스에 보면 UTF7, UTF8, Unicode, ASCII 등등
있는데 유니코드 Encoding 개체를 보면 왠 리틀/빅인디안어?
한국어는 없습니다.

그렇기 때문에 Encoding에 한국어 코드 페이지를 지정하여 예약되지
않은 Encoding 개체를 생성해야 합니다.
한국어 코드 페이지는 949 입니다.
다음 소스에서 처럼 Encoding 개체와 스트림 개체를 생성 하시기 바랍니다.

        Public Sub New(ByVal Socket As System.Net.Sockets.Socket)
            Try
                _Socket = Socket

                Dim Stream As New System.Net.Sockets.NetworkStream(_Socket)
                Dim En As System.Text.Encoding
                Dim Korean As System.Text.Encoding
                Korean = En.GetEncoding(949)


                Reader = New System.IO.StreamReader(Stream, Korean)
                writer = New System.IO.StreamWriter(Stream, Korean)
                Connections.Add(Me, UniqueKey)
            Catch
                Me.Finalize()
            End Try
        End Sub

파일 스트림을 다루실때 역시 Encoding을 필요로 할지 모르겠습니다.
만약 파일에서 한글이 안읽히면 코드페이지를 지정해 주시기 바랍니다.

//=============================================================