ucommon.pas

采用ACM与Skype4Com并且采用分布式UDP来进行语音的拨号、分传。

//注册关联的文件  sCaption:关联显示的标题,要执行的文件类型,可执行文件
function gcf_RegFileJoint(sCaption, sFile, sExeFile: string): Boolean;

//气泡提示  objComponent:可见的类控件; sCaption:提示标题; sText:提示的内容  iIcon:提示的图标   iDelay:提示延迟时间(秒) tBgColor:提示的背景颜色  tFgColor:提示的字体颜色  返回:是否成功.
function gcf_BallonHits(objCompoent: TWinControl; sCaption: PChar; sText: PWideChar; iIcon: Integer = 1; iDelay: Integer = 30; tBgColor: TColor = 0; tFgColor: TColor = 0): Boolean;

//简体转换为繁体   GBStr:简体中文字体  返回:繁体中文字体.
function gcf_GBToCht(GBStr: string): AnsiString;

//繁体转变为简体字  ChtStr:繁体中文字体  返回:简体中文字体.
function gcf_ChtToGB(ChtStr: string): AnsiString;

//取得某月的第一天的日期   aDate:要计算的日期.
function gcf_GetMonthFirstDate(aDate: TDate): TDate;

//取得某月的最后一天的日期
function gcf_GetMonthLastDate(aDate: TDate): TDate;

//发送邮件 FromAddress:发信人地址; ToAddress:收信人地址;ASubject:信件标题;MsgBody:信件内容 返回:是否成功.
function gcf_SMTPSendMail(FromAddress, ToAddress, ASubject, MsgBody: string): Boolean;

//使窗口关闭功能失效或有效  Handle:指定的窗口句柄,默认为整个应用程序  bExpires:True 有效,False 无效 返回: 是否成功
function gcf_FormSysCloseBtnStatus(Handle: HWND; bExpires: boolean = False): boolean;

//BMP图片格式转换为JPG图片格式  sFileName:原文件  sToFileName:转换后的文件.
function gcf_ConvertBMPtoJPG(sFileName, sToFileName: string): Boolean;

//BMP图片格式转换为JPG图片格式  sFileName:原文件  sToFileName:转换后的文件.
function gcf_ConvertJPGtoBMP(sFileName, sToFileName: string): Boolean;

//隐藏桌面图标   返回:是否成功;
function gcf_HideDesktop: boolean;

//隐藏桌面图标   返回是否成功
function gcf_ShowDesktop: boolean;

//取得Windows产品序号     返回:WindowsID;
function gcf_GetWindowsProductID: string;

//字节转二进制串   Value:字节值   返回:二进制字符串 (10->2)
function gcf_ByteToBin(Value: Byte): string;

//字节转二进制串   Value:字节值   返回:16进制字符串 (10->2)
function gcf_ByteToHex(Value : Byte) : string;

//移动文件、目录， sName为源文件、 dName目标文件
function gcf_MoveFile(sName, dName: string): Boolean;

//动态设置分辨率
function gcf_SetScreenDynamicResolution(Width, Height: WORD): Boolean;

//检测声卡是否存在
function gcf_SoundCardExist: Boolean;

//字符转化成十六进制   Astr:字符串  返回:16进制字符串
function gcf_StrToHex(AStr: string): string;

//十六进制转化为字符串  Astr:十六进制字符串 返回字符串.
function gcf_HexToStr(AStr: string): string;

//获取CPU当前频率        返回浮点型频率值
function gcf_GetCPUSpeed: Double;

//取Windows目录   返回: Windows文件夹的路径.
function gcf_GetWindowsPath: string;

//获取系统能够临时文件目录   返回:系统临时文件夹.
function gcf_GetTempPath: string;

//获取指定磁盘的空间大小及可用大小  sDriver:盘符; ToTalBytes:总大小; TotalFree:空闲大小  返回:指定磁盘信息
function gcf_GetDiskSpace(sDriver: string; var TotalBytes, TotalFree: double): string;

//获取指定目录大小  asTheDirectory:指定的目录  返回:文件大小
function gcf_GetDirectorySize(sDirectory: string): Integer;

