delphi中间件

摘要： TMS Scripter：支持Pascal和VBScript两种语法。优点是文档齐全、例子齐全，脚本可直接支持DLL，官方还提供了丰富的IDE Debug工具、单元导出函数工具等，缺点是编译运行较慢。for 空循环1000万次，需要10秒钟以上。TMS Scripter是商业共享软件。 FastScript：用过FastReport报表的同学都知道FastReport速度非常快。for 空循环1000万次，只耗费4至5秒左右。其中FastScript在报表可做版本排版微调处理、函数计算等。其优点是速度很快、很容易写出脚本单元的RTTI组件、支持pascal、VBScript、JS、C 四种语法 阅读全文

摘要： 业务规则使用脚本语言来描述，单独放进一个脚本文件里面（文本文件）保存。宿主程序运行时动态装载脚本文件里面的业务规则。改变业务规则只需要修改对应的脚本文件即可，而无须发动宿主程序。由于脚本文件是纯文本的，使用诸如记事本就可以编辑的。 阅读全文

摘要： 本例演示：宿主程序(exe)只有界面的设计，业务规则全部放在脚本文件里面。这个脚本文件是个纯文本文件，可以随意修改。一旦运行宿主程序就会装载脚本文件里面的脚本形式的业务规则。这样，业务规则很容易被修改。宿主单元：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, atScript, atPascal, StdCtrls, GridsEh, DBGridEh, DB, ADODB, ExtCtrls, DBCtrls, Button 阅读全文

摘要： Scripter工作室开发者向导版权2002 Automa tmssoftware.com概要Scripter工作室是把脚本能力加到你的应用程序的一套的Delphi/C++Builder部件。Scripter工作室能使你的最终用户使用可视化工具书写和执行自己的脚本。包含的组件有：TatPascalScripter － 非视觉组件，执行Pascal语法的脚本。TatBasicScripter － 非视觉组件，执行Basic语法的脚本。TatPascalFormScripter － 窗口认识Pascal脚本，继承自TatPascalScripter组件。TatBasicFormScripter － 阅读全文

摘要： 业务规则管理（Business Rules Management，简称BRM）在一个企业实体中同样存在着各种各样的规则，像管理制度、业务手册、工艺流程、操作规范、收费标准、促销策略等都是规则，甚至一些没有形成文字的惯例，也是企业规则的一部分。因为是与业务相关，所以又称它们为业务规则。业务规则分散在企业的各个角落，就算企业的决策者也很难说清楚自己的企业内部到底有多少业务规则在使用。大部分的业务规则存在于业务人员的大脑中，或是为数不多的工作手册、操作规范等非结构化的文档上。作为描述企业最重要特征的业务逻辑没有被有效地管理和使用，导致好的经验无法积累，差的经验无法总结。即使企业使用了计算机系统，业务 阅读全文

摘要： 在delphi中，数据集是最常用数据存取方式。因此，必须建立JSON与TDataSet之间的互转关系，实现数据之间通讯与转换。值得注意的是，这只是普通的TDataset与JSON之间转换，由于CDS包含了Delta数据包，其数据格式远比普通的TDataset更复杂。数据集字段信息，是一个完整的字典信息。因此，我们在JSON必须也建立字典信息，才能创建数据集的字段信息。我们设置其JSON信息如下： COLS:[字段列表信息]，如："Cols":[{"JsonType":"integer","FieldIndex":0 阅读全文

摘要： JSON(JavaScript Object Notation) 类似与 XML; 虽始于 JavaScript, 但被多种语言支持, 它也成了 Delphi 2009 的新功能之一用 json 可以表示一个对象: {"id":2, "name":"张三", "age":99}json 中:元素与值用冒号 ":" 隔开元素与元素用逗号 "," 隔开{} 之间是一个对象, 对象可以层层嵌套[] 表示数组, 数组元素用逗号 "," 隔开值可以是 string、 阅读全文

摘要： 功用一：在框架里面根据存储在数据表中的方法名来动态调用执行方法。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure FormCreate(Sender: TObject); published procedure Test(Sender: TObject); end;var Form1: TForm1;i 阅读全文

摘要： uses WinInet;procedure TForm1.Button1Click(Sender: TObject);begin if InternetGetConnectedState(nil, 0) then ShowMessage('已连接');end; 阅读全文

摘要： 之前已经有了两种多线程的同步方法:CriticalSection(临界区) 和 Mutex(互斥), 这两种同步方法差不多, 只是作用域不同;CriticalSection(临界区) 类似于只有一个蹲位的公共厕所, 只能一个个地进; Mutex(互斥) 对象类似于接力赛中的接力棒, 某一时刻只能一个 阅读全文