paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make some properties public

Browse Source 
git-svn-id: trunk@49276 -
This commit is contained in:
michael 2021-04-27 11:16:58 +00:00
parent d06cb1a20a
commit 51d1fefc12
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fcl-web/src/base/custhttpapp.pp
View File

@ -76,7 +76,6 @@ Type
Procedure InitResponse(AResponse : TResponse); override;
function WaitForRequest(out ARequest : TRequest; out AResponse : TResponse) : boolean; override;
Function CreateServer : TEmbeddedHttpServer; virtual;
Property HTTPServer : TEmbeddedHttpServer Read FServer;
Public
Procedure Run; override;
Procedure Terminate; override;
@ -104,6 +103,8 @@ Type
Property UseSSL : Boolean Read GetUseSSL Write SetUseSSL;
// HostName to use when using SSL
Property HostName : String Read GetHostName Write SetHostName;
// Access to server so you can set certificate data
Property HTTPServer : TEmbeddedHttpServer Read FServer;
end;
{ TCustomHTTPApplication }
@ -111,6 +112,7 @@ Type
TCustomHTTPApplication = Class(TCustomWebApplication)
private
procedure FakeConnect;
function GetCertificateData: TCertificateData;
function GetHostName: String;
function GetIdle: TNotifyEvent;
function GetIDleTimeOut: Cardinal;
@ -133,9 +135,10 @@ Type
procedure SetUseSSL(AValue: Boolean);
protected
function InitializeWebHandler: TWebHandler; override;
Function HTTPHandler : TFPHTTPServerHandler;
Public
procedure Terminate; override;
// Access to HTTP handler
Function HTTPHandler : TFPHTTPServerHandler;
Property Address : string Read GetAddress Write SetAddress;
Property Port : Word Read GetPort Write SetPort Default 80;
// Max connections on queue (for Listen call)
@ -154,6 +157,8 @@ Type
Property UseSSL : Boolean Read GetUseSSL Write SetUseSSL;
// Hostname to use when using SSL
Property HostName : String Read GetHostName Write SetHostName;
// Access to certificate data
Property CertificateData : TCertificateData Read GetCertificateData;
end;
@ -296,6 +301,11 @@ begin
end
end;
function TCustomHTTPApplication.GetCertificateData: TCertificateData;
begin
Result:=HTTPHandler.HTTPServer.CertificateData;
end;
function TCustomHTTPApplication.GetHostName: String;
begin
Result:=HTTPHandler.HostName;