I get this crazy error:
All my (test) code is:
All my (test) code is:
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdHTTPServer1.IOHandler:=SSLStack;
IdHTTPServer1.Active:=TRUE;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
SSLStack.SSLOptions.RootCertFile:='C:\Temp\zeroSSL.txt';
SSLStack.SSLOptions.CertFile:='C:\Temp\cert.crt';
SSLStack.SSLOptions.KeyFile:='C:\Temp\key.key';
end;