摘要：function Fuzhi135(s: string): string;var cCount,eCount,eCountNum,i,isum: Integer;begin cCount := 0; eCount := 0; eCountNum := 0; for i := 1 to length(s) do begin if ByteType(s, i) = mbSingleByte then inc(cCount) else if ByteType(s, i) = mbLeadByte then begin Inc(eCount); eCountNum := eCountNum + 2; 阅读全文

摘要：1.测试对账710-----711前台------snd客户端-----------rcv（模拟人行） 阅读全文

摘要：经过项目组几个人的共同努力，目前，新仿真产品已经进入测试阶段，模拟场景也基本已经开发完，总于可以松一口气了。回想一下开发的整个流程，发现存在的问题有很多，具体有一下几点：1.开发人员都对业务流程不熟悉。2.对具体需要做那些报文，大家都不太清楚；包括测试人员。（后来才知道前两个月开发的报文，后台还没有提供接口，导致全部作废）3.开发过程枯燥，对于所有来账报文，一条报文至少对应两个界面。4.按照人行的标准组报文困难，五花八门，控制起来比较难。5. 和后台模拟测试的时候，问题出现的比较多，很少有人懂后台。6.一代报文和模拟往账回执场景。针对第一个问题，前期吃了很多苦头，刚开始根本不知道从何下手，如果 阅读全文

摘要：1.带标记的窗体的源码procedure TfrmBusinessSet.loadConfig; s := ChangeFileExt('businessset', '.ini'); if not fileExists(s) then begin ShowMessage('未找到配置文件'+ s); Application.Terminate; exit; end; ini := TIniFile.Create(s); cmb124PrcSts.Items.Add('PR02:已付款'); cmb124PrcSts.Items.A 阅读全文

摘要：1.在线jpg图片转换成icohttp://free.logomaker.cn/tools/icoMaker.aspx 阅读全文

摘要：从仿真项目产品到现在已经3,4个月了，其中一直存在一个问题：客户端连接服务端，服务端连接后台出现的问题。服务端连接后台成功，老是出现客户端向后台发送数据，服务端监听的端口无任何反应。再者就是电脑出现一个问题，每天都需要更换新的端口，或者数据还是无法发送。仿真II代来账基本已经开发完，现在进入测试阶段，这个问题搞的大家都头大。我也很是纠结于这个问题。到底原因出在那里。在4.11号下午下班后，我一直在思考这个问题，单独的监听连接没有问题，为何连接后台就报错呢。回到家，我仔细研究了几年前写的服务器代码，总于找到了症结的所在。问题1.单独连接正常，和后台通讯之后，前台无法正常发送数据。我觉得原因可能是 阅读全文

该文被密码保护。

摘要：netstat -an | grep 5101 阅读全文

摘要：win7模式下。A--->BB的端口已经启动，但是A无法连接。原因可能：B的防火墙开启，导致A无法连接。 阅读全文

摘要：问题描述：仿真前台连接仿真服务端，仿真服务端连接后台。仿真前台单独连接仿真服务端发送没有问题。调式模式下发送报文也没有问题。但是在执行文件的时候，前台发送的报文，后台没有反应，无法接受。问题解决办法：数据库连接。端口被占用 阅读全文

摘要：cnpack下载地址：http://www.cnpack.org/showdetail.php?id=726&lang=zh-cn时候创建的子窗体不能关闭，点关闭按钮时子窗体最小化了。出现这种情况的时候可在窗体的 onClose 事件 中加入 Action := caFree; 即可；例：procedure TTInputCLSY.FormClose(Sender: TObject; var Action: TCloseAction);begin Action := caFree;end; 阅读全文