关于DELPHI程序多语言支持的问题

----------------仅供学习参考----------------关于DELPHI程序多语言支持的问写DELPHI程序，是如何实现繁体化的？是如何开发英文版的？是通过外挂语言包吗？我完整地说一下我的问题：我写一个DELPHI程序，开发环境是是简体中文版本winxp系统+Delphi7的。现在想做一个繁体版本以及其他非简体中文版本的出来。此时遇到这几个问题：1、在非简体中文系统中均出现乱码或界面文字错位。2、而且语言包速度太慢了，每次启动要预读一下语言文件进行界面翻译，工程量大的时候明显感到启动速度下降了3、因为工程量比较大，逐一设置“提示内容”及“界面内容”的语言包比较麻烦，所以不想用ini文件或dll资源库的语言包形式请问各位DELPHI高手你们是怎么做的？有没有一劳永逸的？听说DELPHI内置的多国语言功能，有没有用法帮助？还有没有其他一些好用简单强大的Unicode语言包控件？---------------------------------------------------------------------Delphi的多语言是这么用的，但是添加多语言后编译连接速度很慢，有时候10来分钟。可以把你的Delphi的窗体文件分给翻译来翻译，如果是Delphi7，需要先用Conver.exe来转换为文本格式。1、Project-NewApplication创建你的中文版软件。2、Project-Language-Add添加你的语言，比如美国（ENU）。或者File-New-Others-DllWizard3、保存后生成多个文件夹。4、Project-BuildAll5、程序下生成和工程文件同名的语言文件：MyExe.ENU;MyExe.CHN，软件发布需要带这些文件。6、把软件里面所有字符串定义为资源字符串。resourcestringC_Apptitle='xx管理系统';C_Error='错误';C_Warning='警告';7、在软件中用如下代码切换语言：const//定义你得多语言：ENGLISH=(SUBLANG_ENGLISH_USshl10)orLANG_ENGLISH;CHINESE=(SUBLANG_CHINESE_SIMPLIFIEDshl10)orLANG_CHINESE;usesReInit;...ifLoadNewResourceModule(ENGLISH)<>0thenbeginReInitializeForms();end;更多请参考Delphi帮助，里面写得更清楚。我以前也用INI文件做多语言，感觉挺好用，Delphi带得这个多语言感觉编译起来太慢，而且总需要Build半天。利用INI文件实现界面无闪烁多语言切换程序运行时，我们查找当前目录下所有的语言配置文件（*.ini），为了达到这个目的，我编写了如下的函数搜索目录下所有的语言配置文件的文件名，然后将文件名去掉ini扩展名保存返回：functionTForm1.SearchLanguagePack:TStrings;varResultStrings:TStrings;DosError:integer;SearchRec:TsearchRec;beginResultStrings:=TStringList.Create;DosError:=FindFirst(ExtractFilePath(ParamStr(0))+'*.ini',faAnyFile,SearchRec);whileDosError=0dobegin{返回的文件名并去掉末尾的.ini字符}ResultStrings.Add(ChangeFileExt(SearchRec.Name,''));DosError:=FindNext(SearchRec);end;FindClose(SearchRec);Result:=ResultStrings;end;在Form建立的事件中添加代码，将目录下所有的语言文件名加入选择列表框中。procedureTForm1.FormCreate(Sender:TObject);beginComboBox1.Items.AddStrings(SearchLanguagePack);end;程序的重点在如何切换语言，在ComboBox1的OnChange事件中进行切换操作。这里我写了SetActiveLanguage过程用于实现这一操作。procedureTForm1.ComboBox1Change(Sender:TObject);beginSetActiveLanguage(ComboBox1.Text);end;其中SetActiveLanguage代码如下：procedureTForm1.SetActiveLanguage(LanguageName:string);constTranslations='Translations';Messages='Messages';varfrmComponent:TComponent;i:Integer;beginwithTInifile.Create(ExtractFilePath(ParamStr(0))+LanguageName+'.ini')dobeginfori:=0toComponentCount-1do{遍历Form组件}beginfrmComponent:=Components[i];iffrmComponentisTLabelthen{如果组件为TLabel型则当作TLabel处理，以下同}begin(frmComponentasTLabel).Caption:=ReadString(Translations,frmComponent.Name+'.Caption',(frmComponentasTLabel).Caption);end;iffrmComponentisTCheckBoxthenbegin(frmComponentasTCheckBox).Caption:=ReadString(Translations,frmComponent.Name+'.Caption',(frmComponentasTCheckBox).Caption);end;iffrmComponentisTButtonthenbegin(frmComponentasTButton).Caption:=ReadString(Translations,frmComponent.Name+'.Caption',(frmComponentasTButton).Caption);(frmComponentasTButton).Hint:=ReadString(Translations,frmComponent.Name+'.Hint',(frmComponentasTButton).Hint);end;iffrmComponentisTMenuItemthenbegin(frmComponentasTMenuItem).Caption:=ReadString(Translations,frmComponent.Name+'.Caption',(frmComponentasTMenuItem).Caption);end;end;M1:=ReadString(Messages,'M1',M1);end;end;在这个过程中，我们遍历了Form中的所有组件，根据他们的类别和组件名动态的从ini配置文件中读出应该显示的语言文字。用遍历组件的方法比一个一个写出具体的组件维护起来要方便很多，代码的适应性也更强。其中M1为一个字符串变量，这样提示消息也能切换，比如在Button1的Click事件中procedureTForm1.Button1Click(Sender:TObject);beginShowMessage(M1);end;就可以根据不同的语言给出不同的提示文字。好了，整个工程就做完了，你可以运行测试一下，是不是切换迅速而且无闪烁。Delphi实现多语言界面关键字：多语言界面，Delphi，国际化，本地化。 随着Internet在全球的普及，一个软件开发者，开发出来的产品可以随意发布到全球各个角落，然而与此同时，开发出来的产品也面临着一个新的问题：如何实现各种不同的语言界面，甚至根据最终用户的操作系统的语言版本，自动更改语言界面？难道为每一个不同的语言编写一个不同的版本？不，完全没有必要。Delphi5.0作为一个优秀的快速RAD开发工具，可以很容易地实现国际化支持，因为Delphi5.0内置了对多语言界面的支持。 一个程序，如果需要不同的语言版本，那么应该有一下几点需要注意的地方[]：1.必须允许你的程序代码能够处理好各种语言字符串，例如如果要中文化，必须能够处理双字节。2.你必须设计好你的程序界面，以便能够使你的程序界面元素有足够的空间显示语言文字信息。一般说来，在50个字节以内的英文单词所表达的意思，用其他的语言来描述的话，长度要超过50字节，但中文是一个例外。特别对于几个字节的英文单词，其他的语言的长度几乎百分之百要超过英文的长度！因此，必须在控件中留出足够的长度以便在更改语言之后，还能显示全部的语言文字信息。3.你必须翻译所有的资源。本文将着重讨论如何用Delphi5.0实现多语言的支持和切换，界面设计和上述要求不在本文讨论范围之内。要为程序添加语言支持，只要在Delphi主菜单项Project下面选择LanguagesàAdd…即可。点击之后出现语言向导，读者按照向导进行操作即可。向导结束之后，会生成一个工程组文件(BPG)，最后出现TranslationManager，软件开发者可以在这里翻译所有语言的所有资源，包括字体、位置、文字等等。说明一下：你可以随时随地用Project下面的Languages子菜单的功能来添加、删除、修改各种界面元素。做完上述工作之后，我们现在就差切换语言的代码了。为了切换语言，大家可以使用下面的一个单元[]，单元中提供了两个函数，用来更换语言界面元素，其中LoadNewResourceModule是用来修改文字信息等等，ReinitializeForms用来重新刷新窗体和控件以保证同步。///文件名：MaltiLan.pasunitMaltiLan;interfaceuses Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms;procedureReinitializeForms;functionLoadNewResourceModule(Locale:LCID):Longint;implementationtype TAsInheritedReader=class(TReader) Public   procedureReadPrefix(varFlags:TFilerFlags;varAChildPos:Integer);Override; end;procedureTAsInheritedReader.ReadPrefix(varFlags:TFilerFlags;varAChildPos:Integer);begin inheritedReadPrefix(Flags,AChildPos); Include(Flags,ffInherited);end;functionSetResourceHInstance(NewInstance:Longint):Longint;var CurModule:PLibModule;begin CurModule:=LibModuleList; Result:=0; whileCurModule<>nildo begin   ifCurModule.Instance=HInstancethen   begin     ifCurModule.ResInstance<>CurModule.Instancethen       FreeLibrary(CurModule.ResInstance);     CurModule.ResInstance:=NewInstance;     Result:=NewInstance;     Exit;   end;   CurModule:=CurModule.Next; end;end;functionLoadNewResourceModule(Locale:LCID):Longint;var FileName:array[0..260]ofchar; P:PChar; LocaleName:array[0..4]ofChar; NewInst:Longint;begin GetModuleFileName(HInstance,FileName,SizeOf(FileName)); GetLocaleInfo(Locale,LOCALE_SABBREVLANGNAME,LocaleName,SizeOf(LocaleName)); P:=PChar(@FileName)+lstrlen(FileName); while(P^<>'.')and(P<>@FileName)doDec(P); NewInst:=0; Result:=0; ifP<>@FileNamethen begin   Inc(P);   ifLocaleName[0]<>#0then   begin     //Thenlookforapotentiallanguage/countrytranslation     lstrcpy(P,LocaleName);     NewInst:=LoadLibraryEx(FileName,0,LOAD_LIBRARY_AS_DATAFILE);     ifNewInst=0then     begin       //Finallylookforalanguageonlytranslation       LocaleName[2]:=#0;       lstrcpy(P,LocaleName);       NewInst:=LoadLibraryEx(FileName,0,LOAD_LIBRARY_AS_DATAFILE);     end;   end; end; ifNewInst<>0then   Result:=SetResourceHInstance(NewInst)end;functionInternalReloadComponentRes(constResName:string;HInst:THandle;varInstance:TComponent):Boolean;var HRsrc:THandle; ResStream:TResourceStream; AsInheritedReader:TAsInheritedReader;begin{avoidpossibleEResNotFoundexception} ifHInst=0thenHInst:=HInstance; HRsrc:=FindResource(HInst,PChar(ResName),RT_RCDATA); Result:=HRsrc<>0; ifnotResultthenExit; ResStream:=TResourceStream.Create(HInst,ResName,RT_RCDATA); try   AsInheritedReader:=TAsInheritedReader.Create(ResStream,4096);   try     Instance:=AsInheritedReader.ReadRootComponent(Instance);   finally     AsInheritedReader.Free;   end; finally   ResStream.Free; end; Result:=True;end;functionReloadInheritedComponent(Instance:TComponent;RootAncestor:TClass):Boolean; functionInitComponent(ClassType:TClass):Boolean; begin   Result:=False;   if(ClassType=TComponent)or(ClassType=RootAncestor)thenExit;   Result:=InitComponent(ClassType.ClassParent);   Result:=InternalReloadComponentRes(ClassType.ClassName,FindResourceHInstance(     FindClassHInstance(ClassType)),Instance)orResult; end;begin Result:=InitComponent(Instance.ClassType);end;procedureReinitializeForms;var Count:Integer; I:Integer; Form:TForm;begin Count:=Screen.FormCount; forI:=0toCount-1do begin   Form:=Screen.Forms[I];   ReloadInheritedComponent(Form,TForm); end;end;end.测试程序窗体单元文件如下：///单元文件名：unit1.pasunitUnit1;interfaceuses Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs, Menus,MLanTool,ExtCtrls,StdCtrls;type TForm1=class(TForm)   MainMenu1:TMainMenu;   File1:TMenuItem;   Exit1:TMenuItem;   Language1:TMenuItem;  Chese1:TMenuItem;   English1:TMenuItem;   Button1:TButton;   Memo1:TMemo;   ListBox1:TListBox;   GroupBox1:TGroupBox;   Panel1:TPanel;   procedureExit1Click(Sender:TObject);   procedureChese1Click(Sender:TObject);   procedureEnglish1Click(Sender:TObject); Private   {Privatedeclarations} Public   {Publicdeclarations} end;var Form1:TForm1;implementation{$R*.DFM}const ENGLISH=(SUBLANG_ENGLISH_USshl10)orLANG_ENGLISH; CHINESE=(SUBLANG_CHINESE_SIMPLIFIEDshl10)orLANG_CHINESE;procedureTForm1.Exit1Click(Sender:TObject);begin Close;end;procedureTForm1.Chese1Click(Sender:TObject);begin ifLoadNewResourceModule(CHINESE)<>0then   ReinitializeForms;end;procedureTForm1.English1Click(Sender:TObject);begin ifLoadNewResourceModule(ENGLISH)<>0then   ReinitializeForms;end;end.如果要自动切换语言，只要在FormCreate事件中添加如下代码即可： ifLoadNewResourceModule(SysLocale.DefaultLCID)<>0then   ReinitializeForms;说明一点：在程序完成的时候，你应该用Luanguages子菜单的UpdateResourcesDLL功能更新所有的窗体和代码，然后用BuildAllProject编译所有的文件，这样才能保证你的程序正常运行。所有的源代码可以到<http://kingron.myetang.com/soft/MultiLan.rar>下载。后记：其实用INI文件也可以实现多语言界面的切换，好处是可以方便大家随时添加不同的语言文件，但是，对于一个大型的程序来说，用INI是不现实的。用INI实现语言界面的程序，大家可以到<http://kingron.myetang.com/soft/winupx.rar>下载源代码和测试程序。干净搞定delphi多语言-兼论设计模式随着全球化程度加深，软件越来越像蒲公英，到处飘散、扎根。这其中要解决的是不同语言的显示问题。我们当然希望一套程序，可以不修改代码就可以支持不同的语言，不要去维护很多的版本。首先要谈到的一个问题是乱码问题，因为delphiwin32到11.x版还是不支持unicode，所以一般使用Ansi码，有这样几种情况会显示乱码：使用的语言文字与系统当前设定的语言不一样；比如简体版QQ在繁体操作系统（或简体操作系统的区域设置中“非Unicode程序的语言”设定为繁体）就是乱码。即使改变Font.Charset，某些元件仍然会出现乱码，如StatusBar。因此，在越南文版的windows显示越南文，在伊朗文版的windows显示伊朗文，不要在越南文版windows显示伊朗文，在伊朗文版windows显示越南文，这样就能确保没有乱码问题。好在一般这样的错位用法也不多见。系统没有安装你要显示的语言的语言包；如果你要保证完全无乱码，必须考虑使用unicode码，使用成套的支持unicode的元件，如tnt，但它在UI变现上比较单一，你不可能不使用别的元件。言归正传，首先，看看哪些地方的字串需要实现多语言，并来看看各种实现方法的优劣。1、界面上的元件，如TButton的Caption；2、主动弹出的消息，如ShowMessage('Areyousure?')，RaiseException.Create('Error!')；3、例外错误举发的报告信息，如f/0引起的exception；4、第3方元件包内部的上述字串；实现多语言的方法很多，列举一二：1、delphi自带的Resource生成工具此工具把专案的dfm文件里的所有字串以及pas中定义为ResourceString的字串列举出来，按不同的语言编译成不同的Resource，专案编译前先选语言，每种语言编译成一个exe(此处有误,exe中是BaseLanguage的资源,每种语言编译成一个资源Dll,文件名跟程序同名,后缀不是Dll,而是locale的代码,如enu,eng,前两个表示语言,第三个表示国家)。这个工具使用很不方便，不是一个完整的解决，跟Borland的Midas的demo一样（TClientDataSet通过ProviderName连接到RemoteDatamodule的TDataSetProvider，实际开发Erp系统时，谁会放100个TDataSetProvider连接到100个TDataSet？），只是一个原理尚通的示范。首先，由于dfm本身也是资源文件的一部分，因此每次修改都要“UpdateResourceDLLs...”，如修改Button1为Button2，如果你忘了，运行时就会报“找不到资源Button1的错误”(这个好像并没有什么麻烦的)；提供的字典编辑画面中，除了字串，还有Left/Top等资料(这个确实不方便,东西太多了)；字典不能重用，在一个模组翻译了，在第2个模组还要再翻译相同的词。其次，每种语言一个exe/bpl，如果你的系统是Package切割，bpl也是每种语言一个，还要小心别把不同语言的bpl组合在了一起，到时候一个画面显示中文，一个显示德文（有一个可能是乱码）就惨了。再次，在作bpl组装的系统时，第3方元件如果没有提供多语言的方案，你就需要修改第3方元件，但一般我们不这样干，因为第3方元件会随时更新，难道每次人家更新你也再更新人家。因此，一般都没有人使用Delphi本身提供的这个方案（除了作demo）。2、Resourcedll方式用单独的ResourceDll，用LoadResString等函数获得翻译字串，但你要到处写这个函数来一一替换，特别是Form上的字串，噢，会累死人。字典可以重用。3、网上讨论很多的ini文件方式此方法是写个替换的引擎，在运行时从ini文件读取语言字串来替换画面元件的显示文字。这个方法比第一种进步很多，不需要每种语言编译一个exe了，只要提供不同的ini文件就好；画面修改时如果ini没有同步更新也不会出现致命错误，最多就是某个文字没有转换；引擎也提供了字串转换函数，因此也可以处理主动弹出的消息。这个方法在文件格式上有三种不同的实现：(1)、[编号]=[字串]每个字串从1开始编号，1，2，3，4......，很麻烦，代码要修改，当然运行时切换语言没问题。(2)、[元件.属性]=[字串]这种实现把元件instance一一对应，用RTTI来判断属性，替换很精确，也可以运行时切换语言。不足之处是，略显呆板，多个元件相同的字串会多次列出；没有扩展性，表现TListView的Columns等复杂元件时比较吃力。(3)、[旧字串]=[新字串]不管元件的instance，ini是纯粹的语言对照表，或者叫字典，扩展性、运行时切换语言可能在引擎里。不足之处是不能处理一词多义。总的说来，这种方式有很大进步，但为了用ini文件，大家还要费力的破解64k的限制，更专业的方式是使用自定义的文件格式。在简单性方面，无疑是这种自定义的转换引擎，[旧字串]=[新字串]的文件格式来得方便，借助字典管理工具，字典文件可以重复使用，也可以提供给专业翻译公司翻译。那么剩下的问题在引擎上，如何方便，最好用户不写一行代码；如何扩展性强，支持任意的第三方元件；如何有弹性，同一个画面有多种语言的文字，同一个词可以转换成不同的意思......4、给每个元件类继承一个子类，在子类的Loaded方法里转换文字。由于要处理的都是叶级元件（虽然TLabel、TPanel都是从TCustomControl来，但不能只处理TCustomControl），工作量比较大；对旧有程序除了换元件无能为力。5、为每个元件类注册一个转换函数，引擎遍历Container，为每个元件找到血源最近的转换函数，调用这个函数转换这个元件的文字。这样可以不必处理叶结点，只需在恰当的元件层上注册函数；不必改动旧有程序。設計時Form上只需要放一個轉換元件，這個元件在Loaded后開始掃描Form上的元件，從forI:=0toComponentCount-1或從fori:=0toControlCount-1遞歸，找到一個元件就去查找其血緣最近的註冊函數，然後調用這個函數替換其文字。因爲註冊函數是額外加上去的，所以不會動到舊的代碼，對任意第方元件都可以擴展支持，且也不用去修改人家第3方元件的代碼。我认为第5种方法很优雅，看起来比较干净。用GOF的设计模式来套，这属于Mediatorpattern(中介者模式)。多年前，我们使用一个叫TXPMenu的元件来获得XP风格的界面，也是感觉到它很干净，一个元件就搞定一切，不用TLabel换成TFlatLabel,TButton换成TFlatButton......我记得《程序员》上还有文章专门称赞这个元件。但那个元件没有使用中介者模式，不能很好的扩展对第3方元件的支持。最后，我们畅想一下，如果我是Borland，如何在Delphi里完整支援多语言。Delphi提供了一个区块定义的关键字“ResourceString”，在这个区块定义的字串常量，编译器会把它编译在exe文件的资源区，运行时用LoadStringA这个WindowsAPI来读取，因此有些外部转换工具可以直接从exe文件读取这些资源字串，再写入转换后的字串；内嵌的转换引擎也可以拦截这个API函数来转换文字。但是如果exe里的字串资源化不彻底，就无能为力，这个不彻底恰恰来自Delphi的DFM文件，Delphi把DFM文件整个作为一项资源放在exe里，其上的字串就没法决定是否要don`tresource（Delphi源码里很多常量字串都有这个提示）了。如果除了string,widestring,ansistring等等这些数据类型，delphi增加一种数据类型multistring，然后修改vcl元件定义（拜托Borland连同Unicode一起解决了吧），像TLabel.Caption定义成MultiString，对MultiString类型，有一种专门的处理方法，如类似ResourceString用LoadStringAPI来处理，每次读取就转换一次，但应该比这个内容更多，比如要传出instance，然后提供一个全局的ApplicationMulti元件，类似ApplicationEvent，让外面能捕捉到。至于字典，只能外部用户提供（当然可以制定一个标准格式让delphi人都可以共享交换）。此法看起来可行，但还有个效率问题要考虑，（1）每次读取都转换，对频繁draw的东西效率低；（2）比如一个ToolBar有好多的ToolButton，批次更新时一般都会用BeginUpdate/EndUpdate，vcl如何告知后代来提高这种效率。（补记：效率看起来不是问题，对多次字串更改导致频繁draw，其实元件自己已经会用beginupdate/endupdate处理，外部不会涉及）