Guillaume ROQUES a écrit :
<div class="moz-text-flowed" style="font-family: -moz-fixed">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
</div>
Ok, I found it i forgot the path in the TWSslContext with the
certificate name.....
It work bu I don't understand why because with the demo I only put this
name in the TEdit.....
--
Cordialement,
Guillaume ROQUES
------------------------------------------------------------
* CANYON Technologies *
99 Bis Rue de la république
13400 AUBAGNE
Tél : 04.42.18.64.20 - Fax : 04.42.18.64.21
can...@canyon.fr <mailto:can...@canyon.fr>
http://www.canyon.fr/
--
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
