周六日
花了一个周六日，用C#重新写了原来VB上的门禁与读写器上位软件。
C#是强数据类型的，而VB是弱数据类型，以致于我抄VB的程序时不断的Convert。显然这不好，但现在至少保证能运行，以后再维护重构吧，呵呵。
还有一点，VB里面的integer是16位的整型 = C#里的short
1 /// <summary> 2 /// 在线开门 3 /// </summary> 4 /// <param name="strDevno"></param> 5 /// <param name="strCom_IP"></param> 6 /// <param name="intConnType"></param> 7 /// <param name="strDoorNo"></param> 8 /// <returns></returns> 9 static public bool openDoorOnline(string strDevno, string strCom_IP, string strDoorNo ) 10 { 11 int iCheckNum = 0; 12 int i = 0; 13 int icdev = 1; 14 int iGetResult = 1; 15 bool bUdpResult = false ; 16 byte[] CommandData = new byte[23]; 17 byte[] Gdata = new byte[50]; 18 string[] strIP; 19 20 21 if (strCom_IP.Length > 6) 22 strIP = strCom_IP.ToString().Split('.'); 23 else 24 strIP = "0.0.0.0".Split('.'); 25 26 CommandData[0] = 126; 27 CommandData[1] = byte.Parse(strIP[0]); 28 CommandData[2] = byte.Parse(strIP[1]); 29 CommandData[3] = byte.Parse(strIP[2]); 30 CommandData[4] = byte.Parse(strIP[3]); 31 CommandData[5] = Convert.ToByte(int.Parse(strDevno) % 256); 32 CommandData[6] = Convert.ToByte(int.Parse(strDevno) / 256); 33 CommandData[7] = 157; 34 CommandData[8] = 4; 35 CommandData[9] = 0; 36 CommandData[10] = byte.Parse(strDoorNo); 37 for (i = 11; i <= 13; i++) 38 { 39 CommandData[i] = 0; 40 } 41 for (i = 5; i <= 13; i++) 42 { 43 iCheckNum = iCheckNum + CommandData[i]; 44 } 45 iCheckNum = iCheckNum % 65536; 46 CommandData[14] = Convert.ToByte(iCheckNum % 256); 47 CommandData[15] = Convert.ToByte(iCheckNum / 256); 48 49 if (strCom_IP.Length < 6) 50 { 51 icdev = com_init(strCom_IP, 38400); 52 if (icdev > 0) 53 { 54 iGetResult = getDataUIM(icdev, 16, CommandData, 16, Gdata, 1000); 55 } 56 else 57 { 58 iGetResult = 1; 59 } 60 com_exit(icdev); 61 62 return Convert.ToBoolean(iGetResult); 63 } 64 else 65 { 66 bUdpResult = UdpComData(16, CommandData, 16, Gdata, strCom_IP, 60000, 1000); 67 return bUdpResult; 68 } 69 70 }
