Hi everyone,
I'm trying to use the TSslHttpServer, so I took a look on the
OverbyteIcs Ssl WebServer demo.
There is my code :
with SslHttpServer do
begin
DocDir := ExtractFilePath(Forms.Application.ExeName);
DefaultDoc := 'Index.htm';
TemplateDir := ExtractFilePath(Forms.Application.ExeName);
Port := IntToStr(PortSslHttp);
ClientClass := TMyHttpConnection;
SetAcceptableHostsList('');
end;
with TWSslContext do
begin
SslCertFile := 'Canyon.pem';
SslPassPhrase := '';
SslPrivKeyFile := 'Canyon.pem';
SslCAFile := 'Canyon.pem';
SslCAPath := ExtractFilePath(Forms.Application.ExeName);
SslVerifyPeer := False;
end;
TWSslContext.InitContext;
SslHttpServer.Start;
I added the USE_SSL condition in the package.
My application is a Windows service and this code is in the ServiceStart
section, when I Start it I've got an exception :
(ESslContextException) : File not found "'Canyon..pem"
......And the file "Canyon..pem" is in the application
path...........Someone got a clue ?
Guillaume ROQUES
CANYON Technologies
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
