u_pulicpack.pas

软件功能：下载一个网站上所有的彩铃！ 铃声下载完后

unit U_PulicPack;

interface

Uses
  Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Menus,
  ComCtrls,ToolWin,ExtCtrls,TeeProcs,TeEngine,Chart,DbChart,TeeFunci,Series,ImgList,
  StdCtrls,ADODB,DBGrids,ScktComp,jpeg,IdUDPServer,IdBaseComponent,IdComponent,Math,
  db,dbtables,IdUDPBase,IdUDPClient,idSocketHandle,ComObj,Winsock,DateUtils,CheckLst,U_RecordStruct;

Const  //系统常量
  IniFileName='SysConfig.Ini';//读配置文件
  ConfigIniFileName='SysConfig.Ini';
  Version='V1.0.0';//版本号
  Prompt = '提示';
  ServerLoginUserName = 'sa';
  ServerLoginUserPwd = '';

Var
//***************************数据库连接控件、字符串和表名****************************************
  ADOConnection,ADOCntCustomer:TADOConnection;
  ADOQryTemp:TADOQuery;

  CustomerDBConnectionString,  //连客服数据库
  TableCfgDBConnectionString,  //连数据库

  ServerNameList,ServerName,DataBaseName,CustomerDB,     //
    //业务运行数据库连接串、
  DBConnectionString,CustomerConnectionString:String;//连数据库
//******************************************************************************


//**************************   其他系统变量       *************************************
  SavePath,
  AppPath, //系统路径
  RingInfoUrl,//=http://www.fj118100.com/colorring/ringInfo.jsp?ringid=1700000388
  TryListenUrl,//=http://www.fj118100.com/colorring/tryListen.jsp?ringid=1700000388
  RingFir,//=11
  RingSec,//=0000
  RingThr,//=0001
  RingUrl
  :String;

  RingDownCount:integer;

  {MaxNum,}TimerInterval:Integer;

//******************************************************************************


//***********************   定义链表和对象   **********************************

//******************************************************************************


//**************************    公用函数和过程    *************************************
  Procedure InitConfigInfo;//初始化信息
  function IsValidChar(Key: Char): Boolean;     //判断输入字符时候有效（只能输入数字）
  Function IsFieldExists(TableName:string; FieldName:string) : boolean;  //是否存在该字段
//******************************************************************************

implementation
  Uses U_Main,U_OtherPublicPack,U_DBPublicPack,U_StringPublicPack;

Procedure InitConfigInfo; //初始化信息
Var
  UserName,Password:String;
Begin

  //*******************通用参数*******************//
  ServerNameList:=ReadConfig(ConfigIniFileName,'DataBase','ServerNameList');
  ServerName:=ReadConfig(ConfigIniFileName,'DataBase','ServerName');
  DataBaseName:=ReadConfig(ConfigIniFileName,'DataBase','DataBaseName');//数据库名称
  UserName:=ServerLoginUserName;
  Password:=ServerLoginUserPwd;
  TableCfgDBConnectionString:=GetDBConnectionString(ServerName,DataBaseName,UserName,PassWord);//业务运行数据库连接串

  DataBaseName:=ReadConfig(ConfigIniFileName,'DataBase','CustomerDBName');//数据库名称
  CustomerDBConnectionString:=GetDBConnectionString(ServerName,DataBaseName,UserName,PassWord);

  //MaxNum:=ReadConfigInt(ConfigIniFileName,'Sys','MaxNum');
  RingInfoUrl:=ReadConfig(ConfigIniFileName,'Sys','RingInfoUrl');
  TryListenUrl:=ReadConfig(ConfigIniFileName,'Sys','TryListenUrl');
  
  TimerInterval:=ReadConfigInt(ConfigIniFileName,'Sys','TimerInterval');
  TimerInterval:=TimerInterval*1000;

  RingFir:=ReadConfig(ConfigIniFileName,'Sys','RingFir');//=11
  RingSec:=ReadConfig(ConfigIniFileName,'Sys','RingSec');//=0000
  RingThr:=ReadConfig(ConfigIniFileName,'Sys','RingThr');//=0001

End;

function IsValidChar(Key: Char): Boolean;
begin
  {$IFNDEF TMSDOTNET}
  Result := (Key in [{DecimalSeparator,}'0'..'9']) or
    ((Key < #32) and (Key <> Chr(VK_RETURN)));
  {$ENDIF}

  {$IFDEF TMSDOTNET}
  Result :={ (Key = DecimalSeparator) or }(Key in ['0'..'9']) or
    ((Key < #32) and (Key <> Chr(VK_RETURN)));
  {$ENDIF}
end;

Function IsFieldExists(TableName:string; FieldName:string) : boolean;
var
  aList : TStringList;
begin
  aList := TStringList.Create;
  ADOConnection.GetFieldNames(TableName,aList);
  //如果大小写不敏感的话,可以在此设置 List.CaseSensitive := False;
  aList.CaseSensitive := False;
  if aList.IndexOf(FieldName) >= 0 then
    Result := True
  else
   Result := False;
  aList.Free;
end;


end.