解决方案 »
- 谁用过RemObjects啊?它的SOAP怎么才能被Java或.Net引用啊!
- 高分求助一个有关treeview数据库的sql语句?分不够,可加!再送你100分也可。
- !!!WebBrowser的问题,顶者有分!!!
- 超难问题,如何得到其他程序里轻量文字控件里的内容,该控件无句柄
- 如何提高该报表(fastReport)的生成速度,在线等!
- 关于登录窗体!帮忙大家。
- 已经找到 句柄 FindWindowEX 粘贴 怎么写呢
- 给你两个DataSource,两个Table,一个Database,不准再用Query,你能用代码实现查找字段的功能吗?
- 请问各位大虾,关于CORBA小问题!(见内容)
- 大哥们,在ListView中,如何设置每个元素的长度啊?
- 小白请教大虾们一个关于代理服务器的小问题!
- 组件stringgrid显示ORCAL数据库中的数据,具体如何操作
CoInitialize(nil); //以单线程的方式创建com对象
hphm:=StrPas(LicenceNo);//将LicenceNo赋值给string类型变量hphm
cpys:=StrPas(LicenceColor);//将LicenceColor赋值给string类型变量cpys
if Pos('10.',GetLocalIP)>0 then //判断是否GetLocalIP中包含‘10’字符串
Init(pchar(WSDLVPN))
else
Init(pchar(WSDLINT));
Result:='';
hphm:=StringReplace(hphm,'-','',[rfReplaceAll]); //将hphm字符串中的所有‘-’字符替换为空
hphm:=StringReplace(hphm,'.','',[rfReplaceAll]); //替换.为空
hphm:=StringReplace(hphm,' ','',[rfReplaceAll]); //替换空格为空
cpys:=StringReplace(cpys,'色','',[rfReplaceAll]); //替换'色‘为空
epccode:=StringToHex(hphm+':'+cpys);//将字符串转换为16进制
epccode:=fillRight(epccode,'0',24); //转换为4字节,右侧补0
cfgParam:=GetReaderParamEx(StrPas(ReaderParam),Worker); //GetReaderParamEx应该是一个自定义函数
hCom:=OpenComm(cfgParam.ComNum); //打开串口