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

共1个文件

doc：1个

delphi

dotnet

webservice

5星 · 超过95%的资源需积分: 49 129 浏览量 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经验总结共8页.pdf.zip

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

delphi7开发webservice部属在apache服务器中

delphi7的webservice开发

Delphi开发的webservice实例

delphi开发webservices 接口实例

Delphi开发webservice应用实例 配备Client测试端代码实例供修改测试

delphi自主处理webservice返回的结果集

ASP如何调用Delphi开发WebService服务测试实例

delphi调用Webservice实现增删改查功能的源代码示例

delphi调用C#webservice.rar

delphi编写webservice

delphi webservice客户端

delphi 版webservice例子

delphi webservice示例

Delphi通过WebService访问数据库

Delphi调用Webservice一个完整的例子

Delphi调用WebService的实例(非常经典)[参考].pdf

Delphi调用C#的Webservice返回Dataset

微信小程序源码-合集6.rar

微信小程序源码-合集4.rar

微信小程序源码-合集5.rar

微信小程序源码-合集3.rar

微信小程序源码-合集2.rar

最新资源

Delphi开发webservice应用实例配备Client测试端代码实例供修改测试