Under Southern Skies

　　最近要和其它厂商的系统互相交换数据。提到要通过XML实现。花了点时间学习了一下，把一些要点记下来，免得浪费今天的劳动成果～有些函数还是没搞明白，但实现目前的需求应该是没问题了。在此感谢令狐虫和猛禽提供滴无私帮助。

1、IXMLDocument包含哪个头文件？
#include<XMLDoc.hpp>

2、如何创建一个XML对象？

//生成一个XMLDocument对象。
//对象生成后不用自己释放。
_di_IXMLDocument X = NewXMLDocument();
AnsiString rootpath = “c:\\Temp”;
X->Active = true;
//添加一个NodeName叫”dir”
_di_IXMLNode ix = X->AddChild(“dir”);
//添加Node下的一字Attributes为”id”
//Value为”1001″
ix->Attributes["id"] = “1001″;
ix->Attributes["name"] = “file1.txt”;
ix->Attributes["path"] = “c:\\temp”;
//保存为XML文件。
X->SaveToFile(“c:\\temp\\files.xml”);

3、如何创建树状节结？
//在上面代码的基础上添加。
//在Node下面添加一个子节点
_di_IXMLNode ix = node->AddChild(“file”);
ix->Attributes["id"] = “id”;
ix->Attributes["name"] = name;
ix->Attributes["path"] = Path;
ix->Attributes["type"] = “type”;

4、如何读取XML？
//取得XML对象
// 同样不用管释放
_di_IXMLDocument xml =LoadXMLDocument(“c:\\temp\\files.xml”);
//取得XML中的元素。
//这个root是啥我也不知道。
//我理解为root是整个XML的根
_di_IXMLNode root = xml->GetDocumentElement();
//得到root的子节点
_di_IXMLNodeList nodelist = root->ChildNodes;
//_di_IXMLNodeList有一个Count属性
for(int i = 0; i < nodelist->Count; i ++)
{
　AnsiString str;
　//遍历Node
　_di_IXMLNode node = nodelist->Nodes[i];
　//从属性中取得Attribute
　WideString wpath = node->GetAttribute(WideString(“path”));
　WideString wfile = node->GetAttribute(WideString(“name”));
　str = wpath + “\\” + wfile;
　Memo1->Lines->Add(str);
　//下面这段一样
　//只是演试一下如何得到一下层
　_di_IXMLNodeList childlist = node->GetChildNodes();

　for(int j = 0; j <childlist->Count; j++)
　{
　　AnsiString str;
　　_di_IXMLNode node = childlist->Nodes[j];
　　WideString wpath = node->GetAttribute(WideString(“path”));
　　WideString wfile = node->GetAttribute(WideString(“name”));

　　str = ” “ + wpath + “\\” + wfile;
　　Memo1->Lines->Add(str);
　}
}

5、其它有用的方法
_di_IXMLNode有一个NodeTpye表明这个Node的类型。但不知道在何时使用它。
_di_IXMLNode有一个NodeValue，我猜是用来表明这个NodeValue的类型。但不知道在何时使用它。也不知道怎么用，总是报错。

附一个例子：
TForm1 *Form1;

