mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2026-06-13 16:05:40 +02:00
41 lines
673 B
ObjectPascal
41 lines
673 B
ObjectPascal
unit ServerModule;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, uniGUIServer, uniGUIMainModule, uniGUIApplication, uIdCustomHTTPServer,
|
|
uniGUITypes;
|
|
|
|
type
|
|
TUniServerModule = class(TUniGUIServerModule)
|
|
private
|
|
{ Private declarations }
|
|
protected
|
|
procedure FirstInit; override;
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
function UniServerModule: TUniServerModule;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses
|
|
UniGUIVars;
|
|
|
|
function UniServerModule: TUniServerModule;
|
|
begin
|
|
Result := TUniServerModule(UniGUIServerInstance);
|
|
end;
|
|
|
|
procedure TUniServerModule.FirstInit;
|
|
begin
|
|
InitServerModule(Self);
|
|
end;
|
|
|
|
initialization
|
|
RegisterServerModuleClass(TUniServerModule);
|
|
end.
|