고객센터 > 기술지원

질문&답변 게시판 / 기술지원

이름	이메일

업체명	연락처

제목

내용
> 솔내시스템(주) wrote: > ------------------------------------ > 안녕하십니까. 솔내시스템 기술지원팀입니다. VB.NET에서 ezManager DLL사용 관련하여 자료 조사한 결과를 첨부하였습니다. 회사에 VS2010을 보유하고 있지 않아서 테스트는 VS2012에서 진행하였습니다. 전체검색을 위한 구조체 선언 및 사용, IP주소 확인 및 설정을 위한 문자열 사용에 대한 부분만 확인했습니다. 이미 해결하셨는지는 모르겠지만 아래 내용을 참고하셔서 개발하시면 될 것 같습니다. 감사합니다. ----------------------------------------------------- Imports System.Runtime.InteropServices Imports System.Text Public Class Form1 Private Const NI_MAXHOST As Integer = 1025 <StructLayout(LayoutKind.Sequential)> Public Structure eztcp_info <MarshalAs(UnmanagedType.ByValArray, sizeconst:=6)> Public mac_address() As Byte <MarshalAs(UnmanagedType.ByValArray, sizeconst:=1025)> Public hostname() As Byte <MarshalAs(UnmanagedType.ByValArray, sizeconst:=65)> Public comment() As Byte <MarshalAs(UnmanagedType.I4)> Public env_status As Integer <MarshalAs(UnmanagedType.ByValArray, sizeconst:=32)> Public product_name() As Byte <MarshalAs(UnmanagedType.I4)> Public search_method As Integer <MarshalAs(UnmanagedType.I4)> Public search_port As Integer End Structure Public l_eztcp_info As New eztcp_info <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Ansi)> _ Public Shared Function GetWindowText(hwnd As IntPtr, <MarshalAs(UnmanagedType.LPStr)> lpString As System.Text.StringBuilder, cch As Integer) As Integer End Function <DllImport("ezManagerLib.dll", SetLastError:=True)> _ Public Shared Sub Start_Library() End Sub <DllImport("ezManagerLib.dll", SetLastError:=True)> _ Public Shared Sub End_Library() End Sub <DllImport("ezManagerLib.dll", CallingConvention:=CallingConvention.StdCall, SetLastError:=True)> _ Public Shared Function EzTCP_Search(udp_port_number As Integer, ByRef err As Long) As Integer End Function <DllImport("ezManagerLib.dll", CallingConvention:=CallingConvention.StdCall, SetLastError:=True)> _ Public Shared Function get_eztcp_count() As Integer End Function <DllImport("ezManagerLib.dll", CallingConvention:=CallingConvention.StdCall, SetLastError:=True)> _ Public Shared Function get_eztcp_info_by_index(index As Integer, ByRef out_eztcp_info As eztcp_info) As Integer End Function <DllImport("ezManagerLib.dll", CallingConvention:=CallingConvention.StdCall, SetLastError:=True, CharSet:=CharSet.Ansi)> _ Public Shared Function get_ip4_local_address(ByRef mac_address As Byte, <MarshalAs(UnmanagedType.LPStr)> out_address As StringBuilder) As Integer End Function <DllImport("ezManagerLib.dll", CallingConvention:=CallingConvention.StdCall, SetLastError:=True, CharSet:=CharSet.Ansi)> _ Public Shared Function set_ip4_local_address(ByRef mac_address As Byte, <MarshalAs(UnmanagedType.LPStr)> ip4_local_address As StringBuilder) As Integer End Function Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim err As Long Dim ret As Integer ret = EzTCP_Search(50005, err) Dim cnt As Integer cnt = get_eztcp_count() If cnt > 0 Then ret = get_eztcp_info_by_index(0, l_eztcp_info) Dim addr As StringBuilder = New StringBuilder(256) ret = get_ip4_local_address(l_eztcp_info.mac_address(0), addr) MsgBox(ret) MsgBox(addr.ToString()) addr.Clear() addr.Append("10.1.0.100") MsgBox(addr.ToString()) ret = set_ip4_local_address(l_eztcp_info.mac_address(0), addr) MsgBox(ret) addr.Clear() ret = get_ip4_local_address(l_eztcp_info.mac_address(0), addr) MsgBox(ret) MsgBox(addr.ToString()) End If End Sub Public Sub New() 's This call is required by the designer. InitializeComponent() 's Add any initialization after the InitializeComponent() call. Start_Library() End Sub Protected Overrides Sub Finalize() End_Library() MyBase.Finalize() End Sub End Class ----------------------------------------------------- > 김승호 wrote: > ------------------------------------ > 안녕하세요.. > > vb.net(2010)에서 ezManagerLib.dll 참조 추가시 Error 발생되어 문의 드립니다. > > 동적Lib 를 홈페이지에서 다운로드 받아 사용 했으며, 개발 Tools Visual studio 2010 (vb.net) 입니다. > > 운영체제는 64bit windows7 입니다. > > IP 및 Port 설정하는 프로그램을 개발 하고 있는데 dll 오류 발생되어 문의 드립니다.
비밀번호	보안코드

첨부파일 (2MB이하의 이미지, ZIP파일만 가능함)

기재하신 개인 정보는 문의내용에 대한 확인 및 신속하고 정확한 상담을 위해 수집 및 이용하고 있습니다. 기술 지원 외의 다른 목적으로 사용되지 않습니다. 위 개인정보 수집 및 이용에 동의합니다. 동의함 동의안함