彻底取消unigui /server页面

Posted 2021-05-18 秋·风

unigui的应用默认会在/server显示相关信息，unigui编译的应用不能简单设置就可以取消/server页面，经多次验证，在UniServerModule.UniGUIServerModuleHTTPCommand拦截/server就可以取消server页面：

procedure TUniServerModule.UniGUIServerModuleHTTPCommand(ARequestInfo: TIdHTTPRequestInfo;
  AResponseInfo: TIdHTTPResponseInfo; var Handled: Boolean);
begin
    if ARequestInfo.URI.ToLower=\'/server\' then
    begin
       Handled := true;
       AResponseInfo.ResponseNo:=405;
       AResponseInfo.CloseConnection:=true;
       AResponseInfo.ContentText :=\'Access denied\';
       AResponseInfo.CloseSession;
       exit;
    end;
end;

拦截处理前：

 

 

拦截处理后：