delphi开发webservice经验总结资源-CSDN文库

共1个文件

doc：1个

delphi

dotnet

webservice

5星 · 超过95%的资源需积分: 49 114 浏览量 2008-01-28 09:33:23 上传评论 2 收藏 250KB RAR 举报

资源推荐

资源详情

资源评论

收起资源包目录

webservice.rar （1个子文件）

webservice.doc 2.45MB

4.4.1 Webservice 接口文件的导入

 找到接口定义字符串

http://dell/QAMonitorService/UserService.asmx

打开 CB6 ，选择菜单 File － New － Other ，选择 Webservices 标签，选择 WSDL

importer，弹出如下界面：

 在 Location of WSDL File or URL：输入框内键入如下内容

http://dell/QAMonitorService/UserService.asmx ?WSDL ，点击 Next.

 在弹出的窗体上直接点击 Finish 结束导入。

4.4.2 结果集编码的修改

 在导入文件的.h 文件内，找到如下接口定义区：

__interface INTERFACE_UUID("{D39DB2B8-0F06-4033-57F6-

171B17D23873}") UserSystemSoap : public Iinvokable

 找到 Get**Resault 定义，如：

virtual GetUserByAccountNameResult* GetUserByAccountName(const

AnsiString accountName) = 0;

 将返回类型 GetUserByAccountNameResult*改为 WideString 类型

virtual WideString GetUserByAccountName(const AnsiString

accountName) = 0;

4.4.3 提交数据中含有中文乱码的修改

 在导入文件的.cpp 文件那，找到如下位置

if (useWSDL)

{

rio->WSDLLocation = addr;

rio->Service = defSvc;

rio->Port = defPrt;

}

 改为如下内容，新添加两行蓝色字体部分，

if (useWSDL)

{

rio->WSDLLocation = addr;

rio->Service = defSvc;

rio->Port = defPrt;

rio->Converter->Options<<soUTF8InHeader;

rio->HTTPWebNode->UseUTF8InHeader = true;

}

4.4.4 ClientDataSet 的导入

 添加一个数据模块，在数据模块上添加如下控件：

XMLTransformProvider、ClientDataSet、DataSource

 设置 ClientDataSet.ProviderName = XMLTransformProvider

DataSource.DataSet = ClientDataSet

 将返回的结果集保存为 xml 文件⑴。

 生成 xml 文件的解释文件.xtr 文件⑵。

 设置

TXMLTransform *XMLTransform = XMLTransformProvider-

>TransformRead;

XMLTransform->SourceXml = xml 文件;

XMLTransform->TransformationFile = xtr 文件;

XMLTransform1->TransformXML(xml,"");

ClientDataSet1->XMLData = XMLTransform1->ResultString;

ClientDataSet->Active = true;

⑴ 将返回的结果集保存为 xml 文件。

用本地类 classWebServiceBase 的公有方法 virtual void __fastcall

SaveXML(WideString xml, String FileName);

实现如下：

void __fastcall classWebServiceBase::SaveXML(WideString xml, String

FileName)

{

String strXml = UTF8Encode(xml);

TFileStream *pFile = new TFileStream(FileName, fmCreate);

char *tmpStr = strXml.c_str();

pFile->Write((void *)tmpStr, strXml.Length());

delete pFile;

}

调用如下：

SaveXML(xml, "c:\\project.xml");

参数说明：

WideString xml 为需要保存的 xml Webservice 返回内容。

String FileName 为 xml 要保存的位置。

⑵ 生成 xtr 文件

打开 C++Builder，选择菜单 Tools－XML Mapper。在弹出的窗口内选择 File－

Open，打开保存的 XML 文件，选择含有 DataSet 的节点（有黄色边框），如下

图：点击鼠标右键，选择 Select All Children

评论收藏

内容反馈

彪哥1

2015-11-12

很不错长知识了
yfoxyfox

2017-03-17

老资料了，现在用delphi的人可不多
winyoung

2012-12-26

很有价值的总结，谢谢
swordqj

2018-07-03

已经下载，好好学习一下先！！
sinat_19313457

2015-09-08

很有价值的总结，谢谢

前往

页

ireenter

粉丝: 44
资源: 28

delphi开发webservice经验总结

delphi开发webservice经验总结.pdf

Delphi WebService开发

Delphi开发和调用的webservice

delphi开发的webservice实例

用Delphi-实现WebService

用Delphi实现Web Service的简单示例

delphi开发webservices 接口实例

delphi7的webservice开发

Delphi开发的webservice实例

delphi开发webservice经验总结共8页.pdf

delphi开发webservice经验总结共8页.pdf.zip

delphi编写webservice

delphi 版webservice例子

Delphi调用webservice例子

delphi webservice示例

Delphi调用Webservice一个完整的例子

delphi7实现微型http服务器

delphi webservice客户端

delphi web开发 UniGUI

队列与堆栈在Delphi中的使用

简单完整的WebService客户服务端代码

Delphi通过WebService访问数据库

Delphi WebService简单实例

webservice 开发过程 详解

基于Delphi的Web Service 客户端调用

Delphi WebService 利用 TSOAPAttachment 传文件的例子代码

一个轻量级DELPHI三层架构

最新资源

webservice 开发过程详解