<![CDATA[coolslob]]> http://hi.baidu.com http://hi.baidu.com http://img.baidu.com/img/logo-hi.gif http://hi.baidu.com/coolslob zh-cn www.baidu.com 5 <![CDATA[jvcl336,TJvSearchFiles的bug]]>
procedure TJvSearchFiles.DoFindFile(const APath: string);
var
FileName: string;
FileSize: Int64;
{$IFDEF UNICODE}
S: string;
Len: Integer;
{$ENDIF}
begin
Inc(FTotalFiles);

with FindData do
begin
    if (soStripDirs in Options) then
      FileName := cFileName
    else begin
      {$IFDEF UNICODE}
      Len := Length(Trim(FindData.cFileName));
      SetLength(S, Len);
      StrLCopy(@S[1], FindData.cFileName, Len);
      FileName := APath + S;
      SetLength(S, 0);
      {$ELSE}
      FileName := APath + cFileName;
      {$ENDIF}

    end;
    if not (soOwnerData in Options) then
      Files.Add(FileName);
    Int64Rec(FileSize).Lo := nFileSizeLow;
    Int64Rec(FileSize).Hi := nFileSizeHigh;
    Inc(FTotalFileSize, FileSize);
    { NOTE: soStripDirs also applies to the event }
    if Assigned(FOnFindFile) then
      FOnFindFile(Self, FileName);
end;
end;
类别：默认分类 查看评论]]> 2009-05-29 21:36 http://hi.baidu.com/coolslob/blog/item/a9f91b38443920fab311c74c.html <![CDATA[html禁止缓存的方法,asp禁止缓存的方法,php禁止缓存的方法,jsp禁止缓存的方法]]> http://www.diybl.com/course/4_webprogram/jsp/jsp_js/2008410/109065.html

HTML:

<META HTTP-EQUIV="pragma" CONTENT="no-cache">

<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate">

<META HTTP-EQUIV="expires" CONTENT="Wed, 26 Feb 1997 08:21:57 GMT">

<META HTTP-EQUIV="expires" CONTENT="0">



PHP:

header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");

header("Cache-Control: no-cache, must-revalidate");

header("Pragma: no-cache");



ASP:

response.expires=0

response.addHeader("pragma","no-cache")

response.addHeader("Cache-Control","no-cache, must-revalidate")



JSP:

response.addHeader("Cache-Control", "no-cache");

response.addHeader("Expires", "Thu, 01 Jan 1970 00:00:01 GMT");
类别：默认分类 查看评论]]> 2009-05-17 22:23 http://hi.baidu.com/coolslob/blog/item/317a86b1b943f45c0923029a.html <![CDATA[我的个人服务器架设之dokuwiki]]>

最新版的mantis整合dokuwiki时，有些函数被取消了，需要重新添加。

D:\server\mantisbt-1.2.0a3\core\utility_api.php
 1 function explode_enum_string( $p_enum_string ) {
 2        return explode( ',', $p_enum_string );
 3 }
 4 
 5 function explode_enum_arr( $p_enum_elem ) {
 6        return explode( ':', $p_enum_elem );
 7 }
 8 
 9 function get_enum_to_array( $p_enum_string ) {
10        $t_arr = explode_enum_string( $p_enum_string );
11        $enum_count = count( $t_arr );
12        for( $i = 0;$i < $enum_count;$i++ ) {
13                $t_s = explode_enum_arr( $t_arr[$i] );
14                $t_index = (int) $t_s[0];
15                $t_array[$t_index] = $t_s[1];
16        }
17        return $t_array;
18 }
19 
20 function get_enum_to_string( $p_enum_string, $p_num ) {
21        $t_arr = explode_enum_string( $p_enum_string );
22        $enum_count = count( $t_arr );
23        for( $i = 0;$i < $enum_count;$i++ ) {
24                $t_s = explode_enum_arr( $t_arr[$i] );
25                if( $t_s[0] == $p_num ) {
26                        return $t_s[1];
27                }
28        }
29        return '@' . $p_num . '@';
30 }

类别：默认分类 查看评论]]> 2009-04-10 11:15 http://hi.baidu.com/coolslob/blog/item/f878aa44362d3b8ab2b7dca3.html <![CDATA[也说CoolTrayIcon组件的Delphi2009版本]]>
在网上下载了几个版本，都是存在问题。虽然能编译通过，但是Hint不能正常显示，要么不能完全显示，要么显示为乱码。 这样的版本，还好多人发布，结果下载的全是问题版本。

