hxconst.pas

来自「一个基于Socket的在线更新程序」· PAS 代码 · 共 44 行

unit hxConst;

interface

type
  TSessionEvent = (seLogin, seLogout, seError);
  
  TDBConnectType = (ctBDE, ctADO, ctDBExpress);

  PAccountInfo = ^TAccountInfo;
  TAccountInfo = record
    Name: string;
    Privilege: string;
    Description: string;
    Password: string;
  end;

  PMemberInfo = ^TMemberInfo;
  TMemberInfo = record
    MemberID: string;
    Password: string;
    Description: string;
    Contact: string;
    Phone: string;
    Email: string;
  end;

  PSocksInfo = ^TSocksInfo;
  TSocksInfo = record
    ProxyIP: PChar;     //代理服务器IP
    ProxyPort: Integer; //代理服务器端口
    ProxyUser: PChar;   //代理服务器用户名
    ProxyPass: PChar;   //代理服务器密码
  end;

  //下载进度
  TDownloadStatus = (dsBegin, dsFileBegin, dsFileData, dsFileEnd, dsEnd, dsError);
  TDownloadProgress = procedure(DownloadStatus: TDownloadStatus; FileName: string;
    WorkCount: Integer);
  
implementation

end.