delphi程序如何打包及客户端如何连接服务器设置

sql

server2000是数据库服务器，通过连接字符串连接就可以了。

至于你的delphi程序打包的方式很多，也可以直接拷贝到其他电脑上用，只要你delphi程序所在的电脑能连上你的sql数据库就可以。

连接sql数据库代码：

adoconMainConnectionString:='';

if

pw<>''

then

adoconMainConnectionString:='Provider=SQLOLEDB1;Password='+pw+';Persist

Security

Info=False;User

ID='+username+';Initial

Catalog='+catename+';Data

Source='+servername

else

adoconMainConnectionString:='Provider=SQLOLEDB1;Persist

Security

Info=False;User

ID='+username+';Initial

Catalog='+catename+';Data

Source='+servername;

try

adoconMainConnected:=true;

adoconMain是TAdoConnection控件。

一、 引言

　Windows支持三种基本的IPC（进程间通信）机制：动态链接库（DLL）中的共享数据段、Windows剪贴版(CliPBoard)和动态数据交换DDE(Dynamic Data Exchange)。许多的Windows应用程序如Microsoft Word等都宣布支持DDE技术，并在程序中嵌入了DDE消息处理函数。而此类应用程序单在DDE技术上讲大多是作为一个DDE服务器形式存在的，这就允许用户通过自行编制的一些外围软件以DDE客户的身份对其进行连接，并通过向DDE服务器程序发送一些特定的宏命令来完成对服务器程序的动态控制，本文就以常用的Microsoft Word为例，讲述了在Delphi 编程环境下如何编制DDE客户程序，使其动态控制Microsoft Word的一般方法。

　二、 DDE的工作原理

　DDE顾名思义，是提供对不同程序在运行期间实现对数据的动态交换的一种通用技术。Windows消息虽然是在不同程序窗口间传送信息的手段，但一条消息只能包含两个参数（wParam和lParam），不能传送较多的信息。内存块是存放较多信息的重要手段，但不支持全局内存句柄的共享。DDE正是建立在Windows内部消息系统、全局原子和共享全局内存基础上的一种协议，用来协调Windows应用程序之间的数据交换和命令调用。

　DDE协议使用三级命名：服务（service）、主题(topic)和数据项（item）来标识DDE所传递的数据单元。服务使应用程序具有了提供给其他程序的数据交换能力，一般服务就是应用程序的文件名，如Word的服务就是是Winword(可执行文件是Winwordexe)；主题是对服务器有意义的信息单元，对于Word文档就是很好的主题，许多服务器都有默认的主题System,但无法知道服务器确切有那些主题，除非查阅应用程序的相关技术文档。每次DDE客户与服务程序之间的对话都是先由客户启动的，所以在每次客户启动之前，DDE服务器必须先投入运行，下面是一个典型的DDE会话流程的事务组成：

　·客户程序自动会话，服务器程序响应。

·客户和服务器用下述方法交换数据：

·服务器应客户的请求向客户发送数据；

·客户主动想服务器发送数据；

·客户要求服务器在数据修改时发送数据（热数据连接）；

·客户要求服务器在数据修改后发送通知（温数据连接）；

·在客户的要求下，服务器执行一个命令。

·由客户或服务器中止会话。

　三、 设计思路

　首先，在开发工具的选择上，选择了提供有现成的DDE 系列组件的 Borland Delphi 50。既然以Microsoft Word作为要连接的服务器，在与其建立连接之前要先设定好连接的服务与主题，由于本例只要求通过本程序控制Word的一些操作动作，如打开新文件、关闭文件、插入表格等等，所以可以分别设定这两项为："Winword"和"System"，当设置好连接后就可以通过Delphi提供的DDEClientConv组件的OpenLink函数打开与这个服务的连接，剩下的工作就是向Word服务器发送宏命令，并通过组件向其发送执行宏的命令即可，用该组件的函数ExecuteMacro来实现之。