//获取指定日期的中文周     aDate:指定日期时间  返回: 指定日期的中文周次.
function gcf_GetCHWeek(aDate: TDateTime): string;

//获取指定路径里所有的字目录  sDirectory:指定的路径; tRetList:返回的所有子目录集
function gcf_GetAllSubDirList(sDirectory: string; tRetList: TComboBox): Boolean;

//显示指定的窗体    aTForm:要显示的窗体类;  aPTForm:显示窗体类的父类;  iTag:打开窗体类的标记值 tStyle:0:模态;1:非模态 返回:窗体模态返回值
function gcf_ShowForm(aTForm: TFormClass; aPTForm: TForm; iTag: Integer = 0; tStyle: Integer = 0): TModalResult;

//根据字符串显示窗体类
function gcf_StrShowFormClass(sFormName: string; sTag: string = ''): Boolean;

//向数据库及应用程序注册窗体模块类  sConStr:连接字符串; aFormClass:窗体类; 返回:是否成功
function gcf_DBRegFormClass(sConstr, sClassName: string): Boolean;

//获取数据库服务器系统时间  sConstr:数据库连接字符串;sFormat:日期格式化信息
function gcf_DBGetSysTime(sConstr: string; sFormat: string = 'YYYY-MM-DD HH:MM:SS'): string; overload;

//获取数据库服务器系统时间  sConstr:数据库连接字符串;sFormat:日期格式化信息
function gcf_DBGetSysTime: TDateTime; overload;

//执行SQL查询语句      sConStr:数据库连接字符串  sSQL:SQL结构化语句   aADOQuery:ADOQuery组件. 返回: 是否成功.
function gcf_DBADOQuerySelectSQL(sConStr, sSQL: string; aADOQuery: TADOQuery): Boolean;

//执行SQL操作执行语句      sConStr:数据库连接字符串  sSQL:SQL结构化语句   aADOQuery:ADOQuery组件. 返回: 是否成功.
function gcf_DBADOQueryExecSQL(sConStr, sSQL: string; aADOQuery: TADOQuery): Boolean;

//获取指定表,字段,条件语句的字段值字符串  sConStr:数据库连接字符串 sTableName:表名 sFileName:字段名; sCondition:条件; sDefault:找不到数据默认返回的数据
function gcf_DBGetTableFieldValue(sConStr, sTableName, sFieldName, sCondition: string; sDefault: string = ''): string;

//执行SQL语句，不使用外部实例TADOQuery;  sConstr:数据库连接字符串, sSQL:String：查询SQL语句。
function gcf_DBExecSQL(sConStr, sSQL: string): Boolean;

//使用ADOQuery实例导出数据到Excel  objADOQuery:查询组件实例  sAdvFileName:导出Excel的主文件名,Handle:窗口句柄;
function gcf_DBADOQueryExportExcel(objADOQuery: TADOQuery; sAdvFileName: string; Handle: HWND): boolean;

//使用TStringGrid导出Excel文件  objGrid:StringGruid组件实例  sFileName:主文件名  Handle:窗口句柄
function gcf_GridExportExcel(objGrid: TStringGrid; sFileName: string; Handle: HWND): boolean;

//Excel导入ADOQuery实例对象  objADOQuery:查询实例对象; sTableName:表格名字; Handle:窗体句柄;bHasAutoID: 查询组件所指数据表中是否有自动编号。
function gcf_DBExcelImportADOQuery(objADOQuery: TADOQuery; sTableName: string; Handle: HWND; bHasAutoID: Boolean = False): boolean;

//给Combobox下拉框加载数据项.  objCombobox:下拉列表实例    sConstr:连接字符串   sSQLStr:SQL语句  sListField:要显示的下拉列表字段
//                             bFirstClear:是否先清空Combobox的Item项    返回:是否成功
function gcf_DBSQLSetComboboxItems(objCombobox: TCombobox; sConstr, sListField, sSQLStr: string; bFirstClear: Boolean = True): Boolean;

// MD5字符串加密  strSource:要加密的原字符串 返回:MD5加密后的字符串
function gcf_MD5(strSource: string): string;

