vStationURM/Tools/SONOPOST/Language.pas

unit Language;

interface
uses
  Winapi.Windows;

type
  TLanguage = class
  protected
    function GetTitle: string; virtual; abstract;
    function GetConnecting: string; virtual; abstract;
    function GetConnected: string; virtual; abstract;
    function GetRefresh: string; virtual; abstract;
    function GetManualUrl: string; virtual; abstract;
    function GetOpen: string; virtual; abstract;
    function GetConnectError:string; virtual; abstract;
    function GetCanNotFindDevice:string;virtual; abstract;
    function GetAddressIsEmpty:string;virtual; abstract;
    function GetAddressFormatIsWrong:string;virtual; abstract;
    function GetIPAddressIsWrong:string;virtual; abstract;
    function GetPortIsWrong:string;virtual; abstract;
    function GetDeviceIsWrong:string;virtual; abstract;
    function GetDownloadingHint:string;virtual; abstract;
  public
    property Title: string read GetTitle;
    property Connecting: string read GetConnecting;
    property Connected: string read GetConnected;
    property Refresh: string read GetRefresh;
    property ManualUrl: string read GetManualUrl;
    property Open: string read GetOpen;
    property ConnectError: string read GetConnectError;
    property CanNotFindDevice:string read GetCanNotFindDevice;
    property AddressIsEmpty:string read GetAddressIsEmpty;
    property AddressFormatIsWrong:string read GetAddressFormatIsWrong;
    property IPAddressIsWrong:string read GetIPAddressIsWrong;
    property PortIsWrong:string read GetPortIsWrong;
    property DeviceIsWrong:string read GetDeviceIsWrong;
    property DownloadingHint:string read GetDownloadingHint;
    class function IsChinese: Boolean;
  end;

  TChineseLanguage = class(TLanguage)
  protected
    function GetTitle: string; override;
    function GetConnecting: string; override;
    function GetConnected: string; override;
    function GetRefresh: string; override;
    function GetManualUrl: string; override;
    function GetOpen: string; override;
    function GetConnectError:string;override;
    function GetCanNotFindDevice:string;override;
    function GetAddressIsEmpty:string;override;
    function GetAddressFormatIsWrong:string;override;
    function GetIPAddressIsWrong:string;override;
    function GetPortIsWrong:string;override;
    function GetDeviceIsWrong:string;override;
    function GetDownloadingHint:string;override;
  end;

  TEnglishLanguage = class(TLanguage)
  protected
    function GetTitle: string; override;
    function GetConnecting: string; override;
    function GetConnected: string; override;
    function GetRefresh: string; override;
    function GetManualUrl: string; override;
    function GetOpen: string; override;
    function GetConnectError:string;override;
    function GetCanNotFindDevice:string;override;
    function GetAddressIsEmpty:string;override;
    function GetAddressFormatIsWrong:string;override;
    function GetIPAddressIsWrong:string;override;
    function GetPortIsWrong:string;override;
    function GetDeviceIsWrong:string;override;
    function GetDownloadingHint:string;override;
  end;

implementation

{ TLanguage }

class function TLanguage.IsChinese: Boolean;
var
  LId: LANGID;
begin
  LId := GetUserDefaultUILanguage();
  Result := LId = 2052;
end;

{ TChineseLanguage }

function TChineseLanguage.GetAddressFormatIsWrong: string;
begin
  Result := '设备地址格式错误，设备地址格式应为[IP:端口]。';
end;

function TChineseLanguage.GetAddressIsEmpty: string;
begin
  Result := '设备地址未填写，请填写设备地址。';
end;

function TChineseLanguage.GetCanNotFindDevice: string;
begin
  Result := '无法找到任何设备，请稍后重试。';
end;

function TChineseLanguage.GetConnected: string;
begin
  Result := '%s 已连接。';
end;

function TChineseLanguage.GetConnectError: string;
begin
  Result := '连接设备失败';
end;

function TChineseLanguage.GetConnecting: string;
begin
  Result := '正在连接...%s';
end;

function TChineseLanguage.GetDeviceIsWrong: string;
begin
  Result := '连接设备失败，请确认该设备是有效设备。';
end;

function TChineseLanguage.GetDownloadingHint: string;
begin
  Result := '正在下载...%d';
end;

function TChineseLanguage.GetIPAddressIsWrong: string;
begin
  Result := 'IP地址不是一个有效的IP地址。';
end;

function TChineseLanguage.GetManualUrl: string;
begin
  Result := '设备地址:';
end;

function TChineseLanguage.GetOpen: string;
begin
  Result := '打开';
end;

function TChineseLanguage.GetPortIsWrong: string;
begin
  Result := '端口格式错误，端口应为[0..65535]。';
end;

function TChineseLanguage.GetRefresh: string;
begin
  Result := '搜索网络内所有SONOPOST';
end;

function TChineseLanguage.GetTitle: string;
begin
  Result := 'SONOPOST配置工具';
end;

{ TEnglishLanguage }

function TEnglishLanguage.GetAddressFormatIsWrong: string;
begin
  Result := 'Invalid device address format. Device address format should be [IP:Port].';
end;

function TEnglishLanguage.GetAddressIsEmpty: string;
begin
  Result := 'Empty device address. please input the device address.';
end;

function TEnglishLanguage.GetCanNotFindDevice: string;
begin
  Result := 'Can not find any device, please try later.';
end;

function TEnglishLanguage.GetConnected: string;
begin
  Result := '%s connected.';
end;

function TEnglishLanguage.GetConnectError: string;
begin
  Result := 'Can not connect to the device.';
end;

function TEnglishLanguage.GetConnecting: string;
begin
  Result := 'Connecting...%s';
end;

function TEnglishLanguage.GetDeviceIsWrong: string;
begin
  Result := 'Connect to device error, plase make sure this device is a SONOPOST.';
end;

function TEnglishLanguage.GetDownloadingHint: string;
begin
  Result := 'Downloading...%d';
end;

function TEnglishLanguage.GetIPAddressIsWrong: string;
begin
  Result := 'Invalid IP address.';
end;

function TEnglishLanguage.GetManualUrl: string;
begin
  Result := 'Device Address:';
end;

function TEnglishLanguage.GetOpen: string;
begin
  Result := 'Open';
end;

function TEnglishLanguage.GetPortIsWrong: string;
begin
  Result := 'Invalid Port number, port should be [0..65535].';
end;

function TEnglishLanguage.GetRefresh: string;
begin
  Result := 'Find';
end;

function TEnglishLanguage.GetTitle: string;
begin
  Result := 'SONOPOST Configuration Utility';
end;

end.