unit MyADO;
interface
uses
SysUtils, Classes,ADODB,DB,Variants,StdCtrls,Dialogs;
type
TMyADO = class(TComponent)
private
Connection: TADOConnection;
Query: TADOQuery;
Table: TADOTable;
FConnectionString:string;
procedure InitQuery(InputQuery: TADOQuery; QueryString: String);
function CheckParaEqual(QueryString: String; ParameterList: TStringList):Boolean;
procedure InitParameter(InputQuery:TADOQuery;QueryString:string;ParameterList:TStringList);
public
constructor Create(ConnectionString: String);virtual;
destructor Destory;virtual;
procedure SetConnectionString(ConnectionString: string);
function GetConnection():TADOConnection;overload;virtual;
function GetConnection(ConnectionString: String): TADOConnection;overload;virtua ......
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 四种语法，缺点是文档和例子比较少，默认的脚本不能直接支持DLL。FS也是商业共享软件。
Remobjects PascalScript，顾名思义，只支持pascal语法，Remobjects 初衷是在DA里提供自定义的脚本处理。优点是免费软件，脚本直接支持DLL 。缺点是文档不多。速度比TMS Scripter 稍快。
PaxScripter是综合性能最好的脚本解释器。其优点是速度最快，for 空循环1000万次，只耗费1至2秒左右。文档和例子比较齐全，有导出函数工具。脚本里直接支持DLL。支持pascal、VBScript、JS、C 四种语法。缺点是，作者0 ......
转载自：http://www.cnblogs.com/jdmei520/archive/2009/06/17/1505053.html
Webservice技术的出现将各种开发技术和语言完全的融合了，下面就这种融合在C#和delphi之间的交互做一次全面的体现
1.使用C#创建一个Webservice服务。
使用vs2005的模板创建C#的webservice非常容易。原文件如下:
[WebService(Namespace = "http://localhost/webserver/")]
[WebServiceBinding(ConformsTo = WsiProfiles.BasicProfile1_1)]
public class Service : System.Web.Services.WebService
{
public Service () {
//如果使用设计的组件，请取消注释以下行
InitializeComponent();
}
#region Component Designer generated code
private void Init ......
转载自：http://www.cnblogs.com/jdmei520/archive/2009/06/17/1505053.html
Webservice技术的出现将各种开发技术和语言完全的融合了，下面就这种融合在C#和delphi之间的交互做一次全面的体现
1.使用C#创建一个Webservice服务。
使用vs2005的模板创建C#的webservice非常容易。原文件如下:
[WebService(Namespace = "http://localhost/webserver/")]
[WebServiceBinding(ConformsTo = WsiProfiles.BasicProfile1_1)]
public class Service : System.Web.Services.WebService
{
public Service () {
//如果使用设计的组件，请取消注释以下行
InitializeComponent();
}
#region Component Designer generated code
private void Init ......
http://book.77169.com/data/web5302/20050228/20050228__3692503.html
ActiveX 和 Web
在Windows 操作系统下，有一个重要的机制，就是OLE ，就是可以让某
个应用程序（OLE Controller）访问其它应用程序（OLE Server）所提供的
功能，这样做的好处是，如果已经有了完成某项功能的程序，你就不必再为
某项功能编写特定的应用程序，可以直接通过OLE 调用。
一、 制作用Web 调用的ActiveX
首先设置一个虚拟目录，定名为Delphi
1）进入Delphi，Close all
2）New -> Other -> ActiveX -> ActiveX Form ->Name: MyActiveX
OK
3）出现一个普通的Form界面，放入
TButton
TListBox
TEdit
三个控件，设计目标是，点Button后ListBox添加一个Edit的内容。
4）Save all 到虚拟目录的 ActiveX\Ac2\ 子目录下。
5）双击Button，在Button1Click事件程序下写：
ListBox1.items.add(edit1.text);
6）这就完成了，保存。
7）Porject ->Build All 编译
8）Porject -〉Web Deployment Options 设置分发参数
第一项：OCX保存的目录 （虚拟目录\ActiveX\ac2\）
第二项：OCX保存在哪个相对路径中
（http://127.0.0.1/delphi/ActiveX/ac2/）
第三项：Delphi� ......
function ExpCalc(exp: string): string;
var
vScript: Variant;
begin
vScript := CreateOleObject('ScriptControl');
vScript.Language := 'VBScript';
Result := vScript.Eval(exp);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=ExpCalc('100 *4.17/0.5*(55.22+22)/3.14');
ShowMessage(s);
end;
......
dynamic就是它是动态方法，没有静态地址，所以速度慢一点
virtual是虚方法，如果在基类中不声明成虚方法的话，继承后，该方法会提示一警告信息，把基类中方法屏蔽掉了
---------------------------------------------------------------
动态（Dynamic）和虚拟（Virtual）后都可以使用Override关键字在派生类中对对应方法进行覆盖从而实现多态......
虚拟方法和动态方法在语义上可以说是等价的，他们唯一的区别在于对方法调用策略的内部实现上：虚拟方法从速度最优化的角度实现代码优化，而动态方法则是从空间最优的角度实现代码优化......
被覆盖的动态方法在派生类的VMT中不再出现........所以节省空间........但查询速度慢
被覆盖的虚拟方法在怕生类的VMT中再次出现........所以查询速度快......但浪费空间
---------------------------------------------------------------
虚拟方法和动态方法
要使一个方法成为虚拟的或动态的，需要在其声明中包括指示字virtual或dynamic。虚拟方法和动态方法不同于静态方法，它们可以在其后裔类中被覆盖（overridden）。当一个覆盖方法被调用时，方法调用中使用的类或对象的实际（运行时）类型决定了哪一个 ......
最新文章 : delphi