//压缩指定的文件目录    sDir :菜单显示信息   sFile:压缩后生成的文件。
function gcf_ZipDir(sDir, sFile: string): Boolean;

//解压缩到指定的文件目录 sFile:要解压缩的文件   sDir:解压缩存放的目录
function gcf_UnZipDir(sFile, sDir: string): Boolean;

//数据库事务开始   sConStr:数据库连接字符串    返回:是否成功
function gcf_DBBeginTrans(sConstr: string): Boolean;

//自动注册工程窗体模块   sProjectFileName:工程文件名
function gcf_DBAutoRegFormClass(sProjectFileName: string): Boolean;

//数据库事务提交   sConStr:数据库连接字符串   返回:是否成功
function gcf_DBCommitTrans(sConstr: string): Boolean;

//数据库事务回滚   sConstr:连接数据库字符串   返回:是否成功
function gcf_DBRollBackTrans(sConstr: string): Boolean;

//获取文件的MD5值。 sFileName:指定的路径+文件名 返回:文件的MD5值
function gcf_GetFileMD5Value(sFileName: string): string;

//比较文件是否和指定的MD5值相同  sFileName:文件  sMD5Value:要判断的MD5值  返回:是否与原文件sFileName的MD5值相符
function gcf_GetFileMD5Math(sFileName, sMD5Value: string): Boolean;

//比较两个文件是否相同    sFileName1:第一个文件  sFileName2:第二个文件  返回:两个文件是否相同。
function gcf_GetFileMD5Same(sFileName1, sFileName2: string): Boolean;

//获取指定表,字段，前缀的表流水号  sConStr:数据库连接字符串  sTable:指定的表名    sFiled:指定的字段字符串   sQZ:流水号前缀   aDate:当天日期 返回：如“RKD20070813000000001"的流水号。
function gcf_GetDBMaxSN(sConStr, sTable, sField, sQZ: string; aDate: TDateTime; bInc: Boolean = True): string;

//在树型结构TfcTreeView中定位查找的节点  afcTreeView:fcTreeView实例控件  asFindStr:要查找的字符串信息  aiKind查找的类型（1：String,2:StringData1,3:StringData2) 返回：是否成功
function gcf_FindfcTreeViewNode(afcTreeView: TfcTreeView; asFindStr: string; aiKind: Smallint = 1): boolean;

//在输入框树型结构afctreecombo中定位查找的节点  afcTreeCombo:控件实例 asFindStr:要查找的字符串信息 aiKind查找的类型 (1:String,2:StringData1,3:StringData2) 返回： 是否成功
function gcf_FindfcTreeComboNode(afcTreecombo: TfcTreecombo; asFindStr: string; aiKind: Smallint = 1): Boolean;

//子节点全选或全不选   afcTree: fcTreeView或fcTreeCombo实例  afcNode:节点   abChecked:是否选择   返回:是否成功
function gcf_ChildNodeCheck(afcTree: TfcCustomTreeView; afcNode: TfcTreeNode; abChecked: Boolean = false): Boolean;

//判断是否有子节点处于指定的状态   objfcTree:树实例  objfcNode:选定的节点  iStyle:样式 0--选中  1--未被选中  2--未被展开 3--被展开 返回:是否成功
function gcf_HasChildNodeStyle(objfcTree: TfcCustomTreeView; objfcNode: TfcTreeNode; iStyle: integer = 0): Boolean;

//返回树项所有的Checked子项连接串    objfcTree:树实例  objfcNode:选定的节点  bisChecked:状态  sDefStr:默认返回值  sLinkStr:连接字符串
function gcf_GetTreeItemsCheckedLinkStr(objfcTree: TfcCustomTreeView; objfcNode: TfcTreeNode = nil; bIsChecked: Boolean = True; sDefStr: string = ''; sLinkStr: string = ','): string;

//获取表记录信息后装载到各个控件中  aTargetForm:需要处理的窗体; aDsState 数据设置状态;aiTag:需要处理控件的Tag值;abIsSetEmpty:是否将数据首先置为空;abIsSetEnable:是否将数据首先置可用; 返回：是否成功
function gcf_SetFormIniStatus(aTargetForm: TForm; aDsState: TDataSetState = DsEdit; aiTag: integer = -1; abIsSetEmpty: boolean = False; abIsSetEnable: boolean = True): Boolean;