SQLD-IBDLL 包含InterBase驱动程序和支持文件的动态链接库SQLINT32DLL

INTRBASE驱动类型 加在配置工具的驱动管理程序中以配置基本的Borland InterBase SQL Link驱动程序

INTRBASE别名类型 加入配置文件的别名以使建立联接SQL服务器数据库的别名

SQLD_IBHLP 配置InterBase驱动程序的帮助文件

READLINKTXT Borland SQL Links for Windows自述文件

INTERBASMSG InterBase消息文件，通常安装上C:\INTERBASCONNECTEXE 测试工作站和InterBase服务器连接情况的工具

REMOTEDLL、 InterBase的支持动态链接库

GDSDLL、GDS32DLL

将InterBase服务器描述 安装过程修改工作站的SERVICES文件以增加用于加入SERVICES文件 InterBase 服务器访问所需的协议描述 ，

如：gds- db3050/tcp

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

软件项目中还应包括TCP/IP接口软件

下表列出的文件给InterBase客户端应用提供访问Winsock11的接口

表188 TCP/IP接口软件

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

文 件 名 描 述

————————————————————————————————

MVWASYNCEXE 异步通信模块

VSLINT TCP/1P传输初始化文件

WINSOCKDLLWindows Socket动态链接库

MSOCKLIBDLL 将Windows Socket调用映射到VSL驱动程序

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

如果TCP/IP产品不是Winsock11兼容，InterBase客户端应用将也可采用其它TCP/1P 驱动程序。InterBase服务器还可支持其它通信协议，如SPX/1PX，NetBeIU等。

4 解决一般的联接问题

如果用SQL Links建立与InterBase服务器的连接有问题可采用下列步骤来分离问题原因：

⑴ 通过Windows ISQL工具测试能否与InterBase服务器联接如果成功，状态信息会出现，并继续步骤⑵。如果不成功，询问数据库管理员。

⑵ 检验InterBase SQL Links 驱动程序是否正确安装。

⑶ 重新安装SQL Links。

⑷ 检查SERVICES，文件中应有行：

gds_db 3050/tcp

如果不能正确安装，就请询问数据库管理员，否则继续步骤⑸。

⑸ 测试底层协议

① 输入TELNET命令，确认TCP库是否正确安装。

如果TCP库正确安装，注册提示符会出现。注册入网检查数据库是否存在。

如果消息是“can't resolve hostname” 出现，检查工作站的HOSTS文件是否有你 的主机名和IP地址的人口。如：1281275012 mis_server

如果用TELNET是成功的，但仍然无法正确联接，则没有正确安装InterBase。请寻求数据库管理员的帮助。

② PING到服务器服务器上，测试InterBase服务器是否正常运行并且为桌面应用可见(如果PING是成功的，消息“servername isalive”被显示)。PING成功但TELNET不成功，则inet daemon可能有问题。如果PING到服务器上不成功，则有网络路径问题，将问题报给网络管理员。

如果底层协议不正常，请询问数据库管理员，否则继续帮助⑹。

⑹ 确认是否有InterBase服务器的访问权，如果有请继续步骤⑺。

⑺ 检查BDE应用程序的InterBase别名是否正确安装。

如果能够直接从工作站上联接，但不能从BDE应用程序中，那么很有可能你的

IDAPI32CFG别名设置有问题。运行BDE配置工具检查InterBase别名。

183 Delphi Client/Server编程

本节介绍如何运用Delphi可视化开发工具和ObjectPascal语言开发Client\Server的数据库应用程序，采用的例子是CSDEMOS。这是Delphi20自带的演示Client\Server开发的例子，它安装在C:\Program Files\Borland\Delphi 20\Demos\DB\CSDemos中(缺省安装)。

本节将包含以下内容：

● 使用TDatabase部件连接SQL服务器

● 用DataSet部件（又称数据集部件），如TTable和TQuery，联接TDatabase部件并访问数据库以及各种表之间如何切换

● 使用数据库连接

● 触发器的使用方法

