utaxicallutils.pas

来自「a voice guide client ,it is the second p」· PAS 代码 · 共 87 行

//==============================================================================
// $修订版本号: 1.0 $
// $日期      : 2007年5月17日 星期二 16:44:42 $
// $版本号    : 1.0.0 Goshgen 1 $
//
// 基类定义。
//
//
// $BeginLog$
// $Endlog  $
// $Copyright 版权所有 (c)2007 TRANSIT  保留所有权利$
//==============================================================================
{:
  。
}

unit uTaxiCallUtils;

interface

uses Classes, IniFiles;

var
  iniFile: TIniFile;
  {: 服务端IP。}
  gODMPServerIP  : string;
  {: 服务端Port。}
  gODMPServerPort: Integer;
  {: 百家姓。}
  gFirstName: string;
  {: 最大等待时间。}
  gMaxWaitTime : Integer;
  {: 召车时间栏目宽度。}
  gCallTimeWidth          : Integer;
  {: 召车状态栏目宽度。}
  gCallTaskStatusWidth    : Integer;
  {: 召车车牌栏目宽度。}
  gCallRegistrationNOWidth: Integer;
  {: 召车电话栏目宽度。}
  gCallMobileWidth        : Integer;
  {: 系统日志栏目宽度。}
  gCallSysLogWidth        : Integer;
  {: 自动更新路径。}
  gUpgradeUrl             : string;

  procedure readIni;
  procedure writeIni;

implementation

//------------------------------------------------------------------------------
//  私有方法 -- 配置ini
//------------------------------------------------------------------------------

procedure readIni;
begin
  gODMPServerIP   := iniFile.ReadString('CallerInfo', 'ServerIP', '127.0.0.1');
  gODMPServerPort := iniFile.ReadInteger('CallerInfo', 'ServerPort', 7821);
  gFirstName      := iniFile.ReadString('CallerInfo', 'FirstName', '');
  gMaxWaitTime    := iniFile.ReadInteger('CallerInfo', 'MaxWaitTime', 5);
  gUpgradeUrl     := iniFile.ReadString('CallerInfo', 'UpgradeURL', 'http://10.140.143.151/ITaxiCall/TaxiCall.inf');

  // 任务栏显示
  gCallTimeWidth           := iniFile.ReadInteger('CallerTaskStatusBar', 'CallerTime', 130);
  gCallTaskStatusWidth     := iniFile.ReadInteger('CallerTaskStatusBar', 'CallTaskStatus', 100);
  gCallRegistrationNOWidth := iniFile.ReadInteger('CallerTaskStatusBar', 'CallRegistrationNO', 80);
  gCallMobileWidth         := iniFile.ReadInteger('CallerTaskStatusBar', 'CallMobile', 80);
  gCallSysLogWidth         := iniFile.ReadInteger('CallerTaskStatusBar', 'CallSysLog', 300);
end;

procedure writeIni;
begin
  iniFile.WriteString('CallerInfo', 'ServerIP', gODMPServerIP);
  iniFile.WriteInteger('CallerInfo', 'ServerPort', gODMPServerPort);
  iniFile.WriteString('CallerInfo', 'FirstName', gFirstName);
  iniFile.WriteInteger('CallerInfo', 'MaxWaitTime', gMaxWaitTime);
  iniFile.WriteString('CallerInfo', 'UpgradeURL', gUpgradeUrl);

  iniFile.WriteInteger('CallerTaskStatusBar', 'CallerTime',         gCallTimeWidth);
  iniFile.WriteInteger('CallerTaskStatusBar', 'CallTaskStatus',     gCallTaskStatusWidth);
  iniFile.WriteInteger('CallerTaskStatusBar', 'CallRegistrationNO', gCallRegistrationNOWidth);
  iniFile.WriteInteger('CallerTaskStatusBar', 'CallMobile',         gCallMobileWidth);
  iniFile.WriteInteger('CallerTaskStatusBar', 'CallSysLog',         gCallSysLogWidth);
end;

end.