递归火山软件开发平台

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
热搜: 火山 源码 类库
查看: 48|回复: 0
打印 上一主题 下一主题

[视窗] Wsdl接口访问MES教程

[复制链接]

3

主题

15

帖子

92

积分

核心用户

Rank: 9Rank: 9Rank: 9

积分
92
跳转到指定楼层
楼主
发表于 昨天 20:52 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Wsdl接口访问MES教程
1. 下载SOAPUIfile:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps1.jpg软件
2. file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps2.pngfile:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps3.png下载后打开点击左上角Filefile:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps4.jpg
点击NEW SOAP
file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps5.pngfile:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps6.jpg
file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps7.pngfile:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps8.jpg
file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps9.pngfile:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps10.pngfile:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps11.jpg
file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps12.pngfile:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps13.pngfile:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps14.pngfile:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps15.jpg
file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps16.pngfile:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps17.pngfile:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps18.jpg
file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps19.pngfile:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps20.png火山实现扫码测试连接
<火山程序 类型 = "通常" 版本 = 1 />
变量 网络访问22 <类型 = 网络访问类_COM版 折叠>
变量 zzzzz <类型 = 字节集类>
// 以下是,返回编辑框内容
// <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
//    <soapenv:Body>
//       <ns1:Get_Equip_DataResponse soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:ns1="http://DefaultNamespace">
//          <Get_Equip_DataReturn xsi:type="xsd:string">01[OK!</Get_Equip_DataReturn>
//       </ns1:Get_Equip_DataResponse>
file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps21.png//    </soapenv:Body>
// </soapenv:Envelope>
//以下是,询问信息的内容
// <soapenv:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:def="http://DefaultNamespace">
//    <soapenv:Header/>
//    <soapenv:Body>
//       <def:Get_Equip_Data soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
//          <function_Name xsi:type="xsd:string">命令</function_Name>
//          <Equip_code xsi:type="xsd:string">设备编号</Equip_code>
//          <ftype xsi:type="xsd:string">次数</ftype>
//          <cmsg xsi:type="xsd:string">条码</cmsg>
//       </def:Get_Equip_Data>
//    </soapenv:Body>
// </soapenv:Envelope>
询问信息 = 编辑框_询问信息.内容
子文本替换 (询问信息, "设备编号", 设备号, , , )
子文本替换 (询问信息, "次数", OCV选择, , , )
子文本替换 (询问信息, "条码", 删首尾空 (编辑框_条码.内容), , , )
子文本替换 (询问信息, "命令", "OCVCHECK", , , )
// 调试输出 (询问信息)
协议头.加入成员 ("Host: 192.168.1.2:8080")
协议头.加入成员 ("SOAPAction: \"\"")
协议头.加入成员 ("Accept-Encoding: gzip,deflate")
// 协议头.加入成员 ("Content-Length:" + 到文本 (取文本长度 (询问信息)))
协议头.加入成员 ("Content-Type: text/xml;charset=UTF-8")
协议头.加入成员 ("Connection: Keep-Alive")
file:///C:/Users/ADMINI~1/AppData/Local/Temp/ksohtml379804/wps22.png协议头.加入成员 ("User-Agent: Apache-HttpClient/4.1.1 (java 1.5)")
zzzzz = 网络访问22.网页访问_B ("http://192.168.1.2:8080/PlMesRf/
RfEntry.jws", 1, 询问信息, , "Host: 192.168.1.2:8080" + "\n" + "SOAPAction: \"\"" + "\n" + "Accept-Encoding: gzip,deflate" + "\n" + "Content-Type: text/xml;charset=UTF-8" + "\n" + "Connection: Keep-Alive" + "\n" + "User-Agent: Apache-HttpClient/4.1.1 (java 1.5)", , , , , , , )
// 网络返回 = 网络访问.网页访问 ("http://192.168.1.2:8080/PlMesRf/RfEntry.jws", 网页访问方式.POST, 询问信息, 协议头, , , , , , , , )
// 调试输出 (UTF8到文本 (网络返回.请求结果))
编辑框_返回XML.内容 = UTF8到文本 (zzzzz)
XML文档.从文本创建 (编辑框_返回XML.内容)
编辑框_返回XML.内容 = XML文档.取文本值 ("/soapenv:Envelope/soapenv:Body/ns1:Get_Equip_DataResponse/Get_Equip_DataReturn")
如果 (取文本左边 (编辑框_返回XML.内容, 1) == "1")
{
    标签_状态6.背景颜色 = 颜色类.红色
    标签_状态6.标题 = 编辑框_返回XML.内容
    编辑框_条码.禁止 =
    编辑框_条码.内容 = ""
    编辑框_条码.获取焦点 ()
    条码标志 = 0
    播放WAV资源 (sss, , )
    返回 (0)
}

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|递归火山软件开发平台 ( 鄂ICP备18029190号 )

GMT+8, 2025-11-11 06:17 , Processed in 0.085463 second(s), 17 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表