所以，即使别人说，这次是不得不说了。

修改1：
 1 function TCoolTrayIcon.ShowBalloonHintUnicode(Title, Text: WideString;
 2   IconType: TBalloonHintIcon; TimeoutSecs: TBalloonHintTimeOut): Boolean;
 3 // Show balloon hint. Return false if error.
 4 const
 5   aBalloonIconTypes: array[TBalloonHintIcon] of Byte =
 6     (NIIF_NONE, NIIF_INFO, NIIF_WARNING, NIIF_ERROR, NIIF_USER);
 7 var
 8   I: Integer;
 9 begin
10   // Remove old balloon hint
11   HideBalloonHint;
12   // Display new balloon hint
13   with IconData do
14   begin
15     uFlags := uFlags or NIF_INFO;
16     FillChar(szInfo, 0, SizeOf(szInfo));
17     for I := 0 to SizeOf(szInfo)-1 do
18       szInfo[I] := AnsiChar(Text[I]);//modi 
19     szInfo[0] := #1;
20     FillChar(szInfoTitle, 0, SizeOf(szInfoTitle));
21     for I := 0 to SizeOf(szInfoTitle)-1 do
22       szInfoTitle[I] := AnsiChar(Title[I]);//modi
23     szInfoTitle[0] := #1;
24     TimeoutOrVersion.uTimeout := TimeoutSecs * 1000;
25     dwInfoFlags := aBalloonIconTypes[IconType];
26   end;
27   Result := ModifyIcon;
28   // Remove NIF_INFO before next call to ModifyIcon (or the balloon hint will redisplay itself)
29   IconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
30 end;

修改2：
 1 function TCoolTrayIcon.InitIcon: Boolean;
 2 // Set icon and tooltip
 3 var
 4   ok: Boolean;
 5 begin
 6   Result := False;
 7   ok := True;
 8   if (csDesigning in ComponentState) then
 9     ok := (SettingPreview or FDesignPreview);
10 
11   if ok then
12   begin
13     try
14       IconData.hIcon := FIcon.Handle;
15     except
16       on EReadError do   // Seems the icon was destroyed
17       begin
18         IconData.hIcon := 0;
19 //        Exit;
20       end;
21     end;
22     if (FHint <> '') and (FShowHint) then
23     begin
24       {$IFDEF UNICODE}
25       CopyMemory(@IconData.szTip[0], PWideChar(WideString(FHint)), SizeOf(IconData.szTip)-1);//modi
26       {$ELSE}
27       StrLCopy(IconData.szTip, PChar(FHint), SizeOf(IconData.szTip)-1);
28       {$ENDIF}      
29       { StrLCopy must be used since szTip is only 128 bytes. }
30       { From IE ver. 5 szTip is 128 chars, before that only 64 chars. I suppose
31         I could use GetComCtlVersion to check the version and then truncate
32         the string accordingly, but Windows seems to handle this ok by itself. }
33       IconData.szTip[SizeOf(IconData.szTip)-1] := #0;
34     end
35     else
36       IconData.szTip := '';
37     Result := True;
38   end;
39 end;



类别：默认分类 查看评论]]> 2009-04-09 11:39 http://hi.baidu.com/coolslob/blog/item/298602f7febac72a730eecf2.html <![CDATA[为DBGridEh添加OnGetRowColor事件]]> 为DBGridEh添加OnGetRowColor事件
用途：可以给每行自定义颜色。
出处：http://hi.baidu.com/coolslob/


1、声明TGetRowColorEvent 类型
查找ILookupGridOwner，在ILookupGridOwner上方添加以下代码：
 
TGetRowColorEvent = procedure(Sender: TObject; ARow: Integer; Column: TColumnEh; var NewBrushColor, NewFontColor: TColor) of object;

2、在published区添加
注意：在private区手动添加FOnGetRowColor: TGetRowColorEvent
property OnGetRowColor: TGetRowColorEvent read FOnGetRowColor write FOnGetRowColor;
3、在DrawCell函数添加以下代码(27-34行)
 1 Value := '';
 2         if ((ARow >= 0) and (ARow < InstantReadRecordCount{FDatalink.RecordCount)) or (FooterRowCount = 0)})) then
 3         begin
 4           //OldActive := DataLink.ActiveRecord;
 5           InstantReadRecordEnter(ARow);
 6           try
 7           //DataLink.ActiveRecord := ARow;
 8 
 9           // Tree model elements
