服务器系统和源码要求是:
1、硬盘容量决定了服务器能储存用户信息的多少,硬盘分为两种,一种是机械硬盘,价格较便宜,但信息读取速度慢,可以同时接入多个。固态硬盘价格较高,信息读取速度慢,但也相应增加了单个服务器的费用。两种硬盘都可以后期再接。
2、CPU的核数决定了服务器可以同时解决的用户请求数,比如单个CPU能够响应直播系统源代码10个请求,那么双核就可以同时响应20个,核数越多越能帮服务器分担压力,降低服务器崩溃的可能。
3、主播端的带宽越大,视频的清晰度越高,但同样对服务器的要求也越高,低配置的服务器无法达到使用标准,自然就不能胜任高带宽,低配置服务器的压力可能从用户访问量变成了高带宽超载运作。
版本 2
子程序 搜索文件, , , 递归寻找文件
参数 寻找目录, 文本型
参数 关键字, 文本型, , 如 imagepak
参数 结果数组, 文本型, 参考 数组, 获取文件名添加到数组
参数 搜索子目录, 逻辑型, 可空, 默认真
参数 搜索个数, 整数型, 可空, 欲搜索文件最多个数,默认无限制
参数 完整路径结果, 逻辑型, 可空, 默认真,假返回单文件名
局部变量 文件名, 文本型
局部变量 i, 整数型
局部变量 n, 整数型
局部变量 时间, 整数型
如果真 (是否为空 (搜索子目录))
搜索子目录 = 真
如果真结束
如果真 (是否为空 (完整路径结果))
完整路径结果 = 真
如果真结束
如果真 (取文本右边 (寻找目录, 1) ≠ “\”)
寻找目录 = 子文本替换 (寻找目录 + “\”, “/”, “\”, , , 真)
如果真结束
文件名 = 寻找文件 (寻找目录 + 关键字, )
判断循环首 (文件名 ≠ “”)
如果 (是否为空 (搜索个数) 或 取数组成员数 (结果数组) < 搜索个数)
如果真 (完整路径结果)
文件名 = 寻找目录 + 文件名
如果真结束
加入成员 (结果数组, 文件名)
文件名 = 寻找文件 (, )
否则
返回 ()
如果结束
判断循环尾 ()
如果真 (搜索子目录)
文件名 = 寻找文件 (寻找目录 + “”, #子目录)
判断循环首 (文件名 ≠ “”)
如果真 (取文本左边 (文件名, 1) ≠ “”)
搜索文件 (寻找目录 + 文件名, 关键字, 结果数组, 搜索子目录, 搜索个数, 完整路径结果)
如果真结束
文件名 = 寻找文件 (, #子目录)
判断循环尾 ()
如果真结束
Private Declare Function GetVolumeInformation _
Lib "kernel32" Alias "GetVolumeInformationA" _
(ByVal lpRootPathName As String, _
ByVal lpszVolumeNameBuffer As String, _
ByVal lVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, _
ByVal lpszFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long
Public Function GetVolumeSerialNumber(ByVal RootPath As String) As String
Dim lpszVolumeNameBuffer As String
Dim lpszFileSystemNameBuffer As String
Dim lVolumeNameSize As Long
Dim lpVolumeSerialNumber As Long
Dim lpMaximumComponentLength As Long
Dim lpFileSystemFlags As Long
Dim nFileSystemNameSize As Long
Dim lRetVal As Long
lpVolumeSerialNumber = 0
lpMaximumComponentLength = 0
lpFileSystemFlags = 0
lpszVolumeNameBuffer = Space$(255)
lpszFileSystemNameBuffer = Space(255)
lVolumeNameSize = Len(lpszVolumeNameBuffer)
nFileSystemNameSize = Len(lpszFileSystemNameBuffer)
lRetVal = GetVolumeInformation(RootPath, _
lpszVolumeNameBuffer, _
lVolumeNameSize, _
lpVolumeSerialNumber, _
lpMaximumComponentLength, _
lpFileSystemFlags, _
lpszFileSystemNameBuffer, _
nFileSystemNameSize)
GetVolumeSerialNumber = Hex$(lpVolumeSerialNumber)
End Function
Private Sub Command1_Click()
Dim sRetVal As String
sRetVal = GetVolumeSerialNumber("C:\")
MsgBox "VolumeSerialNumber is: " & sRetVal
End Sub
只需在窗体建一个COMMAND1。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)