摘要：
生成JSON数组： 读取JSON数组 阅读全文
随笔分类 - Delphi程序
XML文件读写示例
2018-10-26 09:36 by 圣二十一郎, 568 阅读, 收藏,
摘要：
写XML文件： 读取XML文件： var IXMLDoc : IXMLDocument; XMLNode, xNodeItem: IXMLNode;begin IXMLDoc := NewXMLDocument(); try XMLNode := IXMLDoc.AddChild('ConfigIn 阅读全文
Delphi接口示例代码
2018-08-08 14:37 by 圣二十一郎, 368 阅读, 收藏,
摘要：
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 圣二十一郎, 1611 阅读, 收藏,
摘要：
用代码获取文件时长。 直接读取wav文件头信息，从文件起始地址偏移28个字节长度为4个字节保存的是每秒钟播放的字节数， 从文件起始地址偏移40个字节长度为4个字节保存的是声音数据的总的字节数，相除就是播放时间。 阅读全文
自己整理的数据库连接池
2013-02-21 14:45 by 圣二十一郎, 318 阅读, 收藏,
摘要：
这是从网上收集资料重新整理后的一个数据库连接池管理类，目前实现了下面三项功能，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 圣二十一郎, 848 阅读, 收藏,
摘要：
应用环境:服务端: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... 阅读全文
应用软件里基本信息设置的处理方法
2011-06-29 15:11 by 圣二十一郎, 473 阅读, 收藏,
摘要：
在应用软件中，,有大量的基本信息设置窗体，如：部门设置,人员设置等。问题: Form1窗体上有增加，修改，删除按钮和一个dbgrid表格。点击增加按钮，弹出form2增加内容窗体， 在form2上有个追加选项框，可以一直增加而不用退出form2窗体。 不知道大家是如何处理form1窗体和form2窗体之间的的内容同步呢?当然了，方法有一大堆。怎么写都会实现这个功能。下面我就说一下我的处理方法：公共单元中定义一个方法类型 TSimpleEvent=procedure (pUTObject:TObject) of object;form1窗体增加一个过程 procedure AppendType( 阅读全文
浙公网安备 33010602011771号