代码改变世界

JSON数组读取和保存

2018-10-29 13:31 by 圣二十一郎, 1934 阅读, 0 推荐, 收藏, 编辑
摘要:生成JSON数组: 读取JSON数组 阅读全文

XML文件读写示例

2018-10-26 09:36 by 圣二十一郎, 545 阅读, 0 推荐, 收藏, 编辑
摘要:写XML文件: 读取XML文件: var IXMLDoc : IXMLDocument; XMLNode, xNodeItem: IXMLNode;begin IXMLDoc := NewXMLDocument(); try XMLNode := IXMLDoc.AddChild('ConfigIn 阅读全文

JSON代码示例

2018-08-14 09:06 by 圣二十一郎, 604 阅读, 0 推荐, 收藏, 编辑
摘要:生成JSON: 解析JSON: 阅读全文

Delphi接口示例代码

2018-08-08 14:37 by 圣二十一郎, 271 阅读, 0 推荐, 收藏, 编辑
摘要:IMyInterface = interface(IInterface) ['{63E072DF-B81E-4734-B3CB-3C23C7FDA8EA}'] function F1 : Integer; stdcall; end; TFooBar = class(TBaseProperty, IMyInterface) function F1 : I... 阅读全文

获得wav语音文件时长

2018-04-08 14:48 by 圣二十一郎, 1428 阅读, 0 推荐, 收藏, 编辑
摘要:用代码获取文件时长。 直接读取wav文件头信息,从文件起始地址偏移28个字节长度为4个字节保存的是每秒钟播放的字节数, 从文件起始地址偏移40个字节长度为4个字节保存的是声音数据的总的字节数,相除就是播放时间。 阅读全文

javaweb注册页面学习之路(三)

2017-08-24 16:44 by 圣二十一郎, 173 阅读, 0 推荐, 收藏, 编辑
摘要:本次重构优化内容 1 使用AJAX技术 2 后台输出JSON格式数据到前台 通用ajax.js文件 1 var xmlHttp = null; 2 var succCallbackEvent = null; 3 var failCallbackEvent = null; 4 5 function c 阅读全文

javaweb注册页面学习之路(二)

2017-08-14 11:18 by 圣二十一郎, 278 阅读, 0 推荐, 收藏, 编辑
摘要:本次重构优化内容 1 前端页面增加JS判断 2 使用JSTL+EL替换JSP语句 3 Servlet增加用户名是否重复检查 注册页面 userReg.jsp 后台Servlet 阅读全文

javaweb注册页面学习之路(一)

2017-08-11 10:10 by 圣二十一郎, 458 阅读, 0 推荐, 收藏, 编辑
摘要:最近开始学习JavaWeb开发,把自己学习时做的例子从最原始的代码到重构后代码记录一下。 这是一个关于日记本的Web程序,逻辑很简单。 注册新用户 用户登录查看编辑删除日记 查看别人公开的日记 我们以注册页面代码为例,使用最基本的JSP+Servlet方法实现。 UserReg.jsp UserSv 阅读全文

自己整理的数据库连接池

2013-02-21 14:45 by 圣二十一郎, 308 阅读, 0 推荐, 收藏, 编辑
摘要:这是从网上收集资料重新整理后的一个数据库连接池管理类,目前实现了下面三项功能,1数据库连接数量的限制2自动断开设定时间内没有使用过的数据库连接3单例模式中多线程的异步访问控制单元文件unit utConnManage;unit utConnManage;interfaceuses ADODB,DB,Classes,SyncObjs,Windows,SysUtils,Controls, ActiveX,Dialogs, utRWConfig,DateUtils,utIntervalThread;type PCon = ^TPCon; TPCon = record Id :Inte... 阅读全文

通过Remobject组件存储图片

2011-09-01 10:51 by 圣二十一郎, 836 阅读, 0 推荐, 收藏, 编辑
摘要:应用环境:服务端:TROBinMessage,TROIndyHTTPServer 提供服务接口: IBinaryMidService = interface ['{51904085-6D27-4EDA-A55D-A9EE21686894}'] function Add(Const ANum:AnsiString; const AType: AnsiString; const AValue: Binary): Integer;end; 客户端:TROBinMessage,TROWinInetHTTPChannel,TRORemoteService 数据库:Oracl... 阅读全文