更新邮箱

//本范例借助了windows的com组件，因此只能在windows XP及其更高版本系统执行,不支持Unix/linux系统
//sdk接口都是以https方式调用，因此，要求你的系统(windows)已经拥有证书,我公司采用的证书是国际可信任服务商提供的安全证书，
//绝大部分系统已经内置如果您的系统出现了证书不可信问题，那可能是您的系统太老导致的，
//比如winxp之前的系统，此时需要您手动导入证书文件cacert.pem，即可使用
//cacert.pem为可信任根证书文件，用户请保持更新
//=====请求范例======
 string url = "https://api-v2.1dq.com/v1/User/updateEmail.json"
 string param  = ""


//执行请求
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