VB6 에서 발생하는 에러 입니다.

 

UDP 소켓을 이용하시나요?

sckUDP.SendData "aaa"

 

상대방 UDP 포트가 없다면 송신 오류가 발생한다.

근데 SendData 할때는 발생하지 않고

 

 

Private Sub sckUdp_DataArrival(ByVal bytesTotal As Long)
    Dim sRecvData As String
    sckUDP2.GetData sRecvData    '// 여기서 발생한다.
    Call S_LPR_Process(1, sRecvData)
End Sub

 

 

처리 방법은 아래와 같다.


Private Sub sckUdp_DataArrival(ByVal bytesTotal As Long)
    On Error Resume Next
    Dim sRecvData As String
   
    sckUDP2.GetData sRecvData
    If err.Number Then err.Clear: Exit Sub
       
    Call S_LPR_Process(1, sRecvData)      
End Sub

 

 

 

참고자료.

https://support.microsoft.com/ko-kr/kb/260018

 

Posted by +깡통+
이전버튼 1 2 3 4 5 6 7 이전버튼