● TStoredProc部件的使用方法

● 客户和服务器之间的事务控制

● TStoredProc部件的使用方法

1831 使用TDatabase部件联接SQL服务器

18311 TDatabase部件概述

TDatabase部件处理应用程序与单个数据库的联接。如果不需要控制数据库联接，可以不用创建TDatabase部件。当应用程序试图打开数据库表(Table)时，会自动创建一个临时的TDatabase部件。但如果你想控制数据库的持续联接、进入数据库服务器的注册和数据库别名的值或事务控制，那么你就必须为每个所需的联接创建一个TDatabase部件。

1 创建TDatabase部件

TDatabase 部件在Component Palette中的Data Access页上，你能将其拖放在数据模块(Data module)或窗体中。在设计时创建TDatabase 部件，用户可以设置初始值和编写OnLogin事件处理过程(Event Handle)。OnLogin事件给用户提供了第一次注册数据库服务器时定制服务器安全参数，如口令，的能力。

2 TDatabase的关键属性

⑴ DatabaseName属性

DatabaseName是所要联接的数据库名，并且用于DataSet软件，它将出现在DataSet部件的DatabaseName属性的下拉式列表框中。设置DataBaseName属性是定义数据库应用的特定别名。DataSet部件能引用该名字以取代直接使用BDE别名。当TDatabase部件的Connected属性为True时不能修改该属性。

⑵ AliaName属性

AliasName是BDE配置工具定义的BDE别名的名字。TDatabase 从中获取其缺省的设置。如果设置DriveName属性，则该属性将被清除，如果当Connected为True时强行设置DriveName属性将引发异常。

⑶ DriveName属性

DriveName是BDE驱动程序，如STANDARD 、ORACLE、SYBASE、INFORMIX或INTERBASE的名字。如果设置AliasName，则该属性值将被清除。

⑷ Params属性

Params属性包含了打开SQL服务器上数据库时所需的参数。在缺省情况下，这些参数由BDE配置工具设置；用户也可以用数据库参数编辑器(Database Parameters Editor)修改这些参数。对于数据库服务器而言，Params将描述一系列的参数，如服务器名、 数据库名、用户名和口令。

⑸ Connected属性

Connected属性指明是否建立数据库的联接，当应用程序打开数据库中的一个表时Connected将被置为True；反之，关闭数据库表，Connected将被置为False，除非KeepConnection为True。而将Connected置为True则可不需打开数据库表即可建立数据库联接。TDatabase的KeepConnection属性描述当数据库中没有表打开时是否维持数据库联连。

⑹ KeepConnection属性

KeepConnection属性描述当数据库中没有打开表时是否要保持与服务器的联连， 如果数据库应用需要打开和关闭单个数据库中的多个表时，将KeepConnection 设置为True是很有用的，那样，即使没有打开任何表，应用仍能保持与数据库的联接，它能够重复地打开和关闭数据库表，而不需要重复执行联接过程。如果KeepConnection置为False，当每次将Connected置为True，数据库都必须执行注册过程。

⑺ LoginPrompt属性

LoginPrompt属性用于控制如何处理SQL数据库的安全性问题。如置为True，当应用程序试图建立数据库联接时屏幕上将出现标准Delphi注册对话框。用户必须输入正确的用户名和口令。如果置为False，则应用程序将寻找TDatabase部件的Params 属性中的注册参数。下面是USERNAME和PASSWORD参数的例子：

USERNAME = SYSDBA

PASSWORD = masterkey

⑻ TransIsolation属性

TransIsolation属性描述SQL服务器所有的事务控制独立级别。 tiDirtyRead使所有修改都被返回，而不管记录是否已被提交。tiReadCommitted将只返回提交的记录，而提交的修改将不会在结果中反映出来。tiRepeatableRead 将只返回事务过程中最初的记录，即使另一个应用程序将所作的修改提交。

