EnumCapabilities方法

进口Leadtools进口Leadtools。编解码器进口Leadtools。Wia昏暗的会话作为WiaSession< TestMethod () > _公共子EnumCapabilitiesExample (按值传递父作为IntPtr)如果（不wiaSession.IsAvailable (WiaVersion.Version1))然后对话框。显示(“WIA 1.0版本未安装。”）返回结束如果会话=新WiaSession ()session.Startup (WiaVersion.Version1)昏暗的res作为dialgresult = session。SelectDeviceDlg(父,WiaDeviceType。默认的WiaSelectSourceFlags.NoDefault)如果res <> dialgresult。好吧然后对话框。显示("选择WIA设备出错。"）session.Shutdown ()返回结束如果AddHandler会话。EnumCapabilitiesEvent,AddressOfsession_EnumCapabilitiesEvent昏暗的rootItem作为对象=会话。GetRootItem (没有什么）如果不rootItem是没有什么然后会话。EnumCapabilities (rootItem WiaEnumCapabilitiesFlags.None)结束如果RemoveHandler会话。EnumCapabilitiesEvent,AddressOfsession_EnumCapabilitiesEventsession.Shutdown ()结束子私人子session_EnumCapabilitiesEvent (按值传递发送方作为对象，按值传递e作为WiaEnumCapabilitiesEventArgs)昏暗的strMsg作为字符串＝字符串空虚昏暗的strPropAccess作为字符串＝字符串空虚昏暗的strPropValue作为字符串＝字符串空虚strMsg =字符串.Format ("WIA能力计数= {0}"& Constants.vbLfe．CapabilitiesCount)Console.WriteLine (strMsg)’将接收到的能力信息打印到控制台窗口。如果e. abilitiescount > 0然后控制台。写Line(”能力的信息:“& Constants.vbLf)'打印接收到的能力属性ID。strMsg =字符串.Format (”属性ID:“&常数。vbTab &“{0}”& Constants.vbLfe．Capability.PropertyId.ToString())Console.WriteLine (strMsg)'打印接收到的能力属性名称。strMsg =字符串.Format (属性名:“&常数。vbTab &“{0}”& Constants.vbLfe．Capability.PropertyName)Console.WriteLine (strMsg)'打印收到的能力属性访问。如果(e.Capability.PropertyAttributes和WiaPropertyAttributesFlags. readwrite) = WiaPropertyAttributesFlags。读写然后strPropAccess & =“读写”其他的如果(e.Capability.PropertyAttributes和WiaPropertyAttributesFlags. read) = WiaPropertyAttributesFlags。读然后strPropAccess & =“读”结束如果如果(e.Capability.PropertyAttributes和WiaPropertyAttributesFlags. write) = WiaPropertyAttributesFlags。写然后如果（不字符串.IsNullOrEmpty (strPropAccess))然后strPropAccess & =“|写”其他的strPropAccess & =“写”结束如果结束如果结束如果如果(e.Capability.PropertyAttributes和WiaPropertyAttributesFlags. cashable) = WiaPropertyAttributesFlags。可变现的然后如果（不字符串.IsNullOrEmpty (strPropAccess))然后strPropAccess & =“|可兑现”其他的strPropAccess & =“可变现的”结束如果结束如果strMsg =字符串.Format (”属性访问:“&常数。vbTab &“{0}”& Constants.vbLfstrPropAccess）Console.WriteLine (strMsg)’打印出接收到的能力属性值。如果(e.Capability.PropertyAttributes和WiaPropertyAttributesFlags. list) = WiaPropertyAttributesFlags。列表然后strPropValue ="属性列表值:"& Constants.vbLf昏暗的我作为整数= 0做而i < e.Capability.Values.ListValues.ValuesCount如果(e.Capability.VariableType和WiaVariableTypes. bstr) = WiaVariableTypes。型然后strPropValue = strPropValue & Constants。vbTab + Convert.ToString (e.Capability.Values.ListValues.Values(我))+ Constants.vbLfElseIf(e.Capability.VariableType和WiaVariableTypes. clsid) = WiaVariableTypes。Clsid然后昏暗的guidValue作为系统。Guid =CType(e.Capability.Values.ListValues.Values(我),System.Guid)strPropValue = strPropValue & Constants。vbTab + guidValue.ToString() + Constants.vbLf其他的strPropValue = strPropValue & Constants。vbTab + (Convert.ToInt32(e.Capability.Values.ListValues.Values(i))).ToString() & Constants.vbLf . vblf结束如果I += 1循环ElseIf(e.Capability.PropertyAttributes和WiaPropertyAttributesFlags. range) = WiaPropertyAttributesFlags。范围然后strPropValue =字符串.Format ("属性范围值:"& Constants.vbLf+ Constants.vbTab &"最小值:{0}"& Constants.vbLf+ Constants.vbTab &“最大值:{1}”& Constants.vbLfe.Capability.Values.RangeValues。MinimumValue e.Capability.Values.RangeValues.MaximumValue)ElseIf(e.Capability.PropertyAttributes和WiaPropertyAttributesFlags. flag) = WiaPropertyAttributesFlags。国旗然后strPropValue = e.Capability.Values.FlagsValues.FlagValues.ToString()其他的属性值的类型为“None”，在这种情况下，您可以根据接收到的变量类型调用适当的GetPropertyXXX方法来检索该值。strPropValue =“物业价值:”昏暗的rootItem作为对象=会话。GetRootItem (没有什么）如果(e.Capability.VariableType和WiaVariableTypes. bstr) = WiaVariableTypes。型然后昏暗的stringValue作为字符串=会话。GetPropertyString (rootItem没有什么e.Capability.PropertyId)strPropValue &= stringValueElseIf(e.Capability.VariableType和WiaVariableTypes. clsid) = WiaVariableTypes。Clsid然后昏暗的guidValue作为Guid = session。GetPropertyGuid (rootItem没有什么e.Capability.PropertyId)strPropValue &= guidValue.ToString()其他的昏暗的longValue作为整数=会话。GetPropertyLong (rootItem没有什么e.Capability.PropertyId)strPropValue &= longValue.ToString()结束如果结束如果Console.WriteLine (strPropValue)结束如果结束子