paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

+Indy HTTPS support (Thanks Patrick Kolla-ten Venne).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4524 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2016-02-27 12:53:13 +00:00
parent 8921e15d99
commit d28952365f
2 changed files with 61 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
wst/trunk/indy_http_server.pas
View File

@ -43,8 +43,9 @@ type
TwstIndyHttpListener = class(TwstListener)
private
FHTTPServerObject: TIdHTTPServer;
FRootAddress : string;
protected
FHTTPServerObject: TIdHTTPServer;
private
procedure ProcessWSDLRequest(
{$IFDEF INDY_10}

59
wst/trunk/indy_https_server.pas Normal file
View File

@ -0,0 +1,59 @@
unit indy_https_server;
interface
uses
IdSSLOpenSSL,
indy_http_server;
type
{ TwstIndyHttpsListener }
TwstIndyHttpsListener = class(TwstIndyHttpListener)
private
FCertFile: string;
FIoHandler: TIdServerIOHandlerSSLOpenSSL;
FKeyFile: string;
FRootCertFile: string;
procedure SetCertFile(AValue: string);
procedure SetKeyFile(AValue: string);
procedure SetRootCertFile(AValue: string);
public
constructor Create(const AServerIpAddress: string = '127.0.0.1'; const AListningPort: integer = 8000; const ADefaultClientPort: integer = 25000;
const AServerSoftware: string = 'Web Service Toolkit Application');
property CertFile: string read FCertFile write SetCertFile;
property RootCertFile: string read FRootCertFile write SetRootCertFile;
property KeyFile: string read FKeyFile write SetKeyFile;
end;
implementation
{ TwstIndyHttpsListener }
procedure TwstIndyHttpsListener.SetCertFile(AValue: string);
begin
FIoHandler.SSLOptions.CertFile := AValue;
end;
procedure TwstIndyHttpsListener.SetKeyFile(AValue: string);
begin
FIoHandler.SSLOptions.KeyFile := AValue;
end;
procedure TwstIndyHttpsListener.SetRootCertFile(AValue: string);
begin
FIoHandler.SSLOptions.RootCertFile := AValue;
end;
constructor TwstIndyHttpsListener.Create(const AServerIpAddress: string; const AListningPort: integer; const ADefaultClientPort: integer; const AServerSoftware: string);
begin
inherited Create(AServerIpAddress, AListningPort, ADefaultClientPort, AServerSoftware);
FIoHandler := TIdServerIOHandlerSSLOpenSSL.Create(nil);
// TIdSSLVersion = (sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1,sslvTLSv1_1,sslvTLSv1_2);
FIoHandler.SSLOptions.Method := sslvSSLv23;
FIoHandler.SSLOptions.Mode := sslmServer;
FHTTPServerObject.IOHandler := FIoHandler;
end;
end.