고객센터 > 기술지원

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

이름	이메일

업체명	연락처

제목

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

첨부파일변경 (파일 변경 시 기존 첨부파일은 삭제 됩니다. 2MB이하의 이미지, ZIP파일만 가능함)
	20151023_Form1.zip

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