<?xml version='1.0' encoding='gb2312'?>
<rss version='2.0'>
<channel>
<title>盒子论坛</title>
<description>DELPHI盒子技术论坛</description>
<link>http://bbs.2ccc.com/</link>
<language>zh-cn</language>
<copyright>Copyright 2004, bbs.2ccc.com</copyright>
<webMaster>root@2ccc.com</webMaster>
<docs>http://bbs.2ccc.com/rss.asp</docs>
<generator>Rss Generator By bbs.2ccc.com</generator>
<item>
<title><![CDATA[可能是个简单问题，但却困扰我一天——关于TRadioGroup.Font的问题]]></title>
<link>http://bbs.2ccc.com/topic.asp?topicid=327871</link>
<author>cxb_zdl </author>
<description><![CDATA[程序中需要遍历改变组件的字体，采用以下方法总是改变不完全：
 For i:=ComponentCount-1 Downto 0 Do
   If PropertyExists(Components[i],'FONT') Then
   Begin
     LocFont:=TFont(GetObjectProperty(Components[i],'FONT')); 
     LocFont.Size := Round(LocFontRate*LocFont.Size);
  End;    
  
以上代码中调用的两个函数定义如下， 

function PropertyExists(const AObject: TObject;const APropName:String):Boolean;
var
   PropInfo:PPropInfo;
 begin
   PropInfo:=GetPropInfo(AObject.ClassInfo,APropName);
   Result:=Assigned(PropInfo);
 end;

 function GetObjectProperty(
     const AObject   : TObject;
     const APropName : string
     ):TObject;
 var
   PropInfo:PPropInfo;
 begin
   Result  :=  nil;
   PropInfo:=GetPropInfo(AObject.ClassInfo,APropName);
   if Assigned(PropInfo) and
       (PropInfo^.PropType^.Kind = tkClass) then
     Result  :=  GetObjectProp(AObject,PropInfo);
 end;

我发现主要是一些TGroupBox和TRadioGroup所含的组件字体大小没有改变，于是把他们单独拿出来测试，例如：
if Components[i] is TRadioGroup then
  TRadioGroup(Components[i]).Font.Size:=Round(LocFontRate*LocFont.Size)
编译没问题，但运行时出现地址无法读取的错误。我查看了 TRadioGroup的VCL源码，其中有TRadioGroup.Font属性，使用ModelMaker查看，这是个覆盖属性（OverRide），我追踪到其父类和祖辈没有看到Font属性的定义。

问题：
1）TRadioGroup(Components[i]).Font.Size:=xx为什么会出现运行期错误？
2）具体怎么理解覆盖属性？

请各位大虾多多指教！！兄弟急等！！]]></description>
<comments>回复:0 浏览:6</comments>
<pubDate>Fri, 03 Jul 2009 03:07:57 GMT</pubDate>
</item>
<item>
<title><![CDATA[使用FindFirst函数查找文件如何按掩码*.pas返回正确文件a.pas而不是类*.pas?掩码的e.pas~,f.pas_]]></title>
<link>http://bbs.2ccc.com/topic.asp?topicid=327870</link>
<author>dejoy </author>
<description><![CDATA[我要查找某个目录下的某类扩展名的文件,但使用FindFirst结果似乎有点扩大化了.比如我要查找*.pas类型文件文件,结果返回中包括了类似xx.pas~,xx.pas_这样的文件,我传入的掩码是*.pas,希望返回的正确结果是a.pas,b.pas,但不应包括c.pas~,d.pas_.但从返回值看似乎是应用了掩码*.pas*或*.pas?,结果不正确啊,请教应该如何返回对应的正确的掩码*.pas的文件.

示例代码:
procedure TForm1.btn1Click(Sender: TObject);
var
  Search: TSearchRec;
  Result: Integer;
  dir, Mask: string;
  s: string;
begin
  dir := 'c:\y\';
  Mask := '*.pas';
  s := Dir + Trim(Mask);
  Result := FindFirst(s, faAnyFile, Search);
  try
    while Result = 0 do
    begin
      if (Search.Attr and faDirectory) &lt;> 0 then
        Result := FindNext(Search)
      else
      begin
        ShowMessage(Search.Name);
        Result := FindNext(Search);
      end;
    end;
  finally
    FindClose(Search);
  end;
end;]]></description>
<comments>回复:0 浏览:5</comments>
<pubDate>Fri, 03 Jul 2009 03:07:14 GMT</pubDate>
</item>
<item>
<title><![CDATA[dev v44中"TcxDBTreeList"中的"ImageIndexField"属性不起作用了]]></title>
<link>http://bbs.2ccc.com/topic.asp?topicid=327866</link>
<author>leftright </author>
<description><![CDATA[dev v44中"TcxDBTreeList"中的"ImageIndexField"属性不起作用了,原先是"ImageIndexFieldName"改成"ImageIndexField"的,哪位大哥知道就告诉小弟,谢谢了]]></description>
<comments>回复:0 浏览:19</comments>
<pubDate>Fri, 03 Jul 2009 02:07:01 GMT</pubDate>
</item>
<item>
<title><![CDATA[RemObjects V6.0.39.777 整套 With FullSource 源码，无条件下载]]></title>
<link>http://bbs.2ccc.com/topic.asp?topicid=327861</link>
<author>pholon </author>
<description><![CDATA[正在往mofile上传，上传完毕后，大家再下载。]]></description>
<comments>回复:4 浏览:104</comments>
<pubDate>Fri, 03 Jul 2009 01:07:30 GMT</pubDate>
</item>
<item>
<title><![CDATA[请大家帮忙？转存导入表的简单问题！]]></title>
<link>http://bbs.2ccc.com/topic.asp?topicid=327858</link>
<author>fangbianmian123 </author>
<description><![CDATA[PImpDir = ^TImpDir;
  TImpDir = packed record
    ThunkRVA: DWORD;
    ImpFuncCount: DWORD;
    Name: Array [0..0] of char;定义了一个变量 PkImportDir: PImpDir;在下面的转存后，列表里为啥没有地址呢？是没转存进去吗？不知道问题出在哪？

vImport:=ImageNTHeaders.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_IMPORT].VirtualAddress;
tRVA:=Integer(ImageSectionHeader.VirtualAddress-ImageSectionHeader.PointerToRawData);
 ImageImport:=PImageImportDecriptor(PChar(vImport)-tRVA+vBase);
   //读取所有DLL直到为空
    while ImageImport.Name&lt;>0 do
    begin
        PkImportDir.ThunkRVA:= ImageImport.FirstThunk;
        mmo1.Lines.Add(format('虚拟地址', [PkImportDir.ThunkRVA]));
        Inc(ImageImport);
    end;]]></description>
<comments>回复:0 浏览:16</comments>
<pubDate>Fri, 03 Jul 2009 01:07:55 GMT</pubDate>
</item>
<item>
<title><![CDATA[delphi 2010]]></title>
<link>http://bbs.2ccc.com/topic.asp?topicid=327840</link>
<author>yangzh </author>
<description><![CDATA[http://installers.codegear.com/release/radstudio/14.0.3449.21988/bde.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/bde_pro.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/bdecommon english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/bdecommon.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/bdecommon_pro english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/bdecommon_pro.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/borland database engine professional english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/codevisualization.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/codevisualization_delphi.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/codevisualization_delphicom english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/codevisualization_delphix english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/codevisualizationx english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/codevisualizationx.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/codevisualizationz.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/core english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/core.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/coredelphi english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/coredelphi.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/coredelphibcb.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/corenetz english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/corenetz.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/corewin32 english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/corewin32.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/corewin32x.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/corewin32xyz english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/corewin32xyz.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/corez.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/database.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/databasedesktop english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/databasedesktop.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/databasew32.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/db pack installer.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/dbexplr.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/dbexpress.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/dbgow32.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/dbpack_setup.exe
http://installers.codegear.com/release/radstudio/14.0.3449.21988/dbxcomponentsw32.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/delphiwin32 english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/delphiwin32.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/delphiwin32x.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/demeanor installer.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/dunit.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/etm.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/htmldesigner english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/htmldesigner.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/ibxw32 english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/ibxw32.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/ibxw32xyz english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/ibxw32xyz.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/imagefiles.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/indy.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/indywin32.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/indywin32xyz.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/internetcontrols.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/internetctrlswin32.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/internetctrlswin32x.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/intraweb.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/ite.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/itewin32.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/iwwin32.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/iwwin32xyz.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/mdlimport.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/msofficecontrolscore.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/msofficedelphiwin32.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/programfiles english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/programfiles.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/querybuilder.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/rave reports installer.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/ribboncontrolsw32 english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/ribboncontrolsw32.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/sampledatafiles.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/sampleprograms.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/samplesdelphiwin32.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/Setup.exe
http://installers.codegear.com/release/radstudio/14.0.3449.21988/soapwin32.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/sourcefileswin32 english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/sourcefileswin32.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/sqlbuilder english.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/transmogrifierdx.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/unittesting.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/vcldotnetruntimes.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/vclwin32runtimes.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/webappdebugger.7zip
http://installers.codegear.com/release/radstudio/14.0.3449.21988/xmlmapper.7zip]]></description>
<comments>回复:2 浏览:314</comments>
<pubDate>Thu, 02 Jul 2009 16:07:51 GMT</pubDate>
</item>
<item>
<title><![CDATA[RemObjects V6.0.39.777 整套 With FullSource 源码]]></title>
<link>http://bbs.2ccc.com/topic.asp?topicid=327836</link>
<author>andysong </author>
<description><![CDATA[包含：
最新 RemObjects SDK for Delphi V6.0.39.777 With FullSource 源码
最新 RemObjects Data Abstract for Delphi V6.0.39.777 With FullSource 源码
最新 RemObjects Hydra V3.0.39.777 With FullSource 源码

源码下载地址：
http://blog.csdn.net/chinaeband/archive/2009/07/02/4317165.aspx

破解及官方下载地址：
http://blog.csdn.net/chinaeband/archive/2009/06/19/4282506.aspx]]></description>
<comments>回复:6 浏览:256</comments>
<pubDate>Thu, 02 Jul 2009 13:07:01 GMT</pubDate>
</item>
<item>
<title><![CDATA[用delphi 怎么在论坛里发贴子？？很麻烦吗？？]]></title>
<link>http://bbs.2ccc.com/topic.asp?topicid=327833</link>
<author>xiaoke192 </author>
<description><![CDATA[比如，我要向论坛的任一个版块，发一个贴，该怎么做？]]></description>
<comments>回复:1 浏览:54</comments>
<pubDate>Thu, 02 Jul 2009 12:07:58 GMT</pubDate>
</item>
<item>
<title><![CDATA[Delphi的未来看起来前所未有的好(简译版)]]></title>
<link>http://bbs.2ccc.com/topic.asp?topicid=327804</link>
<author>melice </author>
<description><![CDATA[Delphi的未来看起来前所未有的好(简译版)

原文地址：http://www.devia.be/news/article/the-future-of-delphi-looks-brighter-than-ever-before/

废话略

Delphi Everywhere
  未来各种平台，包括mac osx，linux，和移动设备，iphone,都可以使用delphi来开发应用程序

Delphi Touch
  这个目标是使delphi控件直接支持触摸屏，gps，语音，摄像头等各种输入设备的交互。

The delphi Roadmap
  ide的各种大大小小增强
  支持各种输入设备
  增强文档和团队协作
  datasnap支持http
  ide insight，可以使用键盘访问所有东西
  支持win7 api和direct2d
  增强对RTTI的支持
  提供新的ota接口，支持源代码管理(weaver将会部分支持subverion)
  .Net的aop编程 

project Delphi X
   跨平台 包括控件跨平台和datasnapx的跨平台

project chromium
   这个不熟悉，略过,(chrome不是狗狗浏览器么..)

project commodore
  64位下的delphi cb和vcl的原生开发

更多
  以上并未提及是何时实现，但是大胡子说以后每年都会有个新版本

tms smooth controls
  说了一堆tms smooth controls的好话，可以在windows上面实现类似iphone上的平滑动画效果控件。但是没说delphi以后会否自带这些。

结论
  嗯，Delphi的未来很好，很强大]]></description>
<comments>回复:10 浏览:655</comments>
<pubDate>Thu, 02 Jul 2009 07:07:37 GMT</pubDate>
</item>
<item>
<title><![CDATA[请教inno setup 高手]]></title>
<link>http://bbs.2ccc.com/topic.asp?topicid=327798</link>
<author>huzhan </author>
<description><![CDATA[需要在安装程序的过程中写1G的文件(a：写1G空文件；b：在文件最后一位修改为'1')，我是放在InitializeUninstall()中执行的，可是inno setup不支持一些函数。
【是不是我这样做的思路不正确？】

function InitializeUninstall(): Boolean;
begin
.....
end;


下面是写1G文件Delphi代码：
[color=#00008B]
function TForm1.CreateFileOnDisk(AFileName: string; Size: Int64): Boolean;
var
  F: HFILE;
  C: Char;
  I: Integer;
  PCounter: Int64;
  TSize: Int64;
begin
  Result:= not FileExists(AFileName);
  if Result then
  begin
    F:= FileCreate(AFileName, 0);
    try
      PCounter := Size div (10 * 1024 * 1024);
      for I := 1 to PCounter do
      begin
        TSize := I * 10 * 1024 * 1024;
        SetFilePointer(F, Int64Rec(TSize).Lo, @Int64Rec(TSize).Hi, FILE_BEGIN);
        SetEndOfFile(F);
        C := '1';
        FileWrite(f, C, 1);
        Application.ProcessMessages;
        Bar.Position := TSize;
        if not (GetLastError = 0) then
          Break;
      end;
      TSize := 1024 * 1024 * 1024-1;
      SetFilePointer(F, Int64Rec(TSize).Lo, @Int64Rec(TSize).Hi, FILE_BEGIN);
      SetEndOfFile(F);
      C := '1';
      FileWrite(f, C, 1);
      Application.ProcessMessages;
      Bar.Position := TSize;
    finally
      FileClose(F);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  T1, T2: TDateTime;
begin
  T1 := Now();
  Bar.Min := 0;
  Bar.Max := 1024*1024*1024;
  Bar.Position := 0;
  CreateFileOnDisk('d:\1.dat', 1024*1024*1024);
  T2 := Now();
  Showmessage(IntToStr(SecondsBetween(T1, T2)));
end;[/color]]]></description>
<comments>回复:5 浏览:170</comments>
<pubDate>Thu, 02 Jul 2009 06:07:46 GMT</pubDate>
</item>
<item>
<title><![CDATA[VCL 补洞...]]></title>
<link>http://bbs.2ccc.com/topic.asp?topicid=327790</link>
<author>adamwu </author>
<description><![CDATA[不知各位有没有注意到Delphi的窗体的一个毛病:

设定了Constraint的Sizable窗体，如果从左或者从上方用鼠标resize，一旦到达了constraint，窗口就会顺着往右往下跑...|||||||



我很久以前就发现了，直到最近，实在看不下去了，于是决定补洞。
结果毛病比我预想的简单，而且一下就找到了.

TCustomForm.WMGetMinMaxInfo 里面已开始有一个条件判断:
if not (csReading in ComponentState) and FSizeChanging then
...

然后全文查找 FSizeChanging 会发现，这是一个私有变量;
而且除了定义和这个地方之外，没有其他地方使用！

换句话说，这个 FSizeChanging 永远都是 False;
WMGetMinMaxInfo里面的代码都是死代码...

然后，我就把这个条件判断里面执行的有关Constraint的代码疑移动到外面，重新编译VCL，一运行程序，果然现在从左边或者上面resize窗口，到了constraint以后窗口就固定不跑了。 :D

不知道VCL里面还有多少这种bug啊，等官方补丁太慢，大家有空都来补补吧 |||||||]]></description>
<comments>回复:5 浏览:411</comments>
<pubDate>Thu, 02 Jul 2009 03:07:21 GMT</pubDate>
</item>
<item>
<title><![CDATA[2007转到2009的出的串口通信的问题]]></title>
<link>http://bbs.2ccc.com/topic.asp?topicid=327788</link>
<author>cmp123 </author>
<description><![CDATA[在2007上运行这个程序在串口发出9a 89 76这样的包

在2009上运行这个程序就变成发出9a 00 89 00 76 00]]></description>
<comments>回复:2 浏览:100</comments>
<pubDate>Thu, 02 Jul 2009 03:07:02 GMT</pubDate>
</item>
<item>
<title><![CDATA[请教一下大家都在用什么系统，什么版本的DELPHI？]]></title>
<link>http://bbs.2ccc.com/topic.asp?topicid=327783</link>
<author>42550054 </author>
<description><![CDATA[最近搞了一台高配本本（PM45/SP9400/4G/9600MGT），默认VISTA32系统，以前一直用XP的，现征求下大家的宝贵意见，本人经常用的DELPHI，MSSQL，IIS，ASP，PhotoShop，FireWorks，CoreDraw，VC+……,是装XP还是VISTA好呢？怕VISTA有些不兼容。。。。]]></description>
<comments>回复:11 浏览:289</comments>
<pubDate>Thu, 02 Jul 2009 03:07:13 GMT</pubDate>
</item>
<item>
<title><![CDATA[急急，请教各位高手]]></title>
<link>http://bbs.2ccc.com/topic.asp?topicid=327782</link>
<author>tzn918 </author>
<description><![CDATA[请教: 在DELPHI2007中,vcl for web application wizard是不是就是INTRAWEB?因为看得书上介绍的不一样，所以感到怀疑，请各位高手帮助]]></description>
<comments>回复:0 浏览:46</comments>
<pubDate>Thu, 02 Jul 2009 02:07:54 GMT</pubDate>
</item>
<item>
<title><![CDATA[fastreport怎样设置页脚紧挨数据 [含附件]]]></title>
<link>http://bbs.2ccc.com/topic.asp?topicid=327775</link>
<author>panguosheng </author>
<description><![CDATA[怎样设置页脚或编写代码才能使页脚与数据区紧挨着呢？如图所示。（每页只打印四条记录。）]]></description>
<comments>回复:4 浏览:84</comments>
<pubDate>Thu, 02 Jul 2009 01:07:46 GMT</pubDate>
</item>
</channel></rss>