10           if DrawColumn.Color = Self.Color then
11           begin
12             if DataLink.Active and
13                (DataLink.DataSet.IsSequenced or
14                 (SumList.Active and SumList.VirtualRecords)) then
15                 begin          
16 //                  else begin
17                     if SumList.RecNo mod 2 = 1 then
18                       Brush.Color := OddRowColor
19                     else
20                       Brush.Color := EvenRowColor;
21 //                  end;
22                 end
23             else
24               Brush.Color := DrawColumn.Color;
25           end;
26 
27           if Assigned(FOnGetRowColor) then
28           begin
29             myBrushColor := Brush.Color;
30             myFontColor := Font.Color;
31             FOnGetRowColor(Self, ARow, DrawColumn, myBrushColor, myFontColor);
32             Brush.Color := myBrushColor;
33             Font.Color := myFontColor;
34           end;
35 
36           if (FIntMemTable <> nil) and (ACol = 0) and FIntMemTable.MemTableIsTreeList then
37           begin
38             DrawCellTreeArea(ACol, ARow, AState, ARect, The3DRect);
39             ARect.Left := ARect.Left + GetCellTreeElmentsAreaWidth;
40             if The3DRect then
41               ARect.Left := ARect.Left - 1;
42           end;





类别：默认分类 查看评论]]> 2009-04-07 11:30 http://hi.baidu.com/coolslob/blog/item/cbaa40fbd393f06c024f564f.html <![CDATA[delphi2009中的const数组[#0..#255]编译不通过的解决方法]]> 以下内容转自：http://blog.csdn.net/Im17benteng/archive/2009/01/18/3820847.aspx

