delphi,屏幕截图完美解决方案.docx

delphi,屏幕截图完美解决方案 　　篇一：delphi调用wcf 　　PovozIm Sean Lu, thank you for your access my space. Starting WCF Client Programming in Delphi 7虽然 Delphi XX 已经发布一年有余，但是在实际的工作中仍然是 Delphi 7 或更早的版本被 大量使用。 WCF 作为构建面向服务应用程序的统一框架，成为多年来 Microsoft .NET 发展过程中最重要 的技术之一。 我是最近才开始关注 WCF 的，作为 Microsoft 分布式应用程序开发的集大成者，我首先想到的 就是能否在以前的旧系统中使用 WCF。 经过几天的摸索，终于成功地使用 Delphi 7 访问 WCF 服务，下面就来说一下开发过程。1.更新 Delphi SOAP Runtime and Importer。 这一点非常的注要，因为原本 Delphi 7 自带的 无法正确生成 WCF 服务代 理。CodeGear 官方已经给出了更新，而且可以免费下载。 下载地址：24535 下载后的更新安装过程，请参照文件包中的 文件。2.为了测试，先在 Visual Studio XX 中创建一个简单 WCF 服务。 A.新建 WCF 服务网站； 　　B.定义服务接口；这里我们简单的做一个加法运算，在 文件中加入下面代 码： // 任务: 在此处添加服务操作 [OperationContract] int Add(int a, int b);C.实现服务接口；在 文件中加入下面代码： #region IService 成员 public int Add(int a, int b) { return a + b; } #endregionD.修改服务的 Binding 属性为 basicHttpBinding； 可以直接修改 文件，或通过 Microsoft Service Configuration Editor 进行编 辑，打开 Microsoft Service Configura(转载于: 小 龙文档 网:delphi,屏幕截图完美解决方案)tion Editor（工具菜单-Microsoft Service Configuration Editor），然后打开我们的站点（Microsoft Service Configuration Editor 的 File 菜单-WebHosted Service...-选择我们建立的 WCF 服务网站）在“Configuration” ， 窗口中打开 Endpoints （Services - Service - Endpoints） 可以看到有两个 Endpoint， ，　　其中一个的 Binding 属性为 mexHttpBinding，保持不变，另外一个 Endporint 的 Binding 属性默认为 wsHttpBinding，将其修改为 basicHttpBinding，保存并退出。至此一个简单的 WCF 服务网站已经建立完成，可以通过 http://localhost/WCFService/ 查看。3.生成 WCF 访问代理。 因为前面我们已经更新了 Delphi SOAP Runtime and Importer， 现在可以在 C:\Program Files\Borland\Delphi7\Bin 找以 ，更新后的版本为 。 在“命令提示符”中输入：WSDLImp http://localhost/WCFService/?wsdl 就可以在当前目录下生成一个 文件。4.创建 Delphi 7 应用程序。 创建一个 Delphi 7 应用程序，并引入上面我们创建的 文件。然后在主窗体中加入 测试代码：　　procedure (Sender: TObject); var a, b, c:Integer; begin a := StrToInt(); b := StrToInt();c := (a, b); := IntToStr(c); end;到这里，通过 Delphi 7 访问 WCF 服务已经实现了。但是要说的是这仅仅是第一步，在 Delphi 7 中是否可以充分利用 WCF 服务的功能还有待进一步摸索。4 月 5 日更新： 进一步摸索尝试之后，发现 Delphi 自身的 SOAP Runtime 对 Web Service 的新标准、特性 支持并不好。 第三方库对 SOAP 也有支持，但效果并不理想。 Pure SOAP 网络上有一些介绍，但没有找到下载。 IndySOAP 目前版本是 ，官方说明支持 SOAP ，但试用没有成功。 IP*Works 支持