Delphi 操作 DTS

 

DTS是SQL Server中用于完成一系列数据调度的工具，由于它的特殊性，在程序中操作DTS包是件麻烦的事情。 但是微软还算很厚道，留了一个接口，让用户在自己开发的程序中，可以无障碍的使用DTS包。本文讲述的就是如何在Delphi中操作DTS包。 一、导入相关的DLL 首先，新建一个Package，并保存 在Component->Import Component菜单中，选择Import Type Library 找到SQL Server安装目录下的DTSPkg.dll文件，并加载到Delphi中 将Dll生成的TLB文件导入到Package中 保存Package，编译，安装。 安装成功后，会在ActiveX面板下发现TPackage, TPackage2, TPropertiesProvider, TApplication, TCDTSLegacyDesigner 我们需要使用的是TPackage控件，其他的控件没有使用的必要。 二、TPackage控件 首先我们需要了解一下TPackage控件的属性，事件等等。由于是ActiveX控件，它的属性只有常规的ActiveX那一些，但是它提供的事件，都是非常有用的。 事件列表： OnError: 当出错时触发 OnFinish: 当DTS工作完成时触发 OnProgress: 当DTS进度改变时触发 OnQueryCancel: 当查询被取消时触发 OnStart: 当DTS工作开始时触发 注意：这5个事件必须都被实现，不然将引发异常。 常用属性： UseTransaction: 数据转换时是否开启事务 GlobalVariables: 全局变量 Tasks: 任务列表 Connections: 数据连接列表 Steps: 任务顺序列表 DTS的关键就在于事务，连接，任务和工作流。用这几个属性就可以完成大部分的DTS操作了。 需要注意的是，DTS的Tasks，Steps等属性的顺序，是会变化的，不能够跟据ID得到相关的属性值，只能够遍历属性，然后得到属性的名称与值。 三、代码实例 下面的代码即DTS任务属性查看器的一部分（注意代码中不能用for..in结构） procedure TFormDTS.OpenDTS(AfileName: string); var I, J: Integer; begin DTS.LoadFromStorageFile(AfileName, EmptyStr, EmptyStr, EmptyStr, EmptyStr); for i := 1 to DTS.Tasks.Count do begin Forms.Application.ProcessMessages; for j := 1 to DTS.Tasks.Item(i).Properties.Count do begin Forms.Application.ProcessMessages; mmDTS.Lines.Add(Format('P%d %s: %s',[j, DTS.Tasks.Item(i).Properties.Item(j).Name, DTS.Tasks.Item(i).Properties.Item(j).Value])); end; mmDTS.Lines.Add('---------------------------------------------'); end; end; 四、需要注意的地方 上面的代码可能细心的人已经发现了，我用了一句Forms.Application.ProcessMessages; 为什么一定要加上Forms呢？原因就是在DTS_TLB包中，包含了一个_Application对象，很碰巧的是，它的实例名称也是Application，为了区分它们，无论调用哪个Application，都必须先指定命名空间的名称。 另外，DTS是一个OLE对象，它的数组下标从1开始，而并非是0。