各种数据库服务器可能不同程度地支持这些独立级别，或者根本不支持。 如果需要的独立级别不被服务器支持，那么Dephi将使用下一个更高的独立级别，如下表所示：

表1810 各类服务器TransIsolation设置

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

独立级别 Oracle Sybase和 InterBase

Microsoft SQL

——————————————————————————————————————

Dirty Read Read Committed Read Committed Read Committed

Read Committed Read Committed Read Committed Read Committed

Repeatable read Repeatable read Not Supported Repeatable Read

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

各个独立级别的含义请见表1812。

3 TDatabase的关键方法

⑴ StartTransaction方法

StartTransartion方法在由TaransIsolation属性指定的独立级别下开始事务控制。如果在一个事务已被激活的情况下调用该方法，Delphi将引发异常。

调用了该方法后，对数据库所做的修改一直由数据库服务器维持到调用Commmit方法提交数据或调用Rollback方法取消修改为止。只有当联接数据库服务器时，才能调用该方法。

⑵ Rollback方法

Rollback方法返转当前事务控制，并且取消自最近一次调用StartTransaction以来对数据库所做的所有修改。

⑶ Commit方法

Commit方法提交当前事务控制，并且将自最近一次调用StartTransaction以来所有数据修改存入数据库。

4 TDatabase的OnLogin事件的处理

OnLogin事件的触发条件是当联接SQL数据库的TDatabase部件被打开并且LoginPrompt属性为True。使用OnLogin事件处理过程可以在运行时设置注册参数。OnLogin 事件处理过程得到TDatabase的注册参数数组Params，并且使用Values属性改变这些参数。

例如：

LoginParamsVaiues['SERVERNAME'] := 'MYSERVERNAME';

LoginParamsValues['USER NAME'] := 'MYUSERNAME';

