签署合同-自定义签署

//本范例借助了windows的com组件，因此只能在windows XP及其更高版本系统执行,不支持Unix/linux系统
//sdk接口都是以https方式调用，因此，要求你的系统(windows)已经拥有证书,我公司采用的证书是国际可信任服务商提供的安全证书，
//绝大部分系统已经内置如果您的系统出现了证书不可信问题，那可能是您的系统太老导致的，
//比如winxp之前的系统，此时需要您手动导入证书文件cacert.pem，即可使用
//cacert.pem为可信任根证书文件，用户请保持更新
//=====请求范例======
 string url = "https://api-v2.1dq.com/v5/Contracts/signed.json"
 string param  = "easy_id=175592531139104768&signed_data=[ {
        "seal_id": "必填-印章id",
	"page": "第几页如2",
	"x": "必填-需要盖章的x坐标位置",
        "y": "必填-需要盖章的y坐标位置"
    }
,{ "seal_id": "abf447a8-ad71-11ea-b95e-0242ac320a0c", "page": "1", "x": "200", "y": "200" }, { "seal_id": "abf447a8-ad71-11ea-b95e-0242ac320a0c", "page": "6", "x": "200", "y": "200" }]&words_id=2c6084c0-ad71-11ea-9664-0242ac320a0c&certification_code=eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9&certification_type=mobile&cross_page_data=[ { "seal_id": "abf447a8-ad71-11ea-b95e-0242ac320a0c", "y": "100" },{
        "seal_id": "必填-印章id",
        "y": "必填-需要盖章的y坐标位置"
    } ]&page_width=800"


//执行请求
OleObject httpRequest
httpRequest = CREATE OLEObject
long ll_result 
ll_result = httpRequest.ConnectToNewObject("WinHttp.WinHttpRequest.5.1")
IF ll_result < 0 THEN
	MessageBox("msg", "连接失败：与PowerBuilder.Application连接出错！")
	return
END IF

httpRequest.Option[9] = 128		//设置使用协议,128,TSL 1.0;512,TSL 1.1; 2048,TSL 1.2。出自winhttp.h文件
httpRequest.Open("POST", url, False, "", "")		//post方式，最大4MB数据
httpRequest.setRequestHeader("CONTENT-TYPE","application/x-www-form-urlencoded")
httpRequest.Send(param)

string result
result = httpRequest.ResponseText
MessageBox("请求成功", "返回结果:" + result)

destroy httpRequest