最近接口项目需要用PB调用SAP的Web Service，研究了PB的Webservice Proxy很久。
第1个问题是SAP的Web Service有身份验证，主程序是PB9开发的，pbsoapclient90.pbd里没有对应函数，说是需要PB10以上，PB11.5经验证可以解决。或者安装微软SOAP工具控件，PB9通过它调用Web Service也是可以的。
但核心问题来了：SAP的Web Service函数中参数实际传输的是Table，也就是结构体数组参数。测试证明，即使PB12.5都对结构体参数的Web Service支持不完善，就不要说结构体数组了！
肿么办？研究发现，我们可以使用C#调用结构体数组参数的Web Service，然后拆解为单结构体，转换为字符串数组参数，封装为DLL函数，供PB调用。这种方式理论上，应该适用于PB的任何版本。
——by nocry115/泥草鞋
这里，我们以VS2010 C#与PB9进行说明；将对方Web Service的WSDL文件拷贝到本地，这个Web Service定义了1个函数，其参数为结构体数组，返回一个含2字符串的结构体。
1)首先，新建Visual C#的“类库”项目，我们可以命名为：sapws1（注意：C#区别大小写）。
双击改项目的属性Properties，在“应用程序”页面点击【程序集信息】。
在“为COM互操作注册”处打钩。
并在“生成”页面在“使程序COM可见”处打钩。
以上是为生成供调用的Dll做准备，保存后我们可以在属性下的AssemblyInfo.cs处查看ComVisible是否为true。
2)这一步即引用SAP的Web service。我们在解决方案的【引用】项处右键点击“添加服务引用”。
注意，这一步很关键，不能在这个界面直接引用，而应该点击【高级】按钮。
在接下来的服务引用设置界面，再点击【添加Web引用】（SAP的Web service基于简单SOAP协议）。
在“添加Web引用”界面，“URL”输入本地wsdl文件并点击右侧箭头；在身份验证弹出框输入账号口令，即可看到对方的Web service服务名是SI_03AA6_SNZYXT2ERP_JHDGBService，其函数/方法为SI_03AA6_SNZYXT2ERP_JHDGB()。这里，我们把该服务命名为“ws1”。然后点击【添加引用】。
在“解决方案资源管理器”中我们可以看到ws1已经加入，双击ws1我们可以在“对象浏览器”中查看其函数具体的格式定义。参数其中有结构体数组ZSSD_JHDGB[]；结构体ZSSD_JHDGB的构成也可在“对象浏览器”中查看。
3)双击“Class1.cs”进行代码编写：
这里，我们需要在using引用区加1行，并替换到中间的Class1类；代码如下：
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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 |
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Runtime.InteropServices; //该引用必须
namespace sapws1 //命名空间
{
[Guid("5690DF0B-0DF9-49CC-AF63-22DF5D0A5F04")] //利用工具->创建GUID->生成器5随机生成
public interface CallParamers
{
[DispId(1)] //接口方法的绑定号
string PBSAP(string uname, string upass, string[] arrs, ref string rets);//
}
[Guid("CF41B4E8-C463-40CB-B7F0-8D1F1999E83B")] //利用工具->创建GUID->生成器5随机生成
[ClassInterface(ClassInterfaceType.None)]
public class Class1 : CallParamers
{
public string PBSAP(string uname, string upass, string[] arrs, ref string rets)
{
ws1.ZSSD_JHDGB[] sz1;
sz1 = new ws1.ZSSD_JHDGB[1]; //结构体数组参数定义
ws1.ZSSD_JHDGB sj;
sj = new ws1.ZSSD_JHDGB(); //分解为单一结构
//对结构数据赋值
sj.VBELN = arrs[0];
sj.POSNR = arrs[1];
sj.LFIMG = Convert.ToDecimal(arrs[2]);
sj.LFIMGSpecified = true; //decimal类型
sj.WADAT = arrs[3]; //提货日期
sj.WADAT_IST = arrs[4]; //发货日期
sj.DATA01 = arrs[5]; //预留字段1
sj.DATA02 = arrs[6]; //
sj.DATA03 = arrs[7]; //
sj.DATA04 = arrs[8]; //
sj.DATA05 = arrs[9]; //
sj.DATA06 = arrs[10]; //
sj.DATA07 = arrs[11]; //
sj.DATA08 = arrs[12]; //
sj.DATA09 = arrs[13]; //
sj.DATA10 = arrs[14]; //
sz1[0] = sj; //对结构数组赋值
//调用SAP Web Service
ws1.SI_03AA6_SNZYXT2ERP_JHDGBService s = new ws1.SI_03AA6_SNZYXT2ERP_JHDGBService();
//Web Service身份验证
System.Net.NetworkCredential c = new System.Net.NetworkCredential(uname, upass);
s.Credentials = c; //
string rs2;
string rs1 = s.SI_03AA6_SNZYXT2ERP_JHDGB(ref sz1, out rs2); //调用Web Service函数
rets = rs1;
return rs2;
}
}
}
|
来自CODE的代码片
说明：全球唯一码GUID可用VS2010菜单【工具】-【创建GUID】来生成；选择第5种方式，复制替换即可。
说明：“[DispId(1)]”项定义dll函数序数，如果有第2个函数，同法定义“[DispId(2)]”，函数说明与主函数相同。
说明：结构体成员数必须与数组成员数对等；注意C#数组标从0开始。
说明：webService结构体中的数值型成员，引入到C#中将多出bool形私有成员，请设为true，并将字符串转换为对应数值。
最后，生成该项目即可。
建立PB调用目录c:wssap；将生成的dll与tlb文件拷贝出来，默认在项目的binDebug目录下。
并找到.Net 4.0下的RegAsm.exe文件，也拷贝到该目录。然后在操作系统运行cmd，输入：
regasm sapws1.dll /tlb:sapws1.tlb
回车显示成功注册信息。
在PB中调用该C#DLL，代码如下：
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 |
string ls_ret, ls_msg, ls_uname, ls_upass
string sz[] //用数组代替结构
int i, ii
OleObject OleSAP
OleSAP = Create OLEObject
//sapws1为C#中命名空间(namespace) ，Class1为C#中类名
i = OleSAP.ConnectToNewObject("sapws1.Class1")
if i <>0 then
MessageBox("提示","PB调用C#COM组件（SAP.WebService）失败！")
return
end if
//初始化
ii = 15 //数组成员与结构体成员相同
for i = 1 to ii
sz[i] = ""
Next
//数据测试
sz[1] = "1000066666"
sz[2] = "000010"
sz[3] = "88"
//SAP Webservice账号口令
ls_uname = "zzsoap"
ls_upass = "shenhua"
ls_ret =OleSAP.PBSAP(ls_uname, ls_upass, sz, ref ls_msg)
MessageBox(ls_ret, ls_msg)
|
来自CODE的代码片
看看运行结果：
