DB2 和 Delphi 7 — SOAP 和数据库 Web 服务
构建 Windows SOAP 服务器应用程序
首先在 Windows 上构建服务器，然后在 Linux 上构建客户机。（如果需要，可以使用其它方法 — 或者将它们全部构建在 Windows 或 Linux 上。）对于 Windows SOAP 服务器，启动 Delphi 7 Enterprise，执行 File -> New -> Other，转至对象资源库（Object Repository）的 Web Services选项卡。
图 1. Delphi 7 对象资源库
要将 DataSnap? 应用程序构建成跨平台的 Web 服务，双击 SOAP Server Application 图标，这将启动相应的向导。
图 2. 创建新的 SOAP 服务器应用程序
通过使用 Delphi 7（在 Windows 上），现在可以从 ISAPI/NSAPI DLL、Apache 1.x 或 2.x DLL、CGI 可执行文件或 Web App Debugger 可执行文件之中进行选择。可以使用后者从 Delphi IDE 中调试应用程序（但不能部署它 — 必须将它更改成其它目标之一来部署 Web 服务器应用程序）。通过使用 Kylix 3（在 Linux 上），可以选择 Apache 动态共享目标（Apache Dynamic Shared Object，DSO）文件、CGI 可执行文件或 Web App Debugger 可执行文件。对于本例，选择 CGI 可执行文件，但在实际使用时，可能要选择一个更高效的 Apache 或 ISAPI/NSAPI DLL。选择后，单击 OK。 此时为您生成了一个新的 SOAP 服务器应用程序和 SOAP Web 模块。但在您可以对它进行更仔细的研究之前，会看到一个弹出对话框，询问您是否要立刻为 SOAP 模块创建一个接口。
图 3. 因为您正在构建一个特殊的 DataSnap SOAP 服务器，所以单击 No
单击 No，因为您不想立刻构建一个常规的 Web 服务应用程序。而是想要构建一个特殊的 DataSnap SOAP 服务器。正如您在 图 4中所见到的那样，SOAP Web 模块已经包含了三个组件：
THTTPSoapDispatcher THTTPSoapPascalInvoker TWSDLHTMLPublish 组件 有关这些组件的更详细信息，请参阅联机帮助；它们主要为 DataSnap SOAP 服务器执行所有 SOAP 和 WSDL“探测（plumbing）”任务，所以您现在可以着重关注数据库表，而不必担心其它事情。
带组件的 SOAP Web 模块
将 SOAP Web 模块保存在文件 SWebMod.pas 中，将整个项目保存在 D7DB2CGI.dpr 中（这将产生 D7DB2CGI.exe ）。 现在添加 SOAP 数据模块（SOAP Data Module）来连接 DB2 数据库（通过使用对象资源库的 WebServices 选项卡中的第二个图标；还请参见图1）。在 SOAP Data Module 向导中，只需要指定新数据模块的名称；将它�
相关文档：
Delphi 2010正式版下载(RAD Studio 2010下载)
在8月26日正式发布了RAD Studio 2010，就是我们所谓的Delphi 2010。RAD Studio 2010包含Delphi、C++ Builder和Delphi Prism等。 RAD Studio 2010 的新功能主要在于：增强的 IDE和可视化组件库 (VCL) 框架和基础的编译器以及其他各项工具，这使得你构建那些跨越所有的数据源和 ......
推荐给大家[url=DELPHI深度探索 （第2版）PDF电子书][/url]
因为需要前几天在网上搜搜过这本书书，可没有，源码倒是有，今天打开经常去的网站，居然发现提供下载了，这个网站自己差不多每天都要打开看看，这几天忙糊涂了，居然没有看到，在这推荐给大家，能下载的，速度很快。
[url=http://www.delphifans.com/Soft ......
容器的主要职责有两个：存放元素和浏览元素。根据单一职责原则（SRP）要将二者分开，于是将浏览功能打包封装就有了迭代器。
用迭代器封装对动态数组的遍历：
1.容器中的元素类
{《HeadFirst设计模式》之迭代器模式 }
{ 容器中的元素类 ......
1.策略类
{《HeadFirst设计模式》之策略模式 }
{ 本单元中的类为策略类 }
{ 编译工具: Delphi7.0 }
{ E-Mail : xshlife@163.com }
unit uStrategy;
interface
type
{飞行接口，及其实现类 }
IFlyBehavior = Interface(IInterface)
procedure Fly;
......
在主界面的implementation {$R *.dfm} 下放入以下代码：
procedure PatchInt3;
var
NOP: Byte;
NTDLL: THandle;
BytesWritten: DWORD;
Address: Pointer;
begin
if Win32Platform <> VER_PLATFORM_WIN32_NT then
Exit;
NTDLL := GetModuleHandle('NTDLL.DLL');
if NT ......
