ucommon.~pas

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

    FForm: TForm;
  //图标列表对象
    FImageList: TImageList;
  //数据库连接字符串
    FConStr: string;
  //用户帐号
    FUserName: string;
  //用户密码
    FPassWord: string;
  //按钮子项单击事件
    procedure ToolButtonItemOnClick(Sender: TObject);
  public
  //建立工具栏
    procedure CreateQuickTool;
  //指定工具组件对象
    property ToolBar: TToolBar read FToolBar write FToolBar default nil;
  //指定窗体信息
    property Form: TForm read FForm write FForm default nil;
  //图标列表组件对象
    property ImageList: TImageList read FImageList write FImageList default nil;
  //指定的用户帐号
    property UserName: string read FUserName write FUserName;
  //指定的用户密码
    property PassWord: string read FPassWord write FPassWord;
  //指定的连接数据库字符串
    property ConStr: string read FConStr write FConStr;
  end;

//动态桌面快捷按钮类
type
  TGQuickButton = class
  private
     //使用的窗体
    FForm: TForm;
     //要画按钮的可视控件
    FControl: TWinControl;
     //数据库连接字符串
    FConStr: string;
     //用户帐号
    FUserName: string;
     //用户密码
    FPassWord: string;
     //按钮高度
    FBtnHeight: Integer;
     //按钮宽度
    FBtnWidth: Integer;
     //按钮默认左坐标
    FBtnLeft: Integer;
     //按钮默认头坐标
    FBtnTop: Integer;
     //快捷键按钮单击事件
    procedure QuickButtonOnClick(Sender: TObject);
  public
     //建立快捷按钮。
    procedure CreateQuickButton;
    property aForm: TForm read FForm write FForm default nil;
     //指定要画按钮的可视控件
    property aWinControl: TWinControl read FControl write FControl default nil;
     //指定的用户帐号
    property UserName: string read FUserName write FUserName;
     //指定的用户密码
    property PassWord: string read FPassWord write FPassWord;
     //指定的连接数据库字符串
    property ConStr: string read FConStr write FConStr;
     //按钮高度
    property BtnHeight: Integer read FBtnHeight write FBtnHeight default 85;
     //按钮宽度
    property BtnWidth: Integer read FBtnWidth write FBtnWidth default 135;
     //默认横坐标
    property BtnLeft: Integer read FBtnLeft write FBtnLeft default 50;
     //默认纵坐标
    property BtnTop: Integer read FBtnTop write FBtnTop default 200;

  end;



 // 枚举类型  主细表界面当前操作状态. [主表打开,主表新增,主表修改,主表删除,主表取消,主表提交,主表关闭]
type QMDOperStatus = (qmOpen, qmNew, qmEdit, qmDelete, qmCancel, qmPost, qmClose);

{**********************************************************************}
{                       Custom Global Variant Area                     }
{                         用户自定义全局变量区域                       }
{**********************************************************************}
var
  //全局的用户名
  gUserName,
  //全局的MD5用户密码
  gPassword,
  //全局的用户昵称
  gUserNick,
  //全局用户所属班组
  gUserGroup,
  //全局用户所属班组编号
  gUserGroupID,
  //全局系统登录时间
  gDateTimeStr,
  //全局的计算机名
  gComputerName,
  //全局的计算机地址
  gComputerAddr: string;
  //全局窗体Tag值
  gFormTag: string;
  //全局串口组件配置信息
  gMsComm: array of TMsCom;
  //全局数据库连接字符串
  gCon: array of TCon;
  //全局屏幕配置信息
  gLedScreen: array of TLedScreen;
  //自动登录
  gAutoLogin,
  //更新完毕否
  gUpdated,
  //自动启动,
  gAutoRun,
  //自动更新
  gAutoUpdate,
  //全局系统是否登录成功
  gLoginSuccess: boolean;
  //全局通用信息传递变量
  gCommVar: TCommVar;
  //全局Tag值
  gTag: Integer;
  //全局数据库连接字符串变量
  gConStr, gConstr2: string;
  //全局布尔值变量
  gBool: Boolean;
  //屏幕X,Y值
  gScreenX, gScreenY, gScreenFrequency: integer;
  //全局菜单实例
  gPopedomMenu: TGDynamicMenu;
  //全局工具栏实例
  gQuickToolBar: TGQuickTool;
  //全局工具快捷按钮
  gQuickButton: TGQuickButton;
  //全局助手接口变量
  gIAgentHelper: IAgentCtlCharacter;
  //全局助手接口请求变量
  gIAgentRequest: IAgentCtlreQuest;
  //全局助手实例
  gAgent: TAgent;
  //全局IP信息设置
  gIP: TNetCfg;
  //全局线体编码
  gLineName,
  //全局班组变量
  gClassName: string;
  //全局站点编码
  gWorkStation: string;
  //全局应用程序exe文件名
  gAppExeName: string;
  //全局应用标题名
  gAppTitle: string;
  //主表当前操作状态全局枚举.
  gMasterOperStatus: QMDOperStatus;
  //是否已连接数据库
  gConnected:Boolean;



  //以下是自动关闭窗口用到的变量 BEGIN
  nWndCount: Integer = 0;
  SavWnds, SavWnds2: array of THandle;
  hDlgWnd: THandle = 0;
  hTimerk: Integer = 0;
  nTimerTick: Integer = 0;
  nLastTrk: Integer = 0;
  nDoHint: Integer = 0;
  nCapCt: Integer = 0;
  nSavCapt: string = '';
  fTimer1: TTimer = nil;
  bReturn: Boolean = false;
  //以下是自动关闭窗口用到的变量 END

