procedure TfmClientMain.OnRemoteDBHttpClientEvent(Sender: TObject;
Client: THttpClient);
begin
TWinHttpEngine(Client.Engine).BeforeWinHttpSendRequest :=
procedure(Handle: HINTERNET)
var
dwFlags: DWORD;
begin
dwFlags := SECURITY_FLAG_IGNORE_UNKNOWN_CA or
SECURITY_FLAG_IGNORE_CERT_WRONG_USAGE or
SECURITY_FLAG_IGNORE_CERT_CN_INVALID or
SECURITY_FLAG_IGNORE_CERT_DATE_INVALID;
WinHttpCheck(WinHttpSetOption(Handle, WINHTTP_OPTION_SECURITY_FLAGS,
@dwFlags, SizeOf(dwFlags)));
end;
end;