Hi,
We are working with an internal REST API (created by a large CRM supplier). The REST API is HTTPS but has a self-signed certificate. It seems like TTMSFNCCustomCloudBase does not want to connect because of the self-signed certificate.
If we use TNetHTTPClient from VCL it also refuses to connect until we set the OnValidateServerCertificate and manually accept all certificates regardless of their validity, as such:
procedure TfrmMain.HTTP1ValidateServerCertificate(const Sender: TObject;
const ARequest: TURLRequest; const Certificate: TCertificate;
var Accepted: Boolean);
begin
Accepted := True;
end;
How do we make TMS FNC Rest Client accept invalid HTTPS certificates?
This is the code we are currently using (which works like a charm as long as the HTTPS certificate is valid).
RClient := TTMSFNCCustomCloudBase.Create;
try
RClient.Request.Clear;
RClient.Request.Host := APIURL;
RClient.Request.Port := 8001;
RClient.Request.Path := AdditionalUrl+'/'+URL;
RClient.Request.AddHeader('Accept', 'application/json');
RClient.Request.AddHeader('SessionId', sessionId);
RClient.Request.Method := rmGET;
RResult := RClient.ExecuteRequest(nil,nil,false);
if (RResult.ResponseCode=200) then begin
Result := '{"data": {'+RResult.ResultString+'}';
end;
except
Result := '';
end;