{**********************************************************************}
{                        Custom Function Area                          }
{                         用户自定义函数区域                           }
{**********************************************************************}

//自定义消息对话框 sInfo:信息内容, iTag:图标按钮值, AppHandle:窗体句柄  返回:对话框对应类型值
function gcf_MsgBox(sInfo: string; iTag: integer = 0; AppHandle: HWND = 0): Integer;

//可逆向解密的加密函数  strSouurce:要加密的函数字符串  返回:加密字符串
function gcf_EncryptCode(strSource: string): string;

//可逆向加密的解密函数  strCode: 要解密的函数字符串  返回:解密字符串
function gcf_UnEncryptCode(strCode: string): string;

//设置INI文件信息  sSection:节信息,sIdent:字段,sValue:字段值  返回:是否成功
function gcf_SetINIValue(sSection, sIdent, sValue: string): boolean;

//读取INI文件信息 sSection:节信息,sIdent:字段;  返回:字段值
function gcf_GetINIValue(sSection, sIdent: string): string;

//设置注册表信息 sSection:节信息,sIndent:字段, sValue:字段值  返回:是否成功
function gcf_SetRegValue(sSection, sIdent, sValue: string): boolean;

//读取注册表信息 sSection:节信息,sIdent:字段  返回:字段值
function gcf_GetRegValue(sSection, sIdent: string): string;

//删除指定的注册表信息  sSection:节信息,sIdent:字段  返回:是否成功
function gcf_DeleteRegValue(sSection, sIdent: string): Boolean;

//判断是否能够连接到数据库
function gcf_GetConnStatus:Boolean;

//获取程序路径   返回: 当前应用程序路径
function gcf_GetAppPath: string;

//创建系统日志函数 sLogInfo:日志信息 sLogType:日志类型  sClassName:模块名称   返回:是否记录成功.
function gcf_SysLog(sLogInfo:string;sLogType:string;sClassName:String):Boolean;

//查找指定菜单名的菜单实例    strMenuName:菜单名  objForm:窗体实例 返回：菜单实例；
function gcf_FindMenuItem(strMenuName: string; objForm: TForm): TMenuItem;

//设置数据库服务器连接信息   aCon:连接数据库服务器相关信息  iIndex:索引值  返回:是否成功.
function gcf_SetDBConInfo(aCon: TCon; iIndex: Integer = 1): Boolean;

//读取数据库服务器连接信息   aCon:连接数据库服务器相关信息  iIndex:索引值  返回:是否成功.
function gcf_GetDBConInfo(var aCon: TCon; iIndex: Integer = 1): Boolean;

//设置LED屏配置信息 aLedScreen:LED屏配置相关信息 iIndex:索引值 返回:是否操作成功
function gcf_SetLEDCfgInfo(aLedScreen: TLedScreen; iIndex: Integer = 1): Boolean;

//读取LED屏配置信息 aLedScreen:LED屏配置相关信息 iIndex:索引值 返回:是否操作成功
function gcf_GetLEDCfgInfo(var aLedScreen: TLedScreen; iIndex: Integer = 1): Boolean;

