delphi 2010和rad 2010都已经问世了，所以你或许会需要DelphiDistiller这个有趣的程序，DelphiDistiller的最新版本已经出到了1.75，支持最新的delphi 2010。
大米盘下载：DelphiDistiller.v1.75.rar（支持电驴、迅雷、旋风下载）
Archive for the 'delphi' Category
我的一个delphi应用中需要彻底删除一个临时路径，delphi自带的文件和路径操作函数基本不行，因为现在的windows系统很奇怪，路径会删除不干净，并且delphi默认的函数要用递归来写，比较麻烦。网上搜索了不少，逐一试验下载，下面的代码是有效的，我在windows xp下测试了，没有在vista下测试(不知道会否影响vista的权限控制)
该代码还是通过调用winapi来实现彻底强行删除一个路径，包括下面的所有文件。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | function ForceDeleteDir(lhandle: THandle; APath: AnsiString): Boolean; var lpFileOp: TSHFileOpStruct; begin with lpFileOp do begin wnd := lhandle; wFunc := FO_Delete; pFrom := PChar(APath); pTo := nil; fFlags := FOF_ALLOWUNDO+FOF_NOCONFIRMATION+FOF_NOERRORUI;//标志表明允许恢复，无须确认并不显示出错信息 hNameMappings := nil; lpszProgressTitle := nil; fAnyOperationsAborted := False; end; if SHFileOperation(lpFileOp) = 0 then result := True else result := False; end; |
相关内容
delphi for php 肯定不是最好的，因为至少它是收费的以及在windows平台下的。但是这并不妨碍delphi for php是最好的php开发工具之一。
据说使用delphi7写的delphi for php，非常流畅，加上从borland到codegear一直以来的优秀品质，并且很有趣的是，delphi for php从2.0开始对于中文支持不错，还有完整的中文IDE支持，这是之前连delphi都没有享受过的荣誉。
这个版本是delphi for php 2.0 b1041，我自己用过，没什么问题。仅供学习交流。
大米盘下载：Delphi for PHP v2.0.0.1041.rar（支持电驴、迅雷、旋风下载）
相关内容
虽然delphi 7以及以后貌似有很好的多国语言支持方案，但实际上实现起来并不是很容易。一些delphi下的控件，比如TsiLang相对好一些。从2ccc看到这篇文章，是一个简单的原型，但可能更加实用，因为它用类似po文件那样的方式将语言文件独立出来，这样便于第三方而不是程序开发者进行翻译。
越来越多的程序使用了多国语言切换，虽然DELPHI自带多语言包的添加和配置，但是那种方法在切换语言时界面会出现闪烁，而且实现起来很麻烦，这里我介绍给大家的是利用INI文件来读取界面的语种文字，用这种方法，不但简单易行，而且在切换的时候不会出现界面的闪烁。
我们从一个例子出发，看看怎么实现语言的切换。首先建立一个新工程。
放置如下组件：
MainMenu1: TMainMenu;
File1: TMenuItem;
Exit1: TMenuItem;
Label1: TLabel;
Button1: TButton;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
Button2: TButton;
Label2: TLabel;
ComboBox1: TComboBox;
Label3: TLabel;
由于要读取Ini文件，所以在USES中加入声明IniFiles;然后将Button1和Button2的ShowHint属性设置为True;其中我们用ComboBox1来显示可供选择的语言和用来选择语言。
我们在程序的目录下编辑如下的Chinese GB.Ini文件：
;///////////////////////////////////////////////////////////////////
;
; 翻译的一些规则:
; 翻译前,拷贝 Chinese GB.ini 改名到 yourlanguage.ini
; 仅仅翻译符号’='后的文字
;
;
[Translations]
;
Label1.Caption =文字1
Label2.Caption =文字2
Label3.Caption =语言
Button1.Caption =按钮1
Button2.Caption =按钮2
Button1.Hint =按钮1_提示
Button2.Hint =按钮2_提示
CheckBox1.Caption =复选框1
CheckBox2.Caption =复选框2
File1.Caption =文件
Exit1.Caption =退出
;
[Messages]
;
M1 =信息框测试
;
;//////////////////////////////////////////////////////////////////
同样的方法编辑一个名为English.ini的文件，将“=”左边的文字改为英文。
例如：Label1.Caption =Label1程序运行时，我们查找当前目录下所有的语言配置文件（*.ini），为了达到这个目的，我编写了如下的函数搜索目录下所有的语言配置文件的文件名，然后将文件名去掉ini扩展名保存返回：
function TForm1.SearchLanguagePack:TStrings;
var
ResultStrings:TStrings;
DosError:integer;
SearchRec:TsearchRec;
begin
ResultStrings:=TStringList.Create;
DosError:=FindFirst(ExtractFilePath(ParamStr(0))+’*.ini’, faAnyFile, SearchRec);
while DosError=0 do
begin
{ 返回的文件名并去掉末尾的.ini字符 }
ResultStrings.Add(ChangeFileExt(SearchRec.Name,’));
DosError:=FindNext(SearchRec);
end;
FindClose(SearchRec);
Result:=ResultStrings;
end;在Form建立的事件中添加代码，将目录下所有的语言文件名加入选择列表框中。
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items.AddStrings(SearchLanguagePack);
end;程序的重点在如何切换语言，在ComboBox1的OnChange事件中进行切换操作。这里我写了SetActiveLanguage过程用于实现这一操作。
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
SetActiveLanguage(ComboBox1.Text);
end;
其中SetActiveLanguage代码如下：
procedure TForm1.SetActiveLanguage(LanguageName:string);
const
Translation_s=’Translations’;
Messages=’Messages’;
var
frmComponent:TComponent;
i:Integer;
begin
with TInifile.Create(ExtractFilePath(ParamStr(0))+LanguageName+’.ini’) do
begin
for i:=0 to ComponentCount-1 do { 遍历Form组件 }
begin
frmComponent:=Components[i];
if frmComponent is TLabel then { 如果组件为TLabel型则当作TLabel处理，以下同 }
begin
(frmComponent as TLabel).Caption:=
ReadString(Translations,frmComponent.Name+’.Caption’,(frmComponent as TLabel).Caption);
end;
if frmComponent is TCheckBox then
begin
(frmComponent as TCheckBox).Caption:=
ReadString(Translations,frmComponent.Name+’.Caption’,(frmComponent as TCheckBox).Caption);
end;
if frmComponent is TButton then
begin
(frmComponent as TButton).Caption:=
ReadString(Translations,frmComponent.Name+’.Caption’,(frmComponent as TButton).Caption);
(frmComponent as TButton).Hint:=
ReadString(Translations,frmComponent.Name+’.Hint’,(frmComponent as TButton).Hint);
end;
if frmComponent is TMenuItem then
begin
(frmComponent as TMenuItem).Caption:=
ReadString(Translations,frmComponent.Name+’.Caption’,(frmComponent as TMenuItem).Caption);
end;
end;
M1:=ReadString(Messages,’M1′,M1);
end;
end;
在这个过程中，我们遍历了Form中的所有组件，根据他们的类别和组件名动态的从ini配置文件中读出应该显示的语言文字。
用遍历组件的方法比一个一个写出具体的组件维护起来要方便很多，代码的适应性也更强。
其中M1为一个字符串变量，这样提示消息也能切换，比如在Button1的Click事件中
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(M1);
end;
就可以根据不同的语言给出不同的提示文字。好了，整个工程就做完了，你可以运行测试一下，是不是切换迅速而且无闪烁。
我的主页上有完整的例子和代码下载：http://www.2ccc.com
欢迎大家于我交流：mantousoft@163.com
相关内容
我有过很多梦想，却在一次次的犹豫中，错过了。
午夜的时候，望星空，同样的星群下，从前的错过就是错过了。
看到一篇文章说，一个人要成功，需要花费10000小时，每天努力3小时，坚持10年。人和人之间的智商区别不大，但这个1万小时，太伟大了。
想想这应该是有道理的，我做的一个软件，目前花费了2个月的业余时间，大概平均每天花费2小时，一共用了120小时，目前已经有了700位用户，如果我努力1200小时，可能有7000位用户，如果我努力12000小时，就可以有70000位用户，至少，我这个梦想实现了。当然，我现在采用了120小时，路还很长。如果这个软件6年前我不轻易放弃，那么按照每天1小时计算，我失去了2000小时，后悔药没有买的。
记得在2001年的时候，有过一个freedelphi.net的域名，2005年又开始用indelphi.net的域名，2007年又买了phpdelphi的域名，想做一个delphi的分享者或者布道者，毕竟在第一份工作的时候，主要是delphi让我完成了那些项目，让我有一点点的工作成就。可惜，都没有坚持下去，而这些域名也都不属于我了。今天下午，我用了4个小时，重新开始这个梦想，每天大约30分钟，如果从2001年坚持到现在，我又浪费了1000小时，也就是2000篇关于delphi的blog，这是惊人的数字啊，而恰恰这几年，delphi发生了那么多天翻地覆的变化。
有梦想，评估一下，努力一下，坚持一下，可以做到的，不要犹豫。我们的生命和星群相比，实在是微不足道，但是我们的那些梦想，可以伴随人类一直长久，像星光一样闪烁。
相关内容
teeChart是delphi下最强的图表控件，这几年也已经发展到了dotnet等环境下。teeChart在8.0版本中提供了简单的使界面中文化显示的功能，你只要在FormCreate事件中加入TeeSetChineseSimp;就可以了。
但是在实际使用中碰到一个怪问题，就是当程序运行后，第一次显示的使用teechart的窗口不能正常中文化，而第二次显示及以后就可以了。程序中包含teechart的窗口是每次需要的时候动态生成的。
我现在用这样的方法来解决，在主窗口生成的时候，先创建一次包含teechart的窗口，骗一下，之后程序内的调用就都是第二次之后了。当然要用show，这样才能马上关掉。
try frmChart := TfrmChart.Create(Application); frmChart.Show; frmChart.Close; finally frmChart.Free; end;
相关内容
Delphi Prism就是在visual studio中直接使用delphi语言进行dotnet开发的项目。Borland和微软斗了那么多年，最后居然产品这样的合作，反正delphi也不是Borland的了，再说分久必合，这道理用在国外也一样，没有永远的敌人，只有永远的利益。
更多信息请看这里
最新评论