ProtocolSubStatus财产

进口Leadtools进口Leadtools。MediaStreaming私人枚举W3CLOG［日期] = h1时间= h2c_ip = h4cs_username = h8s_sitename = h10s_computername = 3s_ip = &H40s_port = &H80cs_method = &H100cs_uri_stem = &H200cs_uri_query = &H400sc_status = &H800sc_win32_status = &H1000sc_bytes = &H2000cs_bytes = &H4000time_taken = &H8000cs_version = &H10000cs_host = &H20000cs_user_agent = &H40000cs_cookie = &H80000cs_referer = &H100000sc_substatus = &H200000结束枚举公共类CW3CLogHandler:实现了ILtmsLogHandler私人m_enable作为布尔私人m_fields作为整数私人m_localtime作为布尔私人m_dtfile作为DateTime私人m_software作为字符串私人m_folder作为字符串私人m_prefix作为字符串私人m_sw作为StreamWriter公共子新（按值传递前缀作为字符串，按值传递软件作为字符串，按值传递启用作为布尔，按值传递文件夹作为字符串，按值传递字段作为整数，按值传递本地时间作为布尔）m_prefix =前缀m_software =软件m_enable =启用m_folder =文件夹m_fields =字段m_localtime =作用结束子受保护的覆盖子Finalize ()结束子私人子WriteString (按值传递str作为字符串）m_sw.Write (str)结束子私人函数取得时间(按值传递dTime作为双）作为DateTime昏暗的dt作为DateTime = DateTime.FromOADate (dTime)如果m_localtime然后返回dt.ToLocalTime ()结束如果返回dt结束函数私人函数GetLogPath (按值传递时间戳作为双）作为字符串昏暗的dt作为DateTime =取得时间(时间戳)昏暗的strFullPath作为字符串试一试昏暗的解析器作为PathResolver =新PathResolver ()strFullPath = resolver.Resolve (m_folder)抓返回＂＂结束试一试strFullPath & =“\”strFullPath & = m_prefix如果（不m_localtime)然后strFullPath & = dt。ToString (“y-MM-dd-HH-mm-ss”）.替换(“-”，＂＂) &“UTC.log”其他的strFullPath & = dt。ToString (“y-MM-dd-HH-mm-ss”）.替换(“-”，＂＂) &. log”结束如果返回strFullPath结束函数公共子LoadConfig (按值传递服务器作为服务器)昏暗的启用作为布尔= m_enable昏暗的本地时间作为布尔= m_localtime昏暗的文件夹作为字符串= m_folder昏暗的字段作为整数= m_fields昏暗的脏作为布尔＝假昏暗的AppProps作为ApplicationProperties = server.GetApplicationProperties ()试一试使= AppProps。GetBoolean (“LogEnable”）抓AppProps。AddBoolean (“LogEnable”启用)肮脏的=真正的结束试一试试一试本地时间= AppProps。GetBoolean (“LogLocalTime”）抓AppProps。AddBoolean (“LogLocalTime”、作用)肮脏的=真正的结束试一试试一试= AppProps文件夹。GetString (“LogFolder”）抓AppProps。AddString (“LogFolder”文件夹)肮脏的=真正的结束试一试试一试= AppProps字段。GetInteger (“LogFields”）抓AppProps。AddInteger (“LogFields”、字段)肮脏的=真正的结束试一试如果脏然后server.SetApplicationProperties (AppProps)结束如果’如果有任何变化，那么我们需要关闭当前文件如果（不启用)需要说明（字符串.Compare (m_folder文件夹,真正的) < > 0)OrElse<字段> m_fieldsOrElsem_localtime < >本地时间然后如果不m_sw是没有什么然后m_sw.Close ()结束如果结束如果m_folder =文件夹m_localtime =作用m_enable =启用m_fields =字段结束子私人函数CreateLog (按值传递时间戳作为双）作为布尔如果不m_sw是没有什么然后m_sw.Close ()结束如果如果（不m_enable)然后返回假结束如果试一试m_sw = File.CreateText (GetLogPath(时间戳)抓返回假结束试一试m_dtfile =取得时间(时间戳)昏暗的年代作为字符串s =“#软件:”& m_software & Constants.vbCrLfWriteString (s)WriteString (“#版本:1.0”& Constants.vbCrLf)昏暗的dt作为DateTime =取得时间(时间戳)s =" #日期:"& dt。ToString (“yyyy-MM-dd HH: mm: ss”) & Constants.vbCrLfWriteString (s)s =“#字段:“如果(m_fields和CInt(W3CLOG。日期)) =CInt(W3CLOG。日期）然后s & =“日期”结束如果如果(m_fields和CInt(W3CLOG.time)) =CInt(W3CLOG.time)然后s & =“时间”结束如果如果(m_fields和CInt(W3CLOG.s_sitename)) =CInt(W3CLOG.s_sitename)然后s & =“s-sitename”结束如果如果(m_fields和CInt(W3CLOG.s_computername)) =CInt(W3CLOG.s_computername)然后s & =“s-computername”结束如果如果(m_fields和CInt(W3CLOG.s_ip)) =CInt(W3CLOG.s_ip)然后s & =“s-ip”结束如果如果(m_fields和CInt(W3CLOG.cs_method)) =CInt(W3CLOG.cs_method)然后s & =“cs方法”结束如果如果(m_fields和CInt(W3CLOG.cs_uri_stem)) =CInt(W3CLOG.cs_uri_stem)然后s & =“cs-uri-stem”结束如果如果(m_fields和CInt(W3CLOG.cs_uri_query)) =CInt(W3CLOG.cs_uri_query)然后s & =“cs-uri-query”结束如果如果(m_fields和CInt(W3CLOG.s_port)) =CInt(W3CLOG.s_port)然后s & =“s-port”结束如果如果(m_fields和CInt(W3CLOG.cs_username)) =CInt(W3CLOG.cs_username)然后s & =“cs-username”结束如果如果(m_fields和CInt(W3CLOG.c_ip)) =CInt(W3CLOG.c_ip)然后s & =“c-ip”结束如果如果(m_fields和CInt(W3CLOG.cs_version)) =CInt(W3CLOG.cs_version)然后s & =“cs-version”结束如果如果(m_fields和CInt(W3CLOG.cs_user_agent)) =CInt(W3CLOG.cs_user_agent)然后s & =“cs(用户代理)”结束如果如果(m_fields和CInt(W3CLOG.cs_cookie)) =CInt(W3CLOG.cs_cookie)然后s & =“cs(饼干)”结束如果如果(m_fields和CInt(W3CLOG.cs_referer)) =CInt(W3CLOG.cs_referer)然后s & =“cs(推荐人)”结束如果如果(m_fields和CInt(W3CLOG.cs_host)) =CInt(W3CLOG.cs_host)然后s & =“cs-host”结束如果如果(m_fields和CInt(W3CLOG.sc_status)) =CInt(W3CLOG.sc_status)然后s & =“sc-status”结束如果如果(m_fields和CInt(W3CLOG.sc_substatus)) =CInt(W3CLOG.sc_substatus)然后s & =“sc-substatus”结束如果如果(m_fields和CInt(W3CLOG.sc_win32_status)) =CInt(W3CLOG.sc_win32_status)然后s & =“sc-win32-status”结束如果如果(m_fields和CInt(W3CLOG.sc_bytes)) =CInt(W3CLOG.sc_bytes)然后s & =“sc-bytes”结束如果如果(m_fields和CInt(W3CLOG.cs_bytes)) =CInt(W3CLOG.cs_bytes)然后s & =“cs-bytes”结束如果如果(m_fields和CInt(W3CLOG.time_taken)) =CInt(W3CLOG.time_taken)然后s & =“时间”结束如果s & = Constants.vbCrLfWriteString (s)m_sw.Flush ()返回真正的结束函数私人函数逃避(按值传递年代作为字符串）作为字符串昏暗的t作为字符串＝＂＂为每一个c作为字符在年代如果（不字符.IsControl (c))需要说明（不字符.IsWhiteSpace (c))然后t & = c其他的t & =“+”结束如果下一个c返回t结束函数公共子InitializeLog (按值传递时间戳作为双）实现了ILtmsLogHandler。InitializeLogCreateLog(时间戳)结束子公共子TerminateLog ()实现了ILtmsLogHandler。TerminateLog如果不m_sw是没有什么然后m_sw.Close ()结束如果结束子公共子LogInformation (按值传递信息作为ILtmsLogInformation)实现了ILtmsLogHandler。LogInformation昏暗的年代作为字符串＝＂＂如果（不m_enable)然后返回结束如果检查我们是否需要滚动到一个新文件昏暗的dt作为DateTime =取得时间(info.TimeStamp)如果m_sw是没有什么OrElsedt。一天<> m_dtfile.DayOrElsedt。月< > m_dtfile。月OrElsedt。年的< > m_dtfile。一年然后如果（不CreateLog (info.TimeStamp))然后返回结束如果结束如果如果(m_fields和CInt(W3CLOG。日期)) =CInt(W3CLOG。日期）然后昏暗的dtDate作为DateTime =取得时间(info.TimeStamp)如果s.Length > 0然后s & =”“结束如果& = dtDate。ToString (“yyyy-MM-dd”）结束如果如果(m_fields和CInt(W3CLOG.time)) =CInt(W3CLOG.time)然后昏暗的dtTime作为DateTime =取得时间(info.TimeStamp)如果s.Length > 0然后s & =”“结束如果& = dtTime。ToString (“HH: mm: ss”）结束如果如果(m_fields和CInt(W3CLOG.s_sitename)) =CInt(W3CLOG.s_sitename)然后昏暗的str作为字符串= info。SiteName如果s.Length > 0然后s & =”“结束如果如果str.Length = 0然后s & =“-”其他的& =逃脱(str)结束如果结束如果如果(m_fields和CInt(W3CLOG.s_computername)) =CInt(W3CLOG.s_computername)然后昏暗的str作为字符串= info。ComputerName如果s.Length > 0然后s & =”“结束如果如果str.Length = 0然后s & =“-”其他的& =逃脱(str)结束如果结束如果如果(m_fields和CInt(W3CLOG.s_ip)) =CInt(W3CLOG.s_ip)然后昏暗的str作为字符串= info。ServerIP如果s.Length > 0然后s & =”“结束如果如果str.Length = 0然后s & =“-”其他的& =逃脱(str)结束如果结束如果如果(m_fields和CInt(W3CLOG.cs_method)) =CInt(W3CLOG.cs_method)然后昏暗的str作为字符串= info。方法如果s.Length > 0然后s & =”“结束如果如果str.Length = 0然后s & =“-”其他的& =逃脱(str)结束如果结束如果如果(m_fields和CInt(W3CLOG.cs_uri_stem)) =CInt(W3CLOG.cs_uri_stem)然后昏暗的str作为字符串= info。URIStem如果s.Length > 0然后s & =”“结束如果如果str.Length = 0然后s & =“-”其他的& =逃脱(str)结束如果结束如果如果(m_fields和CInt(W3CLOG.cs_uri_query)) =CInt(W3CLOG.cs_uri_query)然后昏暗的str作为字符串= info。URIQuery如果s.Length > 0然后s & =”“结束如果如果str.Length = 0然后s & =“-”其他的& =逃脱(str)结束如果结束如果如果(m_fields和CInt(W3CLOG.s_port)) =CInt(W3CLOG.s_port)然后昏暗的n作为整数= info。ServerPort如果s.Length > 0然后s & =”“结束如果s & = n.ToString ()结束如果如果(m_fields和CInt(W3CLOG.cs_username)) =CInt(W3CLOG.cs_username)然后昏暗的str作为字符串= info。用户名如果s.Length > 0然后s & =”“结束如果如果str.Length = 0然后s & =“-”其他的& =逃脱(str)结束如果结束如果如果(m_fields和CInt(W3CLOG.c_ip)) =CInt(W3CLOG.c_ip)然后昏暗的str作为字符串= info。ClientIP如果s.Length > 0然后s & =”“结束如果如果str.Length = 0然后s & =“-”其他的& =逃脱(str)结束如果结束如果如果(m_fields和CInt(W3CLOG.cs_version)) =CInt(W3CLOG.cs_version)然后昏暗的str作为字符串= info。ProtocolVersion如果s.Length > 0然后s & =”“结束如果如果str.Length = 0然后s & =“-”其他的& =逃脱(str)结束如果结束如果如果(m_fields和CInt(W3CLOG.cs_user_agent)) =CInt(W3CLOG.cs_user_agent)然后昏暗的str作为字符串= info。UserAgent如果s.Length > 0然后s & =”“结束如果如果str.Length = 0然后s & =“-”其他的& =逃脱(str)结束如果结束如果如果(m_fields和CInt(W3CLOG.cs_cookie)) =CInt(W3CLOG.cs_cookie)然后昏暗的str作为字符串= info。饼干如果s.Length > 0然后s & =”“结束如果如果str.Length = 0然后s & =“-”其他的& =逃脱(str)结束如果结束如果如果(m_fields和CInt(W3CLOG.cs_referer)) =CInt(W3CLOG.cs_referer)然后昏暗的str作为字符串= info。介绍人如果s.Length > 0然后s & =”“结束如果如果str.Length = 0然后s & =“-”其他的& =逃脱(str)结束如果结束如果如果(m_fields和CInt(W3CLOG.cs_host)) =CInt(W3CLOG.cs_host)然后昏暗的str作为字符串= info。宿主如果s.Length > 0然后s & =”“结束如果如果str.Length = 0然后s & =“-”其他的& =逃脱(str)结束如果结束如果如果(m_fields和CInt(W3CLOG.sc_status)) =CInt(W3CLOG.sc_status)然后昏暗的n作为整数= info。状态如果s.Length > 0然后s & =”“结束如果s & = n.ToString ()结束如果如果(m_fields和CInt(W3CLOG.sc_substatus)) =CInt(W3CLOG.sc_substatus)然后昏暗的n作为整数= info。ProtocolSubStatus如果s.Length > 0然后s & =”“结束如果s & = n.ToString ()结束如果如果(m_fields和CInt(W3CLOG.sc_win32_status)) =CInt(W3CLOG.sc_win32_status)然后昏暗的n作为整数= info。Win32Status如果s.Length > 0然后s & =”“结束如果s & = n.ToString ()结束如果如果(m_fields和CInt(W3CLOG.sc_bytes)) =CInt(W3CLOG.sc_bytes)然后昏暗的n作为整数= info。BytesSent如果s.Length > 0然后s & =”“结束如果如果n < 0然后s & =“-”其他的s & = n.ToString ()结束如果结束如果如果(m_fields和CInt(W3CLOG.cs_bytes)) =CInt(W3CLOG.cs_bytes)然后昏暗的n作为整数= info。BytesReceived如果s.Length > 0然后s & =”“结束如果如果n < 0然后s & =“-”其他的s & = n.ToString ()结束如果结束如果如果(m_fields和CInt(W3CLOG.time_taken)) =CInt(W3CLOG.time_taken)然后昏暗的n作为整数= info。TimeTaken如果s.Length > 0然后s & =”“结束如果如果n < 0然后s & =“-”其他的s & = n.ToString ()结束如果结束如果s & = Constants.vbCrLfWriteString (s)m_sw.Flush ()结束子结束类公共_server作为服务器=没有什么公共_result作为布尔＝假公共子W3CLogHandlerExample ()试一试昏暗的enumState作为状态昏暗的_loghandler作为CW3CLogHandler'创建一个服务器对象的实例_server =新Leadtools.MediaStreaming.Server ()’创建日志处理程序_loghandler =新CW3CLogHandler (“ltmsServer_”，“LEADTOOLS媒体流媒体服务器”，真正的，“% ltmsLogFolder %”0,假）'设置日志处理程序_server。ILogHandler = _loghandler的演示，比较我们刚刚设置的界面昏暗的ihandler作为ILtmsLogHandler =没有什么ihandler = _server。ILogHandler如果不ihandler是CType(_loghandler ILtmsLogHandler)然后_result =假返回结束如果’加载位于可执行文件夹下的config子文件夹中的配置文件’或将此部分注释掉，以使用服务器的默认设置运行_server。ImportConfigFile (“% ltmsConfigFolder % \ LeadtoolsMediaStreamingServer.xml”）启动服务器_server.Start ()确认运行状态以作演示用途enumState = _server。状态如果enumState =状态。开始然后’显示一条消息，提示服务器正在运行并等待OK对话框。显示(服务器已启动。按OK停止。”，“LEADTOOLS媒体流示例”, MessageBoxButtons。好的,MessageBoxIcon.Information)结束如果停止服务器_server。停止（）'删除日志处理程序_server。ILogHandler =没有什么_result =真正的抓e1作为异常_result =假结束试一试结束子