LoginParamsValues[PASSWORD'] := 'MYAPSSWORD';

当控制从OnLogin事件处理过程中返回时，应用程序用这些参数来建立联接。

OnLogin事件处理过程的声明是这样的：

TLoginEvent = procedure(Database: TDatabase;LoginParam: TStrings) of Object;

property OnLogin: TLoginEvent;

TLoginEvent类型是处理OnLogin事件的方法头。Database参数是要联接的数据库。LoginParams是TStrings类型的对象，包含用户名和口令，以及打开数据库时所用的其它参数。用户名是形如USER NAME = JohnDoe的字符串，口令是形如PASSWORD = is_Password的字符串。当OnLogin事件处理过程被调用时应当在LoginParams中加入用户名和口令。

18312 定制数据库服务器的注册参数

大多数数据库服务器都包含限制数据库访问的安全特征。通常，在用户能访问数据库之前，服务器都要求注册的用户名和口令。

如果服务器需要注册，在设计阶段，Delphi 会在你试图联接时提示你，诸如在会TTable部件描述数据库表名时。

在缺省情况下，Delphi应用在打开数据库服务器的联接时，显示标准注册对话框。如果联接已建立，则注册对话框不会出现。

可以用下列方法处理服务器注册：

1 将TDatabase部件的LoginPrompt属性置为True。这样，当应用程序试图建立数据库联接时，标准注册对话框会打开。

2 将LoginPrompt属性置为False，在TDatabase部件的Params属性中包含用户名和口令参数。例如：

USERNAME = SYSDBA

PASSWORD = mosterkey

但不推荐使用该方法，因为这会危害数据库安全

3 使用TDatabase部件的OnLogin事件设置注册参数。OnLogin事件得到TDatabase 注册参数数组的拷贝，并利用Values属性改变这些参数。如：

LoginParamsValues['SERVER NAME']:= 'MYSERVERNAME';

LoginParamsValues['USER NAME'] :='MYUERNAME';

LoginParamsValues['PASSWORD'] := 'MYPASSWORD';

当控制从数据库注册事件处理过程中返回时，这些参数被用来建立联接。

18313 建立应用程序特定的别名

TDatabase的Aliases描述了数据库表的位置和数据库服务器的联接参数。通常都是在Delphi之外，运用BDE配置工具(BDECFG32EXE)创建别名，并且别名被存在BDE 配置文件IDAPI32CFG中。

用户也可以用TDatabase创建只在应用程序中可用的别名，用TDatabase创建的别名不会加进BDE配置文件中。任何DataSet部件可通过描述DatabaseName 属性来使用这些别名。为了定制这些局部别名的参数，用鼠标左键双击TDatabase部件或从TDatabase部件中选择Database Editor，Delphi就会打开数据库属性编辑器(Database Properties Editor)。

这只是其中一部分

更多的请点网址 http://hibaiducom/cloudinsky88/blog/item/451219593f31e2292834f03chtml

　 TSoredProc的关键属性

　⑴ DatabaseName属性

　DatabaseName属性描述要访问的数据库的名字 该属性可以为

　● 已定义的BDE别名

　● 本地型数据库的目录

　● Local InterBase服务器的目录路径和文件名

　● TDatabase定义的应用程序别名

　在改变DatabaseName之前要使用Close方法将Dataset部件置为非活跃状态

　⑵ StoredProcName属性

　StoredProcName属性表示服务器上的存储过程名 Oracle服务器允许多个具有相同名字的存储过程 因此要设置Overload属性来描述执行在Oracle服务器上的存储过程名

　⑶ Overload属性

　Oracle服务器允许Oracle软件包中存储过程的重载 就是说具有相同名字的不同过程 设置Overload属性用来描述执行在Oracle服务器上的存储过程 如果Overload值为零 则假定没有重载 如果Overload为 则Delphi执行具有同名的第一个存储过程 如果值为 则执行第二个存储过程

　⑷ Params属性

　Params属性包含传给存储过程的参数

　 关键方法

　⑴ ParamByName方法

　声明 function ParamByName（const Value: String） TParam;

　ParamByName方法返回Params属性中具有名为Value的元素值 一般用该方法在动态查询中给参数赋值

　⑵ Prepare方法

　PrePare方法准备要执行的存储过程 这允许服务器载入存储过程 否则准备处理异常

　⑶ ExecProc方法

　ExecProc方法执行服务器上的存储过程

　⑷ Open方法

　Open方法打开DataSet部件 并将其置于浏览状态 这相当于将Active属性置为True 对于TStoredProc如果存储过程返回一个结果集 则使用Open执行存储过程 如果存储过程返回单行 早使用ExecProc执行存储过程

　 TStoreProc使用方法

　 建立一个StoredProc部件

　为数据库服务器上的存储过程建立一个TStoredProc部件的步骤如下

　⑴ 从Component Palette的Data Access页选择TStoredProc部件放在数据模块上

　⑵ 将TStoredProc部件的DatabaseName属性设置为存储过程所在的数据库名

　DatabaseName必须是BDE别名

　⑶ 将TStoredProc部件的StoredProcName属性设为所用的存储过程名 或者从下拉式

　列表框中选择

　⑷ 在TStoredProc部件的Params属性中描述输入参数 可以使用参数编辑器来设置输

　入参数 参数编辑器也可让用户察看存储过程返回给应用程序的值

　 设置存储过程的输入参数 察看输出结果参数

　许多存储过程需要给它们传入一系列的输入参数 以确定处理什么和怎样处理 在Params属性中描述这些参数 所描述的输入参数的顺序是很重要的 它由服务器上的存储过程来确定 在设计时 最容易和最安全的方法是激活TStoredProc参数编辑器 编辑输入参数 参数编辑器以正确的次序列出输入参数 让你给它们赋值

　要激活TStoredProc的参数编辑器

　① 选择TStoredProc部件

　② 按鼠标右键激活加速菜单（Speed Menu）

　③ 选择Define Parameters

　参数名列表框显示过程的所有输入 输出和结果参数 有关输入 输出参数的信息从服务器中获得 对于某些服务器而方 参数信息是不可访问的 如Sybase 在这种情况下 列表框是空的 因此必须自己按过程要求的顺序增加输入输出参数

　参数类型复选框中描述所选的参数是输入 输出 还是结果参数 如果服务器支持参数可以既是输入又是输出 如果在列表框中增添参数 就必须设置参数类型

　数据类型复选框 列出列表框中所选参数的数据类型 如果给列表框真善美参数 必须设置数据类型

　在值编辑框中给输入参数赋值

　如果服务器不传递存储过程信息给Delphi 则可以用Add按钮给存储过程增添参数 Delete按钮则是将增添的参数删除 Clear按钮将清除列表框中所有参数

　设置完参数后 选择OK按钮

　 在运行时建立参数和参数值

　在运行时建立参数 可直接访问Params属性 Params属性是参数字符串的数组 例如 下列代码将编辑框的文本赋给数组的第一个字串

　StaredProc Params[ ] Asstring := Edit Text

　也能够用ParamsByName方法通过名字访问参数

　StoredProc ParamsByName（ Company ） Asstring := Edit Text;

　 准备和执行存储过程

　要使用存储过程还必须准备并执行它 可以有两种方式准备一个存储过程

　● 在设计时 通过选择参数编辑器的OK按钮

　● 在运行时 通过调用TStoredProc的Prepare方法

　例如 下面的代码准备存储过程的执行

　StoredProc Prepare;

　要执行准备好的存储过程 调用TStroedProc部件的ExecProc方法 下列代码演示了准备和执行存储过程

　StoredProc Params[ ] Asstring := Edit Text;

　StoredProc prepare;

　StoredProc ExecProc;

　当你执行一个存储过程 它返回输出参数或结果集 有两种可能的返回类型 单个返回 如单值或值集 和一群结果集 返回很多值

　 访问输出参数和结果集

　存储过程在输出参数数组中返回值 如果服务器支持返回值可以是单个结果或者结果集

　在运行时访问存储过程的输出参数 可以索引Params属性或者用ParamByName方法访问这些值 下列表达式都用输出参数设置了编辑框的值

　Edit Text := StoredProc Params[ ] AsString;

　Edit Text := StoredProc ParamsByName（ Contact ） AsString;

　如果存储过程返回结果集 则用标准数据相关控制访问和显示值会更有用

　在某些服务器上如Sybase 存储过程能象查询语句那样返回结果集 应用程序可以使用数据相关控制一显示这些存储过程的输出

　用数据相关控制显示存储过程返回结果的方法如下

　① 将DataSource部件放在数据模块上

　② 将DataSource部件的DataSet属性设置为接收数据的TStoredProc部件的名字

　③ 将数据相关控制的DataSource属性设为DataSource部件的名字

　这样 当用于TStoredProc部件和Active属性为True时 数据相关控制就能显示从存储过程返回的结果

　 返回目录 DELPHI基础教程

       编辑推荐

       Java程序设计培训视频教程

       J EE高级框架实战培训视频教程

　Visual C++音频/视频技术开发与实战

　Oracle索引技术

　ORACLE G数据库开发优化指南

　Java程序性能优化 让你的Java程序更快 更稳定

　C嵌入式编程设计模式

　Android游戏开发实践指南

lishixinzhi/Article/program/Delphi/201311/25132

一个DataSnap的应用程序由两个层组成：

DataSnap服务器，它有一个带有一个或者更多DataSetProvider组件的远程数据模块；

DataSnap客户端，它带有一个xxxConnection组件和一个或者多个连接到DataSetProviders的ClientDataSets。

你可以不使用ClientDataSet而换用XMLBroker组件，后者是专门用在InternetExpress Web服务器应用程序上的。

DataSetProviders的作用是把数据导出到外部世界，

而ClientDataSets的功能是接收数据（并把请求和更新发送回DataSetProvider）。

许多DataSnap客户端都可以连接到单个DataSnap服务器，向服务器请求数据，而服务器往往就是数据吞吐量瓶颈发生的地方。