//实现自动更新    sConstr:数据库连接字符串,sTableName:表名,sFileName:字段名,sCondition:查询条件,sFileName:文件名;  bOverWrite:是否覆盖;  返回：是否成功
function gcf_DBLiveUpdate(sConstr, sTableName, sFieldName, sCondition, sFileName: string; bOverWrite: Boolean = True): Boolean;

//实现建立系统数据库(SQL)  sConStr:数据库连接字符串;sNewDBName:新库名称
function gcf_DBInitialDataBase(sConStr, sNewDBName: string): Boolean;

//检测用户帐号与密码 用户登录是否合法  sConStr:数据库连接字符串  sUserName:用户帐号  sUserPassWord:帐号登录密码 HFrmHand:窗体句柄   bEncryptPWD:密码是否加密    返回:是否为合法用户
function gcf_DBCheckUserLogin(sConStr, sUserName, sUserPassword: string; HFrmHand: HWND = 0; bEncryptPWD: Boolean = True): Boolean;

//修改用户帐号密码    sConStr:数据库连接字符串  sUserName:用户帐号  sOldUserPassWord:旧密码 sNewUserPassWord:新密码  HFrmHand:窗体句柄   bEncryptPWD:密码是否加密    返回:是否修改成功
function gcf_DBModifyUserPassWord(sConStr, sUserName, sOldUserPassWord, sNewUserPassWord: string; HFrmHand: HWND = 0; bEncryptPWD: Boolean = False): Boolean;

//检测用户权限     sConStr:数据库连接字符串  sUserName:用户帐号  sPassWord:用户密码 aForm:TForm  返回:是否有权限
function gcf_DBCheckUserPopedom(sConStr, sUserName, sPassWord: string; aForm: TForm): boolean;

//实现客户端下载更新    sConStr:数据库连接字符串 ; sFileName:要更新的文件ID号;
function gcf_DBOverWriteLiveUpdate(sConStr, sFileName, sFileID: string; ahWnd: HWND = 0): boolean;

//DBGridEh导出Excel
function gcf_DBGridEhExportExcel(objDBGridEh: TDBGridEh; sFileName: string; Handle: HWND): boolean;

//测试性连接数据库服务器   sConStr:数据库连接字符串; 返回:是否可用
function gcf_DBTestCon(sConStr: string): Boolean;

//设置指定的MSComm组件参数;  aMsComm:组件; aMsComInfo:TMsCom组件参数结构体 iRThreshold:接收伐值大小;
function gcf_SetMsComm(aMsComm: TMSComm; aMsComInfo: TMsCom; iRThreshold: SmallInt = 0): boolean;

//获取文件大小     sFileName:文件名  返回:文件大小
function gcf_GetFileSize(sFileName: string): Double;

//获取屏幕刷新率   返回：当前刷新率
function gcf_GetScreenFrequency: Integer;

//获取当前屏幕分辨率   X,Y:当前屏幕分辨率  返回： 是否成功
function gcf_GetScreenXY(var X, Y: Integer): boolean;

//设置屏幕刷新率    iFrqcy:刷新率  返回：是否成功。
function gcf_SetScreenFrequency(iFrqcy: Integer): Boolean;

// 判断是否存在制定的样式     aiStyle: 0:被选中 1:未被选中  2:未被展开 3:被展开
function gcf_IsHasChildNodeStyle(afcTree: TfcCustomTreeView; afcNode: TfcTreeNode; aiStyle: integer = 0): Boolean;

//获取数据库中指定表字段的连接字符串  sConStr:数据库连接字符串  asTable:要操作的表    asField:要连接的字符串  asCondition:查询条件字符串  asDefaultval:如果找不到信息返回默认值  asLinkStr:默认的连接字符
function gcf_GetLinkFields(sConStr: string; asTable: string; asField: string; asCondition: string = ''; asDefaultval: string = ''; asLinkStr: string = ','): string;

