数字音频信息系统(AudioMIS)详细设计说明书

PAGE案卷号日期数字音频信息系统(AudioMIS)详细设计说明书作者：AudioMIS项目开发小组完成日期：签收人：签收日期：修改情况记录：版本号修改批准人修改人安装日期签收人

目录TOC\o"1-4"\h\z1引言 11.1编写目的 11.2背景 11.3定义 21.4参考资料 22程序系统的结构 22.1总体结构图 22.2各个功能模块结构图 42.2.1曲目信息查询模块 42.2.2图片信息模块 52.2.3用户信息模块 52.2.4网络信息模块 62.2.5点播记录模块 62.2.6点播排行模块 62.2.7曲目编辑模块 72.2.8图片编辑模块 72.2.9音频格式转换模块 72.2.10普通录音模块 82.2.11高级用户系统配置模块 82.2.12普通用户系统配置模块 92.2.13用户主功能模块 93程序描述 103.1通用功能模块 103.1.1GlobalUtilityEx单元 10功能说明 10成员函数和过程列表 10成员函数和过程设计 11.1ReadIniFile 11.2WriteIniFile 12.3AddZeroToBFNum 12.4GetFileSize 12.5GetFolderSize 12.6UserCheck 12.7PWDMaker 13.8PWDAnti 13.9MsgDlgShow 13.10SoftWareAutoRun 13.11OpenDataSet 13.12SecondsToMinute 14.13DelFolder 14.14DeleteFileFromChL 14.15IsAudioInChL 14.16MaxNoInTableL 14.17MinNoInChL 15.18RecordCountInChL 15.19ChNoToTarget 15.20ChNoToLastFilePath 15.21LocalNoToLastFilePath 15.22LocalNoToLastFilePathImg 16.23AudioToChannel 16.24OneAudioToLocal 16.25OneAudioToChannel 16.26IPLastSectionAnalyzor 16.27IPFront3SectionAnalyzor 17.28AudioToLocal 17.29GetIDandFileNameFromDBGrd 17.30GetImgIDandFilePathFromDBGrd 17.31InteractToChannel 17.32InteractToLocal 17.33ImageInteractToLocal 18.34QAudioToLocal 18.35QAudioToChannel 18.36OneImageToLocal 18.37ImageToLocal 18.38RecordFileToLib 19.39StringInCbx 19.40LoadFromDts 19.41InternetLogToDownLoadInfo 19.42AddChInfoinCbx 19.43DllReg 19.44OLERegister 20.45GetFtpPath 20.46DeleteMoreFiles 20.47QuoteComma 20.48Character 203.1.2GlobalConst单元 21功能说明 21常量列表 21变量列表 213.1.3ConstStrRes单元 22功能说明 22字符串资源列表 223.1.4GlobalSetODBC单元 23功能说明 23成员变量 23成员函数和过程列表 23成员函数和过程设计 23.1GetSQLDriver 23.2WriteODBC 23.3WriteODBCValues 24.4WriteDatasource 24.5SetOdbc 243.1.5MP3TAG单元 24功能说明 24成员变量 24成员函数和过程列表 25成员函数和过程设计 25.1FSetTitle 25.2FSetArtist 25.3FSetAlbum 25.4FSetYear 26.5FSetComment 26.6FSetTrack 26.7FSetGenreID 26.8FGetGenre 26.9FGetDuration 26.10ReadFromFile 27.11SaveToFile 27.12RemoveFromFile 27.13FGetDuration 27.14constructorCreate 27.14ResetData 273.1.6OutputInfoConstStr单元 28功能说明 28成员变量 283.1.7PictureInfo单元 28功能说明 28成员变量 28成员函数和过程列表 28成员函数和过程设计 28.1AnalysePicInfo 283.1.8SetRecordIn单元 29功能说明 29成员变量 29成员函数和过程列表 29成员函数和过程设计 29.1GetIndexOFRecCtrl 29.2GetIndexOFLineIn 29.3GetIndexOFMicrophone 293.1.9SetRecordIn单元 29功能说明 29成员变量 30成员函数和过程列表 30成员函数和过程设计 30.1functionDetection 30.2procedureRestoreChannelVir 303.1.10UpdateLocalSign单元 30功能说明 30成员变量 30成员函数和过程列表 30成员函数和过程设计 30.1UpdateStoken 30.2ReadStoken 31.3UpdateWriteDB 31.4UpdateWriteDBAndFile 31.5MakeLocalFilePath 313.2网络服务控制模块（IIsManage单元） 313.2.1TServiceManager类 31功能说明 31成员变量 31成员函数和过程列表 31成员函数和过程设计 32.1DoStartService 32.2Connect 32.3OpenServiceConnection 32.4StartService 32.5StopService 33.7PauseService 33.7ContinueService 33.8ShutdownService 33.9DisableService 33.10GetStatus 33.11ServiceRunning 33.12ServiceStopped 333.2.2IIS控制模块 34功能说明 34成员变量 34成员函数和过程列表 34成员函数和过程设计 34.1CreateIISVirtualPath 34.2SetIISRootPathParam 34.3KillIISPath 34.4IISPathExist 34.5CreateIISVirtualPathFTP 35.6KillIISPathFTP 35.7IISPathExistFTP 35.8ADsGetObject 353.3网络检测模块 353.3.1TNetService类 35功能说明 35成员变量 35成员函数和过程列表 36成员函数和过程设计 36.1TPingReplyEvent 36.2TPingErrorEvent 363.3.2TPingThread类 36功能说明 36成员变量 36成员函数和过程列表 36成员函数和过程设计 37.1ReplyHandler 37.2DoPingReply 37.3DoPingError 37.4Execute 37.5constructorCreate 373.3.3TNetService类 37功能说明 37成员变量 37成员函数和过程列表 38成员函数和过程设计 38.1Ping 38.2OnPingReply 38.3OnPingError 38.4RaiseError 38.5RaiseError 38.6RaiseError 39.7RaiseError 39.8RaiseError 393.4曲目信息查询模块（AuidoInfoFrm） 393.4.4功能说明 393.4.2成员变量 393.4.3成员函数和过程列表 393.4.4成员函数和过程设计 40DelMoreAudio 40DelRecordAndFile 40SetFormButtons 40UpdateButtonStates 40SetDBGridField 40SetDataSource 41ClearDBTextCaption 41SetDBTextHint 41hotkey 410AudioImport 413.5图片信息模块（ImageInfoFrm） 413.5.1功能说明 413.5.2成员变量 413.5.3成员函数和过程列表 423.5.4成员函数和过程设计 42ImagesImport 42hotkey 423.6用户信息模块（UserInfoFrm） 423.6.1功能说明 423.6.2成员变量 423.7网络信息模块（NetInfoFrm） 423.7.1功能说明 423.7.2成员变量 433.7.3成员函数和过程列表 433.7.4成员函数和过程设计 43PingReply 43PingError 433.8点播排行模块（AodioOrderFrm） 433.8.1功能说明 433.8.2成员变量 443.8.3成员函数和过程列表 443.8.4成员函数和过程设计 44GetOrderAudioInfoFromDBGrd 44SetDBGridColumnWidth 443.9点播记录模块（AudioRecordsFrm） 443.9.1功能说明 443.9.2成员变量 443.9.3成员函数和过程列表 443.9.4成员函数和过程设计 45SetDBTxtDatasource 45AllSelect 45SetDBGridField 45ClearDBTextCapton 45SetDBTextHint 453.10曲目编辑模块（AudioEditFrm） 453.10.1功能说明 453.10.2成员变量 463.10.3成员函数和过程列表 463.10.4成员函数和过程设计 463.11图片编辑模块（ImageEditFrm） 463.11.1功能说明 463.11.2成员变量 463.11.3成员函数和过程列表 463.11.4成员函数和过程设计 47DrawFrame 47CutBMPImage 47PicScaled 473.12音频格式转换模块（AudioConvertFrm） 473.12.1功能说明 473.12.2成员变量 473.12.3成员函数和过程列表 473.12.4成员函数和过程设计 48SetMp3Info 48DefaultMp3InfoSet 48WaveToMp3Process 48SetMp3FileTag 48UserMp3EcdInfoSet 483.13普通录音模块（GRecordFrm） 483.13.1功能说明 483.13.2成员变量 483.13.3成员函数和过程列表 493.13.4成员函数和过程设计 49SetAudioRecordInfo 49DefaultAudioRecordInfo 49UserMp3RcdInfoSet 49StartRecord 49SetMp3FileTag 493.14用户登录模块（LoginFrm） 503.14.1功能说明 503.14.2成员变量 503.14.3成员函数和过程列表 503.14.4成员函数和过程设计 50DeleteTrayIcon 50hotkey 50Mousemessage 50ShutDown 51LoginCheck 51GetWeekDateTime 51GetTheTopTenAudios 51数字音频信息管理系统(AudioMIS)——详细设计说明书第56页共61页详细设计说明书1引言1.1编写目的在前一阶段（概要设计说明书）中，已解决了实现该系统需求的程序模块设计问题。包括如何把该系统划分成若干个模块、决定各个模块之间的接口、模块之间传递的信息，以及数据结构、模块结构的设计等。在以下的详细设计报告中将对在本阶段中对系统所做的所有详细设计进行说明。在本阶段中，确定应该如何具体地实现所要求的系统，从而在编码阶段可以把这个描述直接翻译成用具体的程序语言书写的程序。主要的工作有：根据在《需求分析说明书》中所描述的数据、功能、运行、性能需求，并依照《概要设计说明书》所确定的处理流程、总体结构和模块外部设计，设计软件系统的结构设计、逐个模块的程序描述（包括各模块的功能、性能、输入、输出、算法、程序逻辑、接口等等）。在以下的各个阶段中，《用户操作手册》将与本阶段的工作紧密结合，努力作到让用户易懂易学。本说明书提供了数字音频信息管理系统各个模块部件的说明，以供编码人员具体实现及今后的维护工作。1.2背景本次开发的项目名为：数字音频信息管理系统软件，项目开发的提出方为中船重工集团公司第七一九研究所，开发单位为华中师范大学信息技术系。本软件的开发主要是满足舰艇上的特殊环境的需要，即舰艇上空间有限，客户端用的只是单片机。客户端通过单片机发送的点播信息，均通过本软件进行响应，并且通过本软件对整个系统进行必要的管理。本软件是整个舰艇上配载的数字音频点播系统中的一部分，主要负责的是服务器端的功能实现。数字音频服务器以RS-232、声卡LineIn接口分别接收数字音频信息交换控制器的控制和音频信息。1.3定义SQLSERVER：系统服务器所使用的数据库管理系统（DBMS）。SQL：一种用于访问查询数据库的语言。AudioMIS：数字音频信息管理系统。ODBC：(Open

Database

Connectivity，开放数据库互连)是微软公司开放服务结构(WOSA，Windows

Open

Services

Architecture)中有关数据库的一个组成部分，它建立了一组规范，并提供了一组对数据库访问的标准API（应用程序编程接口）。IIS（InternetInformationServer）：MicrosoftIIS是允许在公共Intranet或Internet上发布信息的Web服务器。强插：控制台启动或结束广播（或讲话）的指令描述。实时广播：控制台启动了广播（或讲话），客户端实时收听功能。1.4参考资料参考资料：《数字音频管理系统软件开发任务书》华中师范大学信息技术系；《数字音频系统设计方案》华中师范大学信息技术系；文档编写标准依据《软件设计文档国家标准（GB8567—88）》；编码标准采用《程序设计规范（Delphi）2.0》。GB/T

