TNetHttpClient 证书设置

TNetHttpClient是Delphi中的一个HTTP客户端库，可以用于发送HTTP请求。在TNetHttpClient中，可以通过设置OnValidateServerCertificate事件来忽略证书验证。具体步骤如下：

1.在TNetHttpClient的OnValidateServerCertificate事件中添加以下代码：

procedure TForm1.NetHTTPClient1ValidateServerCertificate(const Sender: TObject;
  const ARequest: TURLRequest; const Certificate: TCertificate; var Accepted: Boolean);
begin
  Accepted := True;
end;

2.在发送HTTP请求之前，需要先创建TNetHttpClient对象，并设置请求的URL和方法。例如：

var
  NetHTTPClient: TNetHTTPClient;
  Response: IHTTPResponse;
begin
  NetHTTPClient := TNetHTTPClient.Create(nil);
  try
    Response := NetHTTPClient.Get('https://www.example.com');
    Memo1.Lines.Add(Response.ContentAsString);
  finally
    NetHTTPClient.Free;
  end;
end;

在上面的代码中，我们创建了一个TNetHttpClient对象，并使用Get方法发送了一个HTTPS请求。由于我们在OnValidateServerCertificate事件中设置了Accepted为True，因此TNetHttpClient会忽略证书验证，直接发送请求并返回响应。