delphi用webservice
delphi的webservice开发。
一、在已有的项目中,调用外部的webservice
1、根据向导建webservice,在项目中引入“WSDL Importer"。假设引入后生成的类的名字为”service"
2、对生成的service类做相应的修改。
2.1、如果webservice方法里的某些参数即是接收传入参数又是接收返回参数,在delphi里要对参数名字重新命名
如在用c#写的webservice的服务端方法是sr.Get_Delivery_Data_Over(sn, sjlx, ref err);
//默认生成的代码为
procedure Get_Delivery_Data(const err: WideString; const data_str: TByteDynArray; const sn: Integer; const sjlx: WideString; out Get_Delivery_DataResult: Boolean; out err: WideString; out data_str: TByteDynArray; out sn: Integer); stdcall;
///要改成如下:
procedure Get_Delivery_Data(const err1: WideString; const data_str1: TByteDynArray; const sn1: Integer; const sjlx: WideString; out Get_Delivery_DataResult: Boolean; out err: WideString; out data_str: TByteDynArray; out sn: Integer); stdcall;
2.2、 如果delphi调用c#写的webservice时,服务器端方法接收到delphi传过来的参数总是为空时,在delphi的service类的initialization下面加这名话
InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap),ioDocument); ///必需要加,不然传到c#写的webservice里的方法的参数值是空的
如下是service类的源代码
// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL : http://fti.yndzyf.com/Service.asmx?wsdl
// Encoding : utf-
// Version : 1.0
// (-- :: - 1.33.2.5)
// ************************************************************************ // unit Service; interface uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns; type // ************************************************************************ //
// The following types, referred to in the WSDL document are not being represented
// in this file. They are either aliases[@] of other types represented or were referred
// to but never[!] declared in the document. The types from the latter category
// typically map to predefined/known XML or Borland types; however, they could also
// indicate incorrect WSDL documents that failed to declare or import a schema type.
// ************************************************************************ //
// !:string - "http://www.w3.org//XMLSchema"
// !:base64Binary - "http://www.w3.org//XMLSchema"
// !:int - "http://www.w3.org//XMLSchema"
// !:boolean - "http://www.w3.org//XMLSchema" Websoap = class; { "http://aitf.yndzyf.com/"[H] } // ************************************************************************ //
// Namespace : http://aitf.yndzyf.com/
// ************************************************************************ //
Websoap = class(TSOAPHeader)
private
FUserName: WideString;
FPassWord: WideString;
published
property UserName: WideString read FUserName write FUserName;
property PassWord: WideString read FPassWord write FPassWord;
end; // ************************************************************************ //
// Namespace : http://aitf.yndzyf.com/
// soapAction: http://aitf.yndzyf.com/%operationName%
// transport : http://schemas.xmlsoap.org/soap/http
// binding : ServiceSoap
// service : Service
// port : ServiceSoap
// URL : http://fti.yndzyf.com/Service.asmx
// ************************************************************************ //
ServiceSoap = interface(IInvokable)
['{E00EB65B-7136-E473-42EF-D3135F25019F}']
procedure Get_Delivery_Data(const err1: WideString; const data_str1: TByteDynArray; const sn1: Integer; const sjlx: WideString; out Get_Delivery_DataResult: Boolean; out err: WideString; out data_str: TByteDynArray; out sn: Integer); stdcall;
procedure Get_Delivery_Data_Over(const sn: Integer; const sjlx: WideString; const err1: WideString; out Get_Delivery_Data_OverResult: Boolean; out err: WideString); stdcall;
procedure Receive_data(const error1: WideString; const str: TByteDynArray; const sn: Integer; const sjlx: WideString; out Receive_dataResult: Boolean; out error: WideString); stdcall;
end; function GetServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil;user:string='';password:string=''): ServiceSoap; implementation function GetServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO;user:string;password:string): ServiceSoap;
const
defWSDL = 'http://fti.yndzyf.com/Service.asmx?wsdl';
defURL = 'http://fti.yndzyf.com/Service.asmx';
defSvc = 'Service';
defPrt = 'ServiceSoap';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as ServiceSoap);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end; initialization
InvRegistry.RegisterInterface(TypeInfo(ServiceSoap), 'http://aitf.yndzyf.com/', 'utf-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(ServiceSoap), 'http://aitf.yndzyf.com/%operationName%');
InvRegistry.RegisterHeaderClass(TypeInfo(ServiceSoap), Websoap, 'Websoap', '');
RemClassRegistry.RegisterXSClass(Websoap, 'http://aitf.yndzyf.com/', 'Websoap');
InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap),ioDocument); ///必要要加,不然传到c#写的webservice里的值是空的
end.
3、调用
procedure Tform_smrk.bgetydClick(Sender: TObject);
var sql:string;
var err_fp,err1_fp,err_yjm,err1_yjm:Widestring;
data_fp,data_fp1,data_yjm,data_yjm1:TByteDynArray;
sn_fp,sn_fp1,sn_yjm,sn_yjm1:Integer;
flag_fp,flag_fp1,flag_yjm,flag_yjm1:boolean;
ws:webSoap;
svc:serviceSoap;
begin
svc := HTTPRIO1 as ServiceSoap;
ws:=websoap.Create;
ws.UserName:=serviceName;///webservice的用户名和密码
ws.PassWord:=servicePassword;
(svc as ISOAPHeaders).Send(ws);
svc.Get_Delivery_Data('',data_fp1,,'运单',flag_fp,err_fp,data_fp,sn_fp);
(svc as ISOAPHeaders).Send(ws);///每次调用时都要重新设置用户和密码
svc.Get_Delivery_Data('',data_yjm1,,'电子监管',flag_yjm,err_yjm,data_yjm,sn_yjm);
if length(data_fp)> then///如果有运单
begin
ADOStoredProc1.ProcedureName:= 'p_insert_data';
ADOStoredProc1.Parameters.Clear;
ADOStoredProc1.Parameters.Refresh;
ADOStoredProc1.Parameters.ParamByName('@data_str').Value:=data_fp;
if length(data_yjm)> then ADOStoredProc1.Parameters.ParamByName('@data_str_yjm').Value:=data_yjm;
ADOStoredProc1.Prepared;
ADOStoredProc1.ExecProc;
end
要注意的是:1、每次调用webservice时要重新写一次(svc as ISOAPHeaders).Send(ws);,将webSoap和serviceSoap关联
2、上面的代码是从webservice取xml的二进制文件,然后将取出的二进制数据传入到存储过程p_insert_data里。用ADOStoreProc可以对存储过程传参数
时可以不考虑参数的类型,直接用ADOStoredProc1.Parameters.ParamByName('@data_str').Value:=data_fp赋值,在赋值前要ADOStoredProc1.Parameters.Refresh;不然不能对参数 赋值成功。
3、HTTPRIO1 是控件THTTPRIO。控件要设置好URL=http://fti.yndzyf.com/Service.asmx?wsdl
delphi用webservice的更多相关文章
- Delphi调用webservice总结
Delphi调用webservice总结 Delphi调用C#写的webservice 用delphi的THTTPRIO控件调用了c#写的webservice. 下面是我调试时遇到的一些问题: ...
- delphi 调用Webservice 引入wsdl 报错 document empty
delphi 调用Webservice 引入wsdl 报错 document empty 直接引入wsdl 地址报错 document empty 解决办法:在浏览器里保存为xml文件,然后在开发环境 ...
- Delphi编写WebService体会
源:Delphi编写WebService体会 Dispatch: 派遣,分派 Invoke: 调用 Invokable: 可调用接口 TReomtable: WebService中自定义类都是继承自该 ...
- DELPHI新版本WEBSERVICE的变化
DELPHI新版本WEBSERVICE,不仅可以编译成ISAPI DLL,依靠IIS部署, 并且还可以编译成单独的EXE,不再依赖IIS就可以独立运行,这一点未尝不可以说是非常方便的改进.
- Delphi调用WebService(通过SoapHeader认证)经验总结
项目(Delphi开发)需要调用另一个系统的WebService.走了不少弯路,现记录总结一下经验.以下是WebService要求: 1.WebService概述 营销Webservice接口采用Ap ...
- 【转】Delphi调用webservice总结
原文:http://www.cnblogs.com/zhangzhifeng/archive/2013/08/15/3259084.html Delphi调用C#写的webservice 用delph ...
- Delphi实现WebService带身份认证的数据传输
WebService使得不同开发工具开发出来的程序可以在网络连通的环境下相互通信,它最大的特点就是标准化(基于XML的一系列标准)带来的跨平台.跨开发工具的通用性,基于HTTP带来的畅通无阻的能力(跨 ...
- Delphi 调试WEBService程序(ISAPI或CGI) 把Web App Debugger executable转换成 ISAPI/NSAPI
1.新建一个web工程,请选中最下面一项:Web App Debugger executable,Coclass name我们设为demo1: 2.在弹出的WebModule2中右击,在弹出的Ac ...
- delphi调用webservice 转
如今 Web Service 已越来越火了,在DotNet已开发的Web Service中,Delphi 7如何方便的调用DotNet写的Web Service呢?方法有两种,一种是在Delphi ...
随机推荐
- tomcat线程初探
博主:handsomecui,希望路过的各位大佬留下你们宝贵的意见,在这里祝大家冬至快乐. 缘由: 初探缘由,在业务层想要通过(当前线程的栈)来获取到控制层的类名,然后打日志,可是发现并不能通过当前线 ...
- POJ-1250
#include<iostream> #include<string> #include<list> #include<algorithm> using ...
- Android研究之监听自身应用被卸载代码实现
1.通过jni实现函数 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 3 ...
- 一道题Wrong Answer之后该何去何从?
写程序手不稳是个大毛病,往往会让一份能AC的代码变成99.995%正确,失之毫厘谬以千里,近期十场个人赛非常少有能一次AC的经历,细致想想除了根本逻辑上的错误.大概都是跪在这些细节上: 1.输出格式, ...
- POJ 2533 Longest Ordered Subsequence(DP 最长上升子序列)
Longest Ordered Subsequence Time Limit: 2000MS Memory Limit: 65536K Total Submissions: 38980 Acc ...
- Git版本号控制 为什么那么复杂 头大 (忍不住强烈吐槽)
想把自己的源代码保存到云端.想到了用Github.com,然后便開始看怎么使用GIT. 一開始,没有接触之前,想的非常easy的.应该就跟SVN几乎相同吧.写好了提交就能够了. 只是使用了之后才发现根 ...
- 在Office Add-in中实现单点登陆(SSO)
作者:陈希章 发表于 2017年12月27日 这篇文章经过多次修改,终于在今天晚上写完了,演示用的范例代码也终于跑通了.因为这个SSO的功能目前只是Preview的状态,所以本篇文章严格参考了官方的文 ...
- .NET+Ajax+ashx 实现Echarts图表动态交互
前言: 使用Echarts展示图表效果,在这里只做了四种案例:折线.柱状.圆形.雷达.当初是一位朋友用到Echarts展示数据,他没有太多时间弄,所以我就帮他搞出来,当初刚接触的时候也是一头雾水,不知 ...
- JDK动态代理[1]----代理模式实现方式的概要介绍
日常工作中经常会接触到代理模式,但一直没有对其进行深究.代理模式一直就像一团迷雾一样存在我心里,什么是代理模式?为什么要使用代理?代理模式有哪些实现?它的底层机制是怎样的?这些问题促使着我迫切想要揭开 ...
- xamarin android布局
xamarin android布局练习(1) xamarin android布局练习,基础非常重要,首先要学习的就是android的布局练习,xamarin也一样,做了几个xamarin androi ...