前者是正确的数值，后者是0。
看了一下网上的代码都是List完了就直接用，DirectoryListing会自动解析ListResult

放狗搜了半天，终于找到原因，原来是Indy10的一个设计上的变化，以下引用官网内容：

TIdFTP.DirectoryListing is returning nothing for my FTP server. Why?

We restructured the way FTP directory listing is done. The code is now a plug in system with various parsers in their own units which register themselves into a framework. To add support for a particular type of FTP server, you simply add the parser unit to one of your program unit's uses clause.

To add the Unix directory list parser, add IdFTPListParseUnix to your unit's clause. To add support for Microsoft Windows NT IIS FTP server, add IdFTPListParseWindowsNT to your uses clause. You can also add many other parsers we include in the Indy packages. By convention, they are named IdFTPListParser followed by the server type. You do not need to add IdFTPListParseBase to your uses clause because IdFTP uses that unit. If you wish to use all of Indy's FTP List parser classes, just add the IdAllFTPListParsers unit to your uses clause.

We admit this new design is not as intuitive as the older one but this has many advantages for us such as:

• The FTP list parsing code is now much easier to maintain than the same code in a non-modular design in one unit which would be at least 150KB total.

• You now can add support for only the FTP servers you want your program support to support.

• You can now write your own custom parser classes and plug those into the standard FTP parsing list framework.

搜了一下IdFTPListParse有关的unit，有一大坨，要写个比较通用的FTP Client估计都得引进去吧……

• TWebBrowser显示自定义Html内容 (3)
• Delphi 2007 for Win32企业版安装方法 (10)
• CSS Sprites样式生成工具 (0)
• 大杂烩ActionScript3 (0)
• TTreeView的使用 (0)

一开始pFrom和pTo没有以“#0#0”结尾，结果发现在有的机器上能移动成功，有的机器上SHFileOperation返回1026无法转移，查了一下资料

ShFileOperation中的pFrom和pTo中可以包含多个文件名，文件名之间用 '\0' 分割，最后以两个\0结束。

• Documents (2)
• 第一个C++程序 (7)
• Curl上传文件 (0)

1. uses
2.   ActiveX, MSHtml;
3.  
4. var
5.   Document: IHtmlDocument2;
6.   V: OleVariant;
7. begin
8.   WebBrowser1.Navigate('about:blank');
9.   Document := WebBrowser1.Document as IHtmlDocument2;
10.   V := VarArrayCreate([0, 0], varVariant);
11.   V[0] := 'Hello World';
12.   Document.Write(PSafeArray(TVarData(v).VArray));
13. end;

• 允许本地文件系统上的 HTML 页访问脚本 (0)
• TTreeView的使用 (0)
• TIdFTP的DirectoryListing使用问题 (1)
• Delphi 2007 for Win32企业版安装方法 (10)
• 有时候注释也不能乱写 (1)

因为用sqlite自己的命令行读取操作两种方式都没有问题，所以只能怀疑是ASQLite3封装的有问题了，lol

• 看上去不错的日期控件 (1)

首先定义一个数据结构来保存每一个TTreeNode的数据，可以根据需要放更多的数据进去：

unit TreeNodeDataUnit;

interface

uses
  Classes;

type
  TreeNodeData = Record
    id: Int64;
    InstanceClass: TComponentClass;
  end;

implementation

end.

其中InstanceClass字段用来保存每个TTreeNode所对应的Frame或Form。

以如下定义为例：

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    TreeView1: TTreeView;
    procedure FormCreate(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

开始创建TTreeView，在Form的OnCreate中创建：

procedure TForm1.FormCreate(Sender: TObject);
var
  items: TTreeNodes;
  mainNode, subNode: TTreeNode;
  nodeData: ^TreeNodeData;
begin

  items := TreeView1.Items;

  mainNode := items.Add(nil, 'Root');
  New(nodeData);
  nodeData^.id := 100;
  mainNode.Data := nodeData;

  subNode := items.AddChild(mainNode, 'Node1');
  New(nodeData);
  nodeData^.id := 100100;
  nodeData^.InstanceClass := TFrame1;
  subNode.Data := nodeData;

  subNode := items.AddChild(mainNode, 'Node2');
  New(nodeData);
  nodeData^.id := 100200;
  nodeData^.InstanceClass := TFrame2;
  subNode.Data := nodeData;

  TreeView1.FullExpand;
end;

响应TTreeView的OnChange事件，根据每个TTreeNode的Data定义显示不同的Frame或Form：

var
  currFrame: TForm;

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  nodeData: ^TreeNodeData;

begin
  nodeData := Node.Data;
  //ShowMessage(intToStr(nodeData^.id));

  if (nodeData^.InstanceClass <> nil) then begin
    if (currFrame <> nil) and not (currFrame is nodeData^.InstanceClass) then begin
      currFrame.Free();
      currFrame := nil;
    end;
    if (currFrame = nil) then begin
      Application.CreateForm(nodeData^.InstanceClass, currFrame);
      currFrame.Parent := Panel2;
      currFrame.Align := alClient;
      currFrame.Show;
    end;
  end;

end;

这样当需要添加新的Node时只需要更改很少的代码。

PS：相比于在Design视图上点来点去，还是更喜欢自己写代码来实现……

• TWebBrowser显示自定义Html内容 (3)
• Delphi 2007 for Win32企业版安装方法 (10)
• TIdFTP的DirectoryListing使用问题 (1)
• 大杂烩ActionScript3 (0)

C++ Builder 2007的企业版许可文件(slip file for C++ Builder 2007)：cb2007_ent.zip

新装方法：
1、下载D2007。
2、删除D2007中的delphi2007.slip文件，将这里下载的d2007_Ent.slip直接拷入目录内(建议使用UltraISO编辑镜像)。
3、完成后就可以运行setup.exe文件开始安装了！安装过程中需要联网下载文件，请保持联网状态。
4、安装完成后用D2007Tweaks移除协议检测。
5、现在可以开始爽了！
6、查看Source目录里是否为六个目录，对照下面的Runtime Packages表格，查看企业版所包含的几个文是否装上(dbxasa30.dll、dbxase30.dll、dbxdb230.dll 、dbxinf30.dll、dbxmss30.dll、dbxora30.dll、dsnap100.bpl、dsnapcon100.bpl、 dsnapent100.bpl、dss100.bpl、webdsnap100.bpl、websnap1 00.bpl这些文件分布在System32及Bin目录内)，以上两点满足就已经算是企业版了！

如果安装时提示“Invalid Serial Number”，有两种可能：
1、将文件解压缩到硬盘上安装了，推荐用Daemon虚拟光驱安装
2、原先已经安装过Delphi 2007，这时候应该先将原有信息删除：

if you got Invalid Serial Number message during install
delete folders
%ALL_USERS%\Application Data\CodeGear
%ALL_USERS%\Application Data\{AB3EC276-D261-4943-A921-1CC1C6799AED}
then run setup again

安装了企业版以后使用dbExpress连接Oracle就不会报缺少DLL了，但是实际发现连接MySql的时候还是会提示文件缺失……

• TIdFTP的DirectoryListing使用问题 (1)
• TTreeView的使用 (0)
• TWebBrowser显示自定义Html内容 (3)
• 大杂烩ActionScript3 (0)