//获得长度为aiLen的包含asStr的字符串，长度不够则依据abbefored补字符acChar
function gcf_GetFixedLenStr(asStr: string; aiLen: Smallint; asFixStr: string = '0'; abIsFronted: Boolean = True): string;

//日期转换为ABC组合      参数： 字符串，格式：//yyyy-mm-hh   返回如：7RC
function gcf_GetDateToABCStr(sDate: string): string;

//将指定的字符串用 以sSub2替换掉字符串sStr中的sSub1
function gcf_ReplaceSubStr(sStr, sSub1, sSub2: string): string;

//产生EAN13码处理
function gcf_GetEAN13(sEAN13Code: string): string;

//过滤双字字符并重新组合字符串
function gcf_GetNonDoubleWordString(sString: string): string;

//产生指定长度的随机字符串
function gcf_GetRandomString(iLength: Integer): string;

//播放声音文件   sFileName:声音文件   返回:是否操作成功
function gcf_PlaySoundFile(sFileName: string): Boolean;

//列出所有进程信息   sItems:加载的信息  返回:是否操作成功
function gcf_GetProcessList(sItems: TStrings): Boolean;

//X的Y次方函数 X:浮点X变量,Y:浮点Y变量  返回:X的Y次方信息
function gcf_XYSqu(X: Double; Y: Integer): Double;

//建立系统小助手 sFileName String;助手代理文件  返回:是否操作成功
function gcf_CreateAgent(sFileName: string): Boolean;

//小助手移动指定的坐标
function gcf_AgentMove(X, Y: Integer; Speed: Integer = 300): Boolean;

//小助手说指定的信息  sSay String; 说的信息  返回:操作成功
function gcf_AgentSay(sSay: string): Boolean;

//小助手隐藏  返回是否隐藏成功(Boolean);
function gcf_AgentHide: Boolean;

//小助手显示  返回是否显示成功(Boolean);
function gcf_AgentShow: Boolean;

//控制硬件喇叭Beep
function gcf_DoBeep(Freq: Word; Sec: LongInt): Boolean;

//设定网络IP地址    IP:预设定的IP地址  isAuto:是否设置为自动  返回:是否操作成功
function gcf_SetIPAddress(IP: TNetCfg; isAuto: Boolean = False): Boolean;

//打开指定的URL地址
function gcf_OpenURL(sURL: string): Boolean;

//获取随即GUID字符串    返回随机的GUID字符串字符串
function gcf_GetGUIDString: string;

//判断是否安装过BDE组件     返回是否安装过BDE结果(Boolean)
function gcf_IsInstalledBDE: Boolean;

//自动关闭窗口枚举子函数
function gcf_EnumProc(hWnd: THandle; lParam: Integer): Boolean; stdcall;

//CxGrid导出Excel  返回:是否操作成功
function gcf_cxGridToExcel(aCxGrid: TcxGrid; sFileMasterName: string): Boolean;

//根据指定的ADOQuery数据访问组件控制按钮.     返回:是否操作成功.
function gcf_BindControlBtns(aMaster: TADOQuery = nil; aDetail: TADOQuery = nil; FFirstBtn: TComponent = nil;
  FPriorBtn: TComponent = nil; FNextBtn: TComponent = nil; FLastBtn: TComponent = nil;
  FInsertBtn: TComponent = nil; FEditBtn: TComponent = nil; FDeleteBtn: TComponent = nil;
  FCancelBtn: TComponent = nil; FPostBtn: TComponent = nil; FRefreshBtn: TComponent = nil;
  FNewLineBtn: TComponent = nil; FEdtLineBtn: TComponent = nil; FDeleteLineBtn: TComponent = nil
  ): boolean;


{******************************************************************************************}
{                        Haier Industry Control Operation Function Area                    }
{                                    海尔工控业务函数区域                                  }
{******************************************************************************************}
//海尔工控函数-获取真空计单片机反馈的信号并解析出其数量值  sInput:串口获取得字符代码  返回:处理后的信息
function gcf_Haier_ZhenKongJiQuShu(sInput: string): Double;


//海尔工业函数-记录抽空中的台位编码及数据值  sDevice:设备编码  fValue:设备记录点值 返回:是否记录成功.