1526-1989信息处理数据流程图、程序流程图、系统流程图、程序网络图和系统资源图的文件编制符号及约定；GB/T

8567-1988计算机软件产品开发文件编制指南；GB/T

16680-1996软件文档管理指南。2程序系统的结构2.1总体结构图数字音频信息管理系统数字音频信息管理系统信息查询录音模块编辑模块系统管理曲目信息查询图片信息查询用户信息查询网络信息查询点播记录查询点播排行查询广播信息查询一般录音功能曲目编辑图片编解音频格式转换超级用户管理模块普通用户管理模块频道信息设置音频类别设置广播信息设置密码修改点播服务控制用户信息设置系统初始化设置账号管理2.2各个功能模块结构图2.2.1曲目信息查询模块曲目信息查询曲目信息查询曲目导入曲目导出曲目删除曲目试听停止试听曲目编辑曲目查找音频曲目库本地曲目库频道1…n导出到频道导出到本地导出到频道导出到本地曲目导出曲目删除曲目试听停止试听曲目编辑曲目导出曲目删除曲目试听停止试听曲目编辑按演唱者按歌曲名导出到频道导出到本地->编辑界面->编辑界面->编辑界面2.2.图片信息图片信息图片库用户图片图片导入图片导出图片删除图片编辑图片导出图片删除图片导入图片导出图片导入图片导出编辑界面2.2.用户信息用户信息更新选择用户更新所有用户刷新曲目更新取消更新图片更新曲目更新取消更新图片更新2.2.网络信息网络信息检测选定终端检测所有终端停止检测2.2.点播记录点播记录按用户编号查询按音频类别查询按频道编号查询2.2.点播排行点播排行曲目点播排行查询频道点播排行查询音频类别排行查询2.2.曲目信息修改曲目信息修改曲目导出曲目试听停止试听曲目查找曲目编辑导出到频道导出到本地按演唱者按歌曲名2.2.保存图片保存图片图片编辑图片裁剪整体缩略2.2.音频文件音频文件参数设置转换成MP3试听2.2.录音参数设置录音参数设置选择录音源试听录音保存录音录音2.2.系统初始化系统初始化频道信息设置用户信息设置广播信息设置账户管理音频类别设置点播服务控制高级系统管理配置IIS服务设置系统参数连接数据库修改用户信息删除用户添加用户修改删除添加参数设置删除方式选择添加删除启动点播服务停止点播服务2.2.高级系统管理高级系统管理频道信息设置广播信息设置账户管理音频类别设置点播服务控制参数设置删除方式选择密码修改启动点播服务停止点播服务修改添加删除2.2.用户登录界面用户登录界面登录系统退出系统进入Windows重启系统关机3程序描述3.1通用功能模块3.1.1GlobalUtilityEx3.1.1本单元主要定义了数字音频信息管理系统中所使用的通用函数和过程。3.1.1functionReadIniFile(constFilepath,Section,Ident,Default:String;constVarType:Integer):string;procedureWriteIniFile(constFilepath,Section,Ident,NewValue:String;constVarType:Integer);functionAddZeroToBFNum(constNoZeroBFNum,NumCount:Integer):string;functionGetFileSize(constFilePath:string;constValueType,ValuePre:Integer):string;functionGetFolderSize(constDirectryPath,FileStyle:string):Longint;functionUserCheck(constUserName,PWD:string):Integer;functionPWDMaker(constsourcepwd:string):string;functionPWDAnti(constsourcepwd:string):string;functionMsgDlgShow(constMsgCaption,MsgStr:string;constBtnCount,IconTypeNo:Integer;BtnCaption:Integer=0):Boolean;procedureSoftWareAutoRun(constAutoRun:Boolean);procedureOpenDataSet(DataSet:TADODataSet;CommandStr:string;TempCommandStr:string='');functionSecondsToMinute(constseconds:Integer):string;functionDelFolder(FolderPath:string):Boolean;procedureDeleteFileFromChL(constTableName,FieldName:string;constAudioID:Integer);functionIsAudioInChL(Dts:TADODataSet;constLookValue,ChLNo:integer;constChLIDFieldName,LookFName:string):Boolean;functionMaxNoInTableL(ADOcmd:TADOCommand;constTableName,RecordID:String):Integer;functionMinNoInChL(Dts:TADODataSet;constFNameChLNo,FNameNumInChL:String;constChLNo,MaxAudioCount:Integer):Integer;functionRecordCountInChL(Dcmd:TADOCommand;constTableName,ChLNoFieldName:string;constChLNo:Integer):Integer;functionChNoToTarget(constChNo,InChNo:Integer):String;functionChNoToLastFilePath(constChNo,InChNo:Integer):String;functionLocalNoToLastFilePath(constLNo,InLNo:Integer):String;functionLocalNoToLastFilePathImg(constLNo,InLNo:Integer):String;procedureAudioToChannel(Pgbr:TsuiProgressBar;DBGrid:TDBGridEh;constChLNo:Integer);procedureOneAudioToLocal(constSPath:string;constAudioID,RecordID,ALNo,AInLNo:integer);procedureOneAudioToChannel(constSPath:string;constAudioID,RecordID,AChNo,AInChNo:integer);functionIPLastSectionAnalyzor(constIP:string):String;functionIPFront3SectionAnalyzor(constIP:string):string;functionAudioToLocal(Pgbr:TsuiProgressBar;DBGrid:TDBGridEh;constClientNo:Integer):string;procedureGetIDandFileNameFromDBGrd(DBGrid:TDBGridEh);procedureGetImgIDandFilePathFromDBGrd(DBGrid:TDBGridEh);procedureInteractToChannel(Pgbr:TsuiProgressBar;constFChannelID:Integer);functionInteractToLocal(Pgbr:TsuiProgressBar;constFClientID:Integer):string;functionImageInteractToLocal(Pgbr:TsuiProgressBar;constClientNo:Integer):string;functionQAudioToLocal(Pgbr:TsuiProgressBar;DBGrid:TDBGridEh;constClientNo:Integer):string;procedureQAudioToChannel(Pgbr:TsuiProgressBar;DBGrid:TDBGridEh;constChLNo:Integer);procedureOneImageToLocal(constsPath:string;constRecordID,ImageID,LNo,LInNo:Integer;constImgName:string);functionImageToLocal(Pgbr:TsuiProgressBar;DBGrid:TDBGridEh;constClientNo:Integer):string;functionRecordFileToLib(constAFileName:string;IsAutoRcd:boolean;constACategoryID:Integer):boolean;functionStringInCbx(Field:string;Cbx:TsuiComboBox):Boolean;procedureLoadFromDts(Dts:TDataSet;Cbx:TsuiComboBox;Field:string);procedureInternetLogToDownLoadInfo;procedureAddChInfoinCbx(Cbx:TsuiComboBox);procedureDllReg;functionOLERegister(sOleFileName:String;OleAction:Byte):Boolean;functionShowLimitDate(Today:TDateTime):string;functionGetFtpPath:string;procedureDeleteMoreFiles(FilePath:string);functionQuoteComma(IniStr:String):String;functionCharacter(s:string;chl:Integer):String;.13.读取配置文件项3.constFilepath,Section,Ident,Default:String;constVarType:Integer3.相应配置文件参数项的值.23.写入配置信息项的值3.constFilepath,Section,Ident,Default:String;constVarType:Integer.3.33.在数字前面补零3.constNoZeroBFNum,NumCount:Integer3.返回字符串形式的前面补零了序号.43.获取文件大小3.constFilePath:string;constValueType,ValuePre:Integer3.返回文件的大小.53.获取文件夹内文件的大小3.constDirectryPath,FileStyle:string3.返回文件夹内规定类型的文件的大小.6UserCheck.6.1功能描述用户合法性检查.6.2输入constUserName,PWD:string.6.3返回值返回为True则合法，False不合法.7PWDMaker.7.1功能描述加密字符串.7.2输入constsourcepwd:string.7.3返回值返回加密后的字符串.8PWDAnti.8.1功能描述解密字符串.8.2输入constsourcepwd:string.8.3返回值返回解密后的字符串.9MsgDlgShow.9.1功能描述通用消息提示模版.9.2输入constMsgCaption,MsgStr:string;constBtnCount,IconTypeNo:Integer;BtnCaption:Integer=0.9.3返回值返回用户操作结果TrueOrFalse.10SoftWareAutoRun.10.1功能描述设置软件自启动功能.10.2输入constAutoRun:Boolean.11OpenDataSet.11.1功能描述打开数据集.11.2输入DataSet:TADODataSet;CommandStr:string;TempCommandStr:string=''.12SecondsToMinute.12.1功能描述时间转换函数.12.2输入constseconds:Integer.12.3返回值返回转换值.13DelFolder.13.1功能描述删除文件及文件夹内的所有文件.13.2输入FolderPath:string.13.3返回值返回操作结果：True成功，False失败.14DeleteFileFromChL.14.1功能描述删除频道或本地曲目库中的音频文件.14.2输入constTableName,FieldName:string;constAudioID:Integer.15IsAudioInChL.15.1功能描述检查频道或本地曲目库中是否已存在该曲目.15.2输入Dts:TADODataSet;constLookValue,ChLNo:integer;constChLIDFieldName,LookFName:string.15.3返回值True=存在，False=不存在.16MaxNoInTableL.16.1功能描述获取数据表中的最大记录号.16.2输入ADOcmd:TADOCommand;constTableName,RecordID:String.16.3返回值返回表中的最大记录编号.17MinNoInChL.17.1功能描述获取数据表中的最小记录编号.17.2输入Dts:TADODataSet;constFNameChLNo,FNameNumInChL:String;constChLNo,MaxAudioCount:Integer.17.3返回值数据表中的最小记录编号.18RecordCountInChL.18.1功能描述获取数据表中的记录条数.18.2输入Dcmd:TADOCommand;constTableName,ChLNoFieldName:string;constChLNo:Integer.18.3返回值获取数据表中的记录条数.19ChNoToTarget.19.1功能描述把频道号转换为目标地址类型.19.2输入constChNo,InChNo:Integer.19.3返回值返回转换后的字符串.20ChNoToLastFilePath.20.1功能描述转换频道号为目标地址.20.2输入constChNo,InChNo:Integer.20.3返回值返回目标地址字符串.21LocalNoToLastFilePath.21.1功能描述转换本地曲目库编号为目标地址.21.2输入constLNo,InLNo:Integer.21.3返回值返回目标地址.22LocalNoToLastFilePathImg.22.1功能描述转换用户编号为图片文件地址.22.2输入constLNo,InLNo:Integer.22.3返回值饭或目标地址字符串.23AudioToChannel.23.1功能描述导出曲目到频道.23.2输入Pgbr:TsuiProgressBar;DBGrid:TDBGridEh;constChLNo:Integer.24OneAudioToLocal.24.1功能描述导出一首曲目到本地曲目库.24.2输入constSPath:string;constAudioID,RecordID,ALNo,AInLNo:integer.25OneAudioToChannel.25.1功能描述导出一首曲目到频道.25.2输入constSPath:string;constAudioID,RecordID,AChNo,AInChNo:integer.26IPLastSectionAnalyzor.26.1功能描述解析IP地址的最后一个字段.26.2输入constIP:string.26.3返回值返回IP地址最后一个字段.27IPFront3SectionAnalyzor.27.1功能描述获取IP地址前三个字段.27.2输入constIP:string.27.3返回值返回IP地址前三个字段的值.28AudioToLocal.28.1功能描述导出音频资源到本地曲目库.28.2输入Pgbr:TsuiProgressBar;DBGrid:TDBGridEh;constClientNo:IntegeR.28.3返回值返回操作信息提示.29GetIDandFileNameFromDBGrd.29.1功能描述获取数据表中的ID和FileName.29.2输入DBGrid:TDBGridEh.30GetImgIDandFilePathFromDBGrd.30.1功能描述获取数据表中图片的ID和FileName.30.2输入DBGrid:TDBGridEh.31InteractToChannel.31.1功能描述曲目互导函数.31.2输入Pgbr:TsuiProgressBar;constFChannelID:Integer.32InteractToLocal.32.1功能描述曲目互导函数.32.2输入Pgbr:TsuiProgressBar;constFClientID:Integer.32.3返回值返回操作结果信息.33ImageInteractToLocal.33.1功能描述图片互导函数.33.2输入Pgbr:TsuiProgressBar;constClientNo:Integer.33.3返回值返回操作结果信息.34QAudioToLocal.34.1功能描述曲目互导函数.34.2输入Pgbr:TsuiProgressBar;DBGrid:TDBGridEh;constClientNo:Integer.34.3返回值返回操作结果信息.35QAudioToChannel.35.1功能描述曲目互导函数.35.2输入Pgbr:TsuiProgressBar;DBGrid:TDBGridEh;constChLNo:Integer.35.3返回值返回操作结果信息.36OneImageToLocal.36.1功能描述导出一个图片到本地曲目库.36.2输入constsPath:string;constRecordID,ImageID,LNo,LInNo:Integer;constImgName:string.37ImageToLocal.37.1功能描述导出图片到本地曲目库.37.2输入Pgbr:TsuiProgressBar;DBGrid:TDBGridEh;constClientNo:Integer.37.3返回值返回操作结果信息.38RecordFileToLib.38.1功能描述录音文件入库.38.2输入constAFileName:string;IsAutoRcd:boolean;constACategoryID:Intege.38.3返回值True=已入库；False=未入库.39StringInCbx.39.1功能描述判断Cbx中是否存在要田间的字符串.39.2输入Field:string;Cbx:TsuiComboBox.39.3返回值True=存在；False=不存在.40LoadFromDts.40.1功能描述获取数据集中的某一个字段所有值.40.2输入Dts:TDataSet;Cbx:TsuiComboBox;Field:string.41InternetLogToDownLoadInfo.41.1功能描述数据表记录转移.42AddChInfoinCbx.42.1功能描述向Cbx中添加信息.42.2输入Cbx:TsuiComboBox.43DllReg.43.1功能描述Dll注册.44OLERegister.44.1功能描述OLE注册.44.2输入sOleFileName:String;OleAction:Byte.44.3返回值True=成功；False=失败.45GetFtpPath.45.1功能描述获取Ftp虚拟路径.45.2输入.45.3返回值True=成功；False=失败.46DeleteMoreFiles.46.1功能描述删除多个文件.46.2输入FilePath:string.47QuoteComma.47.1功能描述字符串格式转换.47.2输入IniStr:String.47.3返回值返回转换后的字符串.48Character.48.1功能描述截取部分字符串.48.2输入s:string;chl:Integer.48.3返回值返回字符串3.1.23.1.本单元主要定义了数字音频信息管理系统中所使用的常量和全局变量。3.1.SuperUserName='super719';SuperPWD='719super';DFPathName='D:\音频库';DFPathDir='D:\音频库\';DAutorecordDir='D:\音频库\广播录音';DRecordDir='D:\音频库\普通录音';DLocalAudioSize=62914560;DLocalImageSize=921600;ChFolderName='';LFolderName='L';StartSign=$F1;StopSign=$F0;ScreenWidth:LongInt=1024;ScreenHeight:LongInt=768;oldformwidth:LongInt=1024;FontName='楷体_GB2312';3.1.UserName,UserPWD,ConPWD:string;OldUserName,OldPWD:string;IsRecording:Boolean;IniFilePath:string;Mp3InfoIniFilePath:string;HelpFilePath:string;ChNum:Integer;ClientNum:Integer;NumPerCh:Integer;NumPerClient:Integer;PicNumPerClient:integer;ComPort:Integer;InputValue:Integer;RegistSign:Boolean;DllRegSign:integer;RestoreSign:boolean;IsGRecording:Boolean;RecordTitle,RecordArtist,RecordCategory,RecordComment,AutoDelDay:string;AClientsNO:arrayofinteger;AAudioID:arrayofInteger;AFileName:arrayofstring;AImageID:arrayofinteger;AFilePath:arrayofstring;EditAudioID:string;TopAudioName:arrayofstring;TopAudioCount:arrayofstring;FormThemesPath:string;OldIP:string;FTPPath:string;StartDate:TDateTime;EndDate:TDateTime;FormExChangeAudio:Boolean;FormExChangePicture:Boolean;FPathName:string;FPathDir:string;AutorecordDir:string;RecordDir:string;LocalAudioSize,LocalImageSize:Integer;OutputInfoStrlist:TStrings;CurAudioID:Integer;CurImageID:Integer;TempFileDir:string;3.1.33.1.本单元主要定义了数字音频信息管理系统中所使用的通用字符串常量。3.1.SOutputSuccessA='本地曲目库%s:曲目导出成功！';SMoreSelectA='本地曲目库%s:您选择的曲目数超出了允许导出的曲目数！';SOverSizeA='本地曲目库%s:所剩空间大小不足，请删除部分曲目！';SNotselectA='您还没有选择要导出的曲目！可使用Shift+(↑)或(↓)方向键进行选择！';SOutputSuccessImg='本地曲目库%s:图片导出成功！';SMoreSelectImg='本地曲目库%s:您选择的图片数超出了允许导出的图片数！';SOverSizeImg='本地曲目库%s:所剩空间大小不足，请先删除部分图片！';SErrorImg='本地曲目库%s:有部分不符合规格图片未被导出！';SNotselectImg='您还没有选择要导出的图片,可使用Shift+(↑)或(↓)方向键进行选择！';SNotSelectClient='您还没有选择用户编号,可使用Shift+(↑)或(↓)方向键进行选择！';SErrorInputValue='输入有误，请输入%d--%d之间的整数值！';SErrorSQLOpen='%s，请检查数据库服务器是否运行！或重新连接数据库！';SErrorIPExist='IP为%s的用户已存在！';SSoundcardBusy='其他程序正在使用录音设备（如系统已自动录音已启动），请先停止其他录音程序！';SOpenAudioError='音频文件不存在或播放设备打开失败！';SFileNameExist='存在同名文件，请重新命名保存！';SSetMp3TagSuccess='您设置的录音文件信息已成功写入录音文件！';SSetMp3TagFailure='您设置的录音文件信息保存失败！';SCloseQueryOnRcd='正在录音！是否停止录音并关闭吗？';SCloseQueryNosave='录音文件还未保存，是否保存？';3.1.43.1.本单元主要定义了数字音频信息管理系统中所使用的ODBC配置单元。.functionGetSQLDriver:string;functionWriteODBC(FDSNName:string):boolean;functionWriteODBCValues(FDBName,FUserName,FSevName:string):boolean;functionWriteDatasource(FDSNName:string):boolean;functionSetOdbc(DBName,UserName,SevName,DSNName:string):boolean;.43.获取SQL驱动安装路径3.1.43.写ODBC注册值3.FDSNName:string3.True=成功；False=失败3.1.43.写ODBC注册信息值3.FDBName,FUserName,FSevName:string3.True=成功；False=失败3.1.43.写数据库名称3.FDSNName:string3.True=成功；False=失败3.1.43.设置ODBC3.DBName,UserName,SevName,DSNName:string3.True=成功；False=失败3.1.53.1.本单元主要定义了数字音频信息管理系统中所使用的音频格式定义处理单元。3.1.MusicGenre:array[0..MAX_MUSIC_GENRES-1]ofstring;String04=string[4];String30=string[30];FExists:Boolean;FVersionID:Byte;FTitle:String30;FArtist:String30;FAlbum:String30;FYear:String04;FComment:String30;FTrack:Byte;FGenreID:Byte;FDuration:Integer;3.1.procedureFSetTitle(constNewTitle:String30);procedureFSetArtist(constNewArtist:String30);procedureFSetAlbum(constNewAlbum:String30);procedureFSetYear(constNewYear:String04);procedureFSetComment(constNewComment:String30);procedureFSetTrack(constNewTrack:Byte);procedureFSetGenreID(constNewGenreID:Byte);functionFGetGenre:string;functionFGetDuration(constAFileName:string):Integer;constructorCreate;{Createobject}procedureResetData;{Resetalldata}functionReadFromFile(constFileName:string):Boolean;{Loadtag}functionRemoveFromFile(constFileName:string):Boolean;{Deletetag}functionSaveToFile(constFileName:string):Boolean;{Savetag}.5.4.3.写入Tag信息Title的值3.constNewTitle:String30.23.写入Tag信息Artist的值3.constNewArtist:String30.33.写入Tag信息Album的值3.constNewAlbum:String30.43.写入Tag信息Year的值3.constNewYear:String0.53.写入Tag信息Comment的值3.constNewComment:String30.63.写入Tag信息Track的值3.constNewTrack:Byte.73.写入Tag信息GenreID的值3.constNewGenreID:Byte.83.获取Tag信息Genre的值3.返回类型值.93.写入Tag信息Duration的值3.constAFileName:string3.返回时间长度.103.从文件中读取Tag信息3.constAFileName:string3.True=成功；False=失败.113.保存Tag信息到文件中3.constFileName:string3.True=成功；False=失败.123.写入Tag信息的值到文件3.constFileName:string3.True=成功；False=失败.133.获取曲目时间长度3.constAFileName:string3.返回时间上读.143.创建对象.143.重置Tag信息的值3.1.63.1.本单元主要定义了数字音频信息管理系统中导出功能使用的字符串资源。3.1.SMoreSelectA='本地曲目库%s:您选择的曲目数超出了允许导出的曲目数！';SOverSizeA='本地曲目库%s:所剩空间大小不足，请删除部分曲目或图片！';SNotselectA='您好未选择导出的曲目！';SMoreSelectImg='本地曲目库%s:您选择的图片数超出了允许导出的图片数！';SOverSizeImg='本地曲目库%s:所剩空间大小不足，请删除部分曲目或图片！';SNotselectImg='您好未选择导出的图片！';3.1.73.1.本单元主要定义了数字音频信息管理系统中所使用的图片信息读取功能。3.1.JPG:TJPEGImage;GIF:TGifImage;BMP:TBitmap;TPicInfo=record;3.1.functionAnalysePicInfo(FileName:string):TPicInfo;.73.写入配置信息项的值3.FileName:string3.1.83.1.本单元主要定义了数字音频信息管理系统中所使用的录音控制功能。3.1.RecCtrl,LineIn,Microphone:string;3.1.functionGetIndexOFRecCtrl(Mixer:TAudioMixerNew):Integer;functionGetIndexOFLineIn(Mixer:TAudioMixerNew):Integer;functionGetIndexOFMicrophone(Mixer:TAudioMixerNew):Integer;.83.获取录音源设备序号3.Mixer:TAudioMixerNew3.1.83.获取LineIn输入设备的Index3.Mixer:TAudioMixerNew3.1.83.获取麦克风输入设备的Index3.Mixer:TAudioMixerNew3.1.93.1.本单元主要定义了数字音频信息管理系统中所使用的录音控制功能。.procedureRestoreChannelVir;functionDetection(TableName:string;AdoDts:TADODataSet):Boolean;.93.检查数据表与实际文件的一致性3.TableName:string;AdoDts:TADODataSet3.1.93.恢复虚拟目录3.1.103.1.本单元主要定义了数字音频信息管理系统中所使用的本地曲目更新标志修改功能。.procedureUpdateStoken(FileName:string;Stoken:Integer);functionReadStoken(FileName:string):string;procedureUpdateWriteDB(Dts:TAdoDataset;LastIP:Integer);procedureUpdateWriteDBAndFile(Dts:TAdoDataset;LastIP,UpdateSign:Integer);functionMakeLocalFilePath(LastIP:Integer):string;.103.置更新标志3.FileName:string;Stoken:Integer3.1.103.获取更新标志3.FileName:string3.1.103.更新数据表3.Dts:TAdoDataset;LastIP:Integer3.1.103.更新文件标示3.Dts:TAdoDataset;LastIP,UpdateSign:Integer3.1.103.生成本地曲目库路径3.LastIP:Integer3.2网络服务控制模块（IIsManage单元）3.2.13.2.主要定义了数字音频信息管理系统中IIS服务相关的功能。3.2.ServiceControlManager:SC_Handle;ServiceHandle:SC_Handle;3.2.functionDoStartService(NumberOfArgument:DWORD;ServiceArgVectors:PChar):Boolean;functionConnect(MachineName:PChar=nil;DatabaseName:PChar=nil;Access:DWORD=SC_MANAGER_ALL_ACCESS):Boolean;//AccessmaybeSC_MANAGER_ALL_ACCESSfunctionOpenServiceConnection(ServiceName:PChar):Boolean;functionStartService:Boolean;overload;//SimplestartfunctionStartService(NumberOfArgument:DWORD;ServiceArgVectors:PChar):Boolean;overload;//MorecomplexstartfunctionStopService:Boolean;procedurePauseService;procedureContinueService;procedureShutdownService;procedureDisableService;functionGetStatus:DWORD;functionServiceRunning:Boolean;functionServiceStopped:Boolean;.1.4.13.启动点播服务3.NumberOfArgument:DWORD;ServiceArgVectors:PChar.23.连接网络3.NumberOfArgument:DWORD;ServiceArgVectors:PChar.33.打开网络服务连接3.ServiceName:PChar.43.启动服务3.ServiceName:PChar3.2.13.停止点播服务.73.暂停服务3.2.13.继续服务3.2.13.关闭服务3.2.13.不允许服务3.2.13.获取当前状态3.2.13.运行服务.123.服务停止.主要定义了数字音频信息管理系统中IIS服务相关的功能。.functionCreateIISVirtualPath(MapPath:String;Path:String):Boolean;functionSetIISRootPathParam:Boolean;functionKillIISPath(MapPath:String):Boolean;functionIISPathExist(MapPath:String):Boolean;functionCreateIISVirtualPathFTP(FTPMapPath:String;FTPPath:String):Boolean;functionKillIISPathFTP(FTPMapPath:String):Boolean;functionIISPathExistFTP(FTPMapPath:String):Boolean;functionADsGetObject(constPathName:WideString;constGUID:TGUID;outI:IUnknown):HRESULT;stdcall.23.创建虚拟目录3.MapPath:String;Path:String.23.设置虚拟目录参数3.2.23.删除虚拟目录3.MapPath:String3.2.23.判断虚拟路径是否存在3.MapPath:String3.2.23.创建FTP虚拟路径3.FTPMapPath:String;FTPPath:String3.2.23.删除FTP虚拟路径3.FTPMapPath:String3.2.23.判断是否存在FTP虚拟路径3.FTPMapPath:String3.2.23.获取接口3.constPathName:WideString;constGUID:TGUID;outI:IUnknown3.3网络检测模块3.3.13.3.主要定义了数字音频信息管理系统中网络监测ping的功能。3.3.DefaultPingReceiveTimeout=4000;STMPEGAudioError='TMPEGAudioError:'+#10#10;STNetServiceError='TNetServiceError:'+#10#10;3.3.TPingReplyEvent=procedure(varAHost:string;varAReply:Boolean)ofobject;TPingErrorEvent=procedure(AException:Exception;varAReply:Boolean)ofobject;成员函数和过程设计.13.定义ping的过程类3.varAHost:string;varAReply:Boolean.23.Ping的错误事件3.AException:Exception;varAReply:Boolean3.3.23.3.主要定义了网络监测新开线程功能。3.3.FNetService:TNetService;FHost:string;FReply:Boolean;FException:TObject;3.3.procedureReplyHandler(ASe