//设置串口RS-232组建MSCOMM配置信息  aMsCom:MSComm组建相关信息记录结构体   iIndex:索引值  返回:是否成功
function gcf_SetMSCommInfo(aMsCom: TMsCom; iIndex: Integer = 1): Boolean;

//读取串口RS-232组建MSCOMM配置信息  aMsCom:MSComm组建相关信息记录结构体   iIndex:索引值  返回:是否成功
function gcf_GetMSCommInfo(var aMsCom: TMsCom; iIndex: Integer = 1): Boolean;

//从注册表枚举串口放置到列表框  aComBobox:下拉列表控件  bAutoClear:是否自动清空列表内容 返回:是否成功
function gcf_SetComBoboxPorts(aCombobox: TComboBox; bAutoClear: Boolean = True): Boolean;

//替换字符串   sSource:原字符串; sChangeStr:更换的字符串; sSeparator:要被替换字符串
function gcf_ReplaceStr(sSource, sChangeStr, sSeparator: string): string;

//浮点型数字转换为人民币大写字符串  rValue:浮点型变量  返回:字符串变量
function gcf_RMBCap(rValue: Real): WideString;

//检测指定的文件是否在使用   sFileName:文件绝对路径     返回:是否使用
function gcf_FileInUse(sFileName: string): Boolean;

//获取文件的创建或修改或最后访问时间  sFileName:文件绝对路径  iType:0:创建日期，1:修改日期,2:最后访问日期  返回:日期;
function gcf_FileDateTime(sFileName: string; iType: Integer = 1): TDateTime;

//汉字助记码    strHZ:输入的中文汉字字符串   返回:汉字的拼音首部
function gcf_ChineseHelpCode(strHZ: string): string;

//获取中文字符串个数长度（英文算1个,中文算两个)
function gcf_GetCLength(strValue:string):Integer;

//设置文本信息每行数量并自动换行。
function gcf_SetStrRowLetter(strText:string;iRowLetterNum:Integer):string;

//提取标准字符串格式中某个字符串 sStr："【字符串】-【字符串2】。。。" ;iPos:取第几组字符传, 默认为第一组;scBSepChar:默认的开始分隔符;sESepChar:默认的结束分隔符
function gcf_GetStrPosStr(sStr: string; iPos: integer = 1;
  sBSepChar: string = DEF_BSEPCHAR; sESepChar: string = DEF_ESEPCHAR): string;

//获取操作系统版本信息  返回:系统版本信息;
function gcf_GetOSVersion: string;

//获取计算机名  返回:计算机名称
function gcf_GetComputerName: string;

//获取操作系统语言字符串  返回:操作系统语言字符串
function gcf_GetOSLanguage: string;

//获取计算机内存大小 (KB)
function gcf_GetOSMemory: string;

//系统是否存在打印机    返回: 是否存在打印机
function gcf_SystemCanPrint: Boolean;

//检测网络状态  IpAddr:IP地址字符串    返回:是否在线.
function gcf_CheckNetStatus(IpAddr: string): Boolean;

//获取Access2000密码  sFileName: Access文件  返回值: 返回该数据库文件的密码；
function gcf_GetAccess2KPwd(sFileName: string): string;

//判断是字符串为整数.   sStr:被检测字符串;iType0:判断正负号，1不判断正负号  返回值: 是否为整数的Boolean值
function gcf_StrIsInt(sStr: string; iType: Integer = 0): Boolean;

// 判断是字符串为浮点型   sStr:被检测字符串; iTyp 0:判断正负号，1不判断正负号
function gcf_StrIsFloat(sStr: string; iType: Integer = 0): Boolean;

//计算两个日期时间的差 aDate1:日期时间1;aDate2:日期时间2;
function gcf_DateTimeDiff(aDate1, aDate2: TDateTime; iDiffType: Integer = 0): double;

//获取系统文件路径(Windows/System)  返回值: 返回系统文件夹路径
function gcf_GetSystemPath: string;

//获取系统临时文件路径(Windows/Temp) 返回值: 返回系统临时文件夹
function gcf_GetWinTempPath: string;

//向IE菜单注册信息  和网际快车类似.  sMenuCaption:菜单显示的内容  sLinkStr:要连接的信息
function gcf_RegisryIEMenu(sMenuCaption, sLinkStr: string): Boolean;