Web服务器证书应用配置手册（五）

Web 服务器证书应用配置手册（五）

 

开发应用

VB

Dim objXMLHttp As New MSXML2.ServerXMLHTTP40   objXMLHttp.SetTimeouts 5000, 5000, 5000, 5000 objXMLHttp.Open "POST", "https://www.ykse.com.cn", False objXMLHttp.setOption 2, 13056 objXMLHttp.setOption 3, "winlai" ' 证书名称 objXMLHttp.Send XML ' 上报的数据   If objXMLHttp.Status <> 200 Then     ' 上报失败     Set objXMLHttp = Nothing     Exit Function End If Set objXMLHttp = Nothing

 

Delphi

uses ComObj;   var  xmlHttp: Olevariant;  intTimeouts: Integer; begin  intTimeouts := Timeouts * 1000;   try     xmlHttp := CreateOleObject('MSXML2.ServerXMLHTTP.4.0');     xmlHttp.SetTimeouts(intTimeouts, intTimeouts, intTimeouts, intTimeouts);     xmlHttp.Open('POST',url,false);     xmlHttp.SetOption(2, 13056);     if NeedCertificate='Y' then       xmlHttp.SetOption(3, ClientCertificate); // 证书名称     xmlHttp.Send(Data); // 上报的数据     Result := (xmlHttp.Status=200);   except     Result := False;   end; end;