delphi中间件

摘要： unit WebAdoStream;{**************************************************************** 单元名称：WebAdoStream.pas 创建日期：2009-10-01 创建者 本模块改编于 New Midas VCL Library(1.00)的JxStream.pas 功能: 当前版本： Email：dcopyboy@tom.com QQ:445235526***************************************************************}interfaceuses ... 阅读全文

摘要： http://www.ccw.com.cn/applic/prog/htm2003/20030423_096DZ.htmado控件的參數轉化為Variant数组使用ClientDataSet的DataRequest方法把Variant数组上传触发服务器DataSetProvider的OnDataRequest事件，在OnDataRequest对上传的Variant数组进行解析服務器上的ADO控件根據上傳的參數操作數據庫把操作的結果轉換為Variant数组，下發客戶端客戶端解析Variant数组，顯示數據//Parameters转换为Variant数组function ParametersToV 阅读全文

摘要： 表結構：exeno caption params sqlcommand tablename201 登錄 @loginname ftsring(20) select * from user where loginname=:loginname user//author: cxgunit MySQL;interfaceuses SysUtils, ADODB, uFunction;type TMySQL = class(TObject) private fExeNo: Integer; fCaption: string; fParams: string; fSqlcommand: string; 阅读全文

摘要： CnPack多语组件是CnPack组件包中的一个重要组成部分，主要用来用来实现多语言界面。它们虽未组成可安装的独立组件包，但它们功能相对独立，在组件板上独占一页，和其他组件关联不大。1、 最简单的多语组件的使用步骤1. 建立一空工程，拖放一些可视化组件在上面。保存。2. 拖一TCnHashLangFileStorage，添加一语言条目。3. 拖一TCnLangMgr，LanguageStorage设置为刚才的CnHashLangFileStorage1。4. 拖一TCnLangTranslator，双击打开翻译管理器，生成语言条目并翻译、保存。5. 运行，代码中写CnLanguageManag 阅读全文

摘要： Beep 其实是调用的 API 函数: MessageBeep(MB_OK); MessageBeep 有下面几种用法可以调用几种不同的声音文件: MessageBeep(MB_OK);MessageBeep(MB_ICONHAND);MessageBeep(MB_ICONQUESTION); {这个不响, 不知道为什么}MessageBeep(MB_ICONEXCLAMATION);MessageBeep(MB_ICONASTERISK);MessageBeep($FFFFFFFF); {同 MessageBeep(MB_OK);} 阅读全文

摘要： type TLoginUser = record //登陆用户结构 id: string; name: string; ruleid: string; rulename: string; pwd: string; end; PShareObjectRecord = ^TShareObjectRecord; TShareObjectRecord = record //共享对象结构 Connection: TADOConnection; LoginUser: TLoginUser;end; var G_PShareObjectRecord: PShareObjectRecord;//... 阅读全文

摘要： AdvAlertWindow1.AlertMessages.Add.Text.Text := s; AdvAlertWindow1.Last; AdvAlertWindow1.Show;tms套件中控件，做消息提示框效果非常好。 阅读全文

摘要： Delphi中使用ListView和TreeView的Item中的Data可能被忽略的内存泄漏问题，使用了Data作为指针的数据，在删除项目时，这些内存将不会释放，可以在OnDeletion事件中加入Dispose(Item.Data); 语句来实现释放。 Delphi中大家在使用 ListView和TreeView时，一般都会使用到Item的Data属性来保存大家自己的内部数据，这个Data的声明如下：property Data: Pointer;大家可以看到它就是一个指针，使用上一般类似如下代码（以ListView为）添加时PViewItemState = ^TViewItemState; 阅读全文

摘要： 发送结构体：TMyData = record id:Integer; Name:Array[0..20] of Char; Sex:Array[0..10] of Char; Age:Byte; Address:Array[0..256] of Char; UpdateTime:double; en 阅读全文

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormShow(Sender: TObject); private { Private declar... 阅读全文