delphi2009中的const数组[#0..#255]编译不通过的解决方法

Const
a: array[#0..#255] of AnsiChar = (
     #000, #001, #002, #003, #004, #005, #006, #007, #008, #009, #010, #011, #012, #013, #014, #015,
     #016, #017, #018, #019, #020, #021, #022, #023, #024, #025, #026, #027, #028, #029, #030, #031,
     #032, #033, #034, #035, #036, #037, #038, #039, #040, #041, #042, #043, #044, #045, #046, #047,
     #048, #049, #050, #051, #052, #053, #054, #055, #056, #057, #058, #059, #060, #061, #062, #063,
     #064, #097, #098, #099, #100, #101, #102, #103, #104, #105, #106, #107, #108, #109, #110, #111,
     #112, #113, #114, #115, #116, #117, #118, #119, #120, #121, #122, #091, #092, #093, #094, #095,
     #096, #097, #098, #099, #100, #101, #102, #103, #104, #105, #106, #107, #108, #109, #110, #111,
     #112, #113, #114, #115, #116, #117, #118, #119, #120, #121, #122, #123, #124, #125, #126, #127,
     #128, #129, #130, #131, #132, #133, #134, #135, #136, #137, #154, #139, #156, #141, #158, #143,
     #144, #145, #146, #147, #148, #149, #150, #151, #152, #153, #154, #155, #156, #157, #158, #255,
     #160, #161, #162, #163, #164, #165, #166, #167, #168, #169, #170, #171, #172, #173, #174, #175,
     #176, #177, #178, #179, #180, #181, #182, #183, #184, #185, #186, #187, #188, #189, #190, #191,
     #224, #225, #226, #227, #228, #229, #230, #231, #232, #233, #234, #235, #236, #237, #238, #239,
     #240, #241, #242, #243, #244, #245, #246, #215, #248, #249, #250, #251, #252, #253, #254, #223,
     #224, #225, #226, #227, #228, #229, #230, #231, #232, #233, #234, #235, #236, #237, #238, #239,
     #240, #241, #242, #243, #244, #245, #246, #247, #248, #249, #250, #251, #252, #253, #254, #255);

这段代码在delphi2007中是可以通过编译的,这也是delphi的特性之一,可以用Char来做数组序

经过几次测试发现

当#0..#128以下都是正常的而超过#129就出错了!

为此上CodeGear官方论坛上去请教了一下,但David也没说是不是bug

后来变通了一下小改动一下代码就通过编译了

代码如下

Const

AnsiChar0 = AnsiChar(#0);

AnsiChar255 = AnsiChar(#255);

a: array[AnsiChar0..AnsiChar255] of AnsiChar = (
     #000, #001, #002, #003, #004, #005, #006, #007, #008, #009, #010, #011, #012, #013, #014, #015,
     #016, #017, #018, #019, #020, #021, #022, #023, #024, #025, #026, #027, #028, #029, #030, #031,
     #032, #033, #034, #035, #036, #037, #038, #039, #040, #041, #042, #043, #044, #045, #046, #047,
     #048, #049, #050, #051, #052, #053, #054, #055, #056, #057, #058, #059, #060, #061, #062, #063,
     #064, #097, #098, #099, #100, #101, #102, #103, #104, #105, #106, #107, #108, #109, #110, #111,
     #112, #113, #114, #115, #116, #117, #118, #119, #120, #121, #122, #091, #092, #093, #094, #095,
     #096, #097, #098, #099, #100, #101, #102, #103, #104, #105, #106, #107, #108, #109, #110, #111,
     #112, #113, #114, #115, #116, #117, #118, #119, #120, #121, #122, #123, #124, #125, #126, #127,
     #128, #129, #130, #131, #132, #133, #134, #135, #136, #137, #154, #139, #156, #141, #158, #143,
     #144, #145, #146, #147, #148, #149, #150, #151, #152, #153, #154, #155, #156, #157, #158, #255,
     #160, #161, #162, #163, #164, #165, #166, #167, #168, #169, #170, #171, #172, #173, #174, #175,
     #176, #177, #178, #179, #180, #181, #182, #183, #184, #185, #186, #187, #188, #189, #190, #191,
     #224, #225, #226, #227, #228, #229, #230, #231, #232, #233, #234, #235, #236, #237, #238, #239,
     #240, #241, #242, #243, #244, #245, #246, #215, #248, #249, #250, #251, #252, #253, #254, #223,
     #224, #225, #226, #227, #228, #229, #230, #231, #232, #233, #234, #235, #236, #237, #238, #239,
     #240, #241, #242, #243, #244, #245, #246, #247, #248, #249, #250, #251, #252, #253, #254, #255);


类别：默认分类 查看评论]]> 2009-04-06 23:14 http://hi.baidu.com/coolslob/blog/item/f680b7318dbc6ea05fdf0eee.html <![CDATA[也玩U盘量产]]> 后来在跟朋友的一次谈话中，朋友说到：”可以自己把U盘量产为CD-ROM区“，我没多问。
联想起07年公司做的指纹U盘，也是有个CD-ROM去，心想：大概就是那么一个东西了。

今天，也来玩玩U盘量产。
手上有个1G的U盘，使用ChipGenius（芯片精灵），查看了相关信息。

接下来放狗搜索”SK6281/SK6211“，发现”SK6281/SK6211最新量产工具20080917"，下载了工具后，不管3721，对照文档里的步骤，操作一遍下来后，出现了三个分区：CD-ROM区，和另外两个分区。奇怪的是：为什么不是两个分区，而是三个？

这里有个专门讨论量产的论坛：无忧启动论坛 » 启动盘制作技术区 » 量产区

补充：为什么产生了三个分区，先看下图：
因为选择了给LUN1分配了3%，全部分配给LUN0就只有两个分区了。
类别：默认分类 查看评论]]> 2009-04-04 21:26 http://hi.baidu.com/coolslob/blog/item/0d75fc03f824f5e409fa933d.html <![CDATA[Delphi2009仍存在低级的Unicode错误]]> 现象1：在IDE中搜索cnpack_20081209\Source\MultiLang目录下的文件，搜素关键字：Grid，出现搜索结果：


现象2：在资源管理器中双击一个pas文件，出现以下对话框：

类别：默认分类 查看评论]]> 2009-03-30 12:40 http://hi.baidu.com/coolslob/blog/item/33c53fa8bb63c5b9ca130c0e.html <![CDATA[[转载]ThinkPad BIOS升级指南]]> 文章来源：http://qmp198596.blog.163.com/blog/static/301945020085102471764/

ThinkPad机器每次发布新版的BIOS，总是提供两种升级版本，其一是硬盘版，其二是光盘版，也即是Bootable CD版。

一、硬盘版BIOS升级指南

之前，升级BIOS是在DOS底下实现的，现如今，在Windows底下，非DOS高人也可以自己开刷BIOS了，BIOS的发布是很严谨的，但也不能确保任何人刷新都能成功。除却其它因素的影响，只要我们按照流程来操作，Windows下刷新BIOS是非常简单的一回事。

1、下载对应型号的BIOS升级程序。

2、双击下载后的安装程序（自解压缩文件），放心，现在还不是升级，只是一个解压缩的过程，默认的解压路径是C:/DRIVES/FLASH/（下载的BIOS默认文件名）。