void AddPath(AnsiString Path, _di_IXMLNode node)
{
　AnsiString FilePath=Path+“\\*.*”;
　TSearchRec sr;
　sr.Name=FilePath;
　int done;
　done = FindFirst(FilePath,faAnyFile,sr);
　AnsiString FileName;
　while (!done) {
　　FileName=Path+“\\”+sr.Name;
　　FileSetAttr(FileName,0);
　　if(sr.Attr & faDirectory&&sr.Name[1]!=‘.’) {
　　　_di_IXMLNode ix = node->AddChild(“dir”);
　　　ix->Attributes["id"] = “id”;
　　　ix->Attributes["name"] = sr.Name;
　　　ix->Attributes["path"] = Path;
　　　AddPath(FileName, ix);
　　}
　　else {
　　　_di_IXMLNode ix = node->AddChild(“file”);
　　　ix->Attributes["id"] = “id”;
　　　ix->Attributes["name"] = sr.Name;
　　　ix->Attributes["path"] = Path;
　　　ix->Attributes["type"] = “type”;
　　}
　　done = FindNext(sr);
　}
　FindClose(sr);
}
//—————————————————————————
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
　_di_IXMLDocument X = NewXMLDocument();
　AnsiString rootpath = “c:\\Temp”;
　X->Active = true;
　_di_IXMLNode ix = X->AddChild(“dir”);
　ix->Attributes["id"] = “”;
　ix->Attributes["name"] = ExtractFileName(rootpath);
　ix->Attributes["path"] = ExtractFilePath(rootpath);
　AddPath(rootpath, ix);
　X->SaveToFile(“c:\\temp\\files.xml”);
}
//—————————————————————————
void __fastcall TForm1::Button1Click(TObject *Sender)
{
　_di_IXMLDocument xml =LoadXMLDocument(“c:\\temp\\files.xml”);
　_di_IXMLNode root = xml->GetDocumentElement();

　_di_IXMLNodeList nodelist = root->ChildNodes;
　for(int i = 0; i <nodelist->>Count; i++)
　{
　　AnsiString str;
　　_di_IXMLNode node = nodelist->Nodes[i];
　　WideString wpath = node->GetAttribute(WideString(“path”));
　　WideString wfile = node->GetAttribute(WideString(“name”));
　　str = wpath + “\\” + wfile;
　　Memo1->Lines->Add(str);
　　_di_IXMLNodeList childlist = node->GetChildNodes();
　　for(int j = 0; j <childlist->Count; j++)
　　{
　　　AnsiString str;
　　　_di_IXMLNode node = childlist->Nodes[j];
　　　WideString wpath = node->GetAttribute(WideString(“path”));
　　　WideString wfile = node->GetAttribute(WideString(“name”));
　　　str = ” “ + wpath + “\\” + wfile;
　　　Memo1->Lines->Add(str);
　　}
　}
}
//—————————————————————————

　　看了猛禽和令狐的贴子才知道原来google今天死掉乐，偶还以为就偶一个人登不了Gmail呢。现在放心乐，不是偶的RPWT。
　　上次问了令狐关于数据库如何在做大数据量或执行很慢的操作时不会让界面死掉。记得令狐当时是说数据库本身就是支持这个功能的，然后就说了一堆以偶的IQ比较难以理解的话。好在在GOOGLE的帮助下还是找到了方法，和令狐说得也差不多，果然ADO就带有这个功能。只要设置ADOQuery或ADODataSet中的ExectueOption属性的eoAsyncFetchNonBlocking为true就可以乐。然后在OnFetchProgress和OnFetchComplete事件中作处理就行乐：）而在处理中想中止的话，只要简单的Close就行乐。

BTW　1：才说到偶和空姐失去联系了，没想到话刚说完的第二天就在网上遇到了她。看来考试后就没再回嘉兴，本来还真想跑回去见她一面，整整五年没见过她乐：（空姐现在对BLOG很感兴趣，AirHostess’ Blog看来就快要开张乐。

BTW　2：偶的Filckr也开张乐，可惜目前没有图片（至少没有公开的图片）。等有相机的时候请大家去参观吧。(Filckr + Blogspot果然是无敌的)

今天在修改同事的代码时发生的怪问题，原来的Cut、Paste、Copy等功能都失灵了，断点后发现ActiveControl总是得到NULL值。（偶是把窗体嵌入到另一个窗体中）。最后还是猛禽解释了原因。

又学到一手，好久都没聊技术了，啥都不熟了：）

BTW：
　　１、今天找到很多不错的诗，大家多多参观：《青春》、《索价》、《在非洲》
　　２、空姐生日快到乐，想送空姐一份生日礼物，但空姐就是不收，郁闷。现在不知道地址，没办法送乐，有钱用不掉指得多半就是现在这种情况@_@

网上找到一篇《Command line Printer Control in Windows 2000/XP》，里面介绍了通过命令控制打印机，测试也成功乐，这下不能再去理会SetPrinter了（虽然说得迎难而上，不过遇上这种RPWT我也没办法鸟）。

一条命令就解决我的问题，哈哈哈
RUNDLL32 PRINTUI.DLL,PrintUIEntry /Xs /n "printer" PortName "port:"

具体帮助可以在命令行下输入以下语句得到：
RUNDLL32 PRINTUI.DLL,PrintUIEntry /?

今天整理GMAIL时才发现我刚到上海时在网上发的找房消息竟然有人回复鸟，只是被GMAIL误认为是“垃圾邮件”给放到Spam里了，２室１厅１卫，离公司近到只用走路上班就行了，而且合住的还是位MM。现在到好了，啥都木有鸟。唉～～～怪偶过去一直没注意唉～～～