NetHTTPClient1.CustomHeaders['Content-type']:='application/json';
NetHTTPClient1.CustomHeaders['X-Nuonuo-Sign']:=SignStr;
sm:=Tstringstream.Create(JsonStr,TEncoding.UTF8);
ReturnStr:=NetHTTPClient1.Post('https://sandbox.nuonuocs.cn/open/v1/services'+SignSouceStr,sm).ContentAsString(tencoding.UTF8);//);
在ValidateServerCertificate事件里加这句:
procedure TForm1.NetHTTPClient1ValidateServerCertificate(const Sender: TObject;
const ARequest: TURLRequest; const Certificate: TCertificate;
var Accepted: Boolean);
begin
Accepted:=True;
end;