3、确保系统此段时间比较稳定，无死机、蓝屏现象出现，否则不建议此时升级或者使用光盘版的升级程序；并去除任何外接硬件设备，如移动硬盘、优盘、DOCK、Express Card、PCMCIA Card，USB鼠标可以不必。

4、重启，出现开机LOGO时，按下F1键，进入BIOS，清除BIOS里面任何密码（主要还是超级密码、开机密码，但是为保险起见，建议全部清空。），禁用安全芯片（如果开启过安全芯片的话，建议在升级BIOS之前禁用一会，因为曾经有用户在开启安全芯片升级BIOS后，出现需要密码的现象。）。为保险的话，可按F9恢复出厂设置，再按F10保存退出。

5、机器重启进入系统后，关闭杀毒软件（个别机型的需要事先卸载）和其它自启动的程序（如QQ之类的程序），以及无线网络。

6、进入BIOS解压缩的文件夹，找到“WINUPTP”这个应用程序，而非“WinPhlash”，双击，会出现升级“ThinkPad BIOS Flash Update Utility”窗口，其中包含了两个选项，一是Update ThinkPad BIOS，一是Update model number，默认是前者。

7、点击“Next”，会出现提示信息，机器是否连接在DOCK上，是的话赶紧取消升级，关机去除，然后重头来过，否则的话点击“Next”继续，此时再次出现电池是否连接的提示，（建议电池保持30%以上的电量），之后点击“Next”进入正式的刷新。

8、正式刷新过程大约持续3分钟，先是备份机器自身的BIOS，然后再刷新新的BIOS，而且有进度条提示。在刷新的过程中，不要操作电脑，即使进度条不动，也不要急于操作，一切等待刷新完毕。中途的强行中断会导致BIOS刷新失败，自费更换主板。

9、刷新结束后，会提示重启。重启出现LOGO时，按下F1键再次进入BIOS，查看BIOS是否被刷新。并按下F9键初始化新版的BIOS，之后按照个人喜好设置BIOS，如BIOS密码、开启安全芯片等。

10、按F10保存退出。至此，升级完成。


类别：转载 查看评论]]> 2009-03-30 09:30 http://hi.baidu.com/coolslob/blog/item/c4bd9c2bfd597df2e7cd406f.html <![CDATA[我的个人服务器架设之SVN]]>                                      我的个人服务器架设之SVNhttp://hi.baidu.com/coolslob/
http://hi.baidu.com/coolslob/
     版本：1.5.6，官方下载地址：http://subversion.tigris.org/
     在官方网站下载的非安装版本，设置步骤在压缩包里的readme.txt中有详细说明，这里摘抄如下：
For an Apache server here's the essentials:

1. Copy bin/mod_dav_svn.so and bin/mod_authz_svn.so to the Apache modules directory.
2. Add the Subversion/bin directory to the SYSTEM PATH and reboot so all the Subversion
   support dll's are visible to the Apache service.
3. Edit the Apache configuration file (httpd.conf) and make the following changes:

3a. Uncomment the following two lines:

      #LoadModule dav_fs_module modules/mod_dav_fs.so
      #LoadModule dav_module modules/mod_dav.so

3b. Add the following two lines to the end of the LoadModule section:

      LoadModule dav_svn_module modules/mod_dav_svn.so
      LoadModule authz_svn_module modules/mod_authz_svn.so

3c. Add the following to end of the file. Note: This Location directive is a
      minimal example with no authentication directives. For other options,
      especially authentication options, see the Subversion INSTALL file,
      the Subversion Book, or the TortoiseSVN Manual.

      <Location /svn>
        DAV svn
        SVNPath your/repository/path
      </Location>

     安装SVN也有一点要特别说明：自动启动svn服务。看很多人为自动启动svn服务搞得焦头烂额。这里做个范本。有需要的时候，将内容复制下来，保存为BAT文件，修正其中的路径就可以了。
sc create svnservice binpath= "\"D:\server\svn-win32-1.5.6\bin\svnserve.exe\" --service -r D:\server\svn-repository" displayname= "svn service" start= auto depend= Tcpip
net start svnservice
    
     重新启动apache服务，看看apache service monitor的状态栏是否出现了svn等字样。
   

类别：默认分类 查看评论]]> 2009-03-28 09:56 http://hi.baidu.com/coolslob/blog/item/bba23efad6ff38819e5146bb.html