简单问题：delphi中怎么操作xml文件？怎么和web互动？(内空）

[AFIHA]

谢谢！！

[ChinaOk]

我的csdn论坛助手的部分代码


procedure Tform1.LoadTreeList();
procedure Addtree(thexmlF:IxmldomNode;theNodeF:TtreeNode);0D var i,id:integer;
tmpNode4,tmpNode5,tmpNode6:TtreeNode;
theBoardInfo:theBoards;
tmpstr:string;
begin
tmpNode5:=ListTree.Items.AddChild(theNodeF,thexmlF.childNodes[0].text);
tmpNode5.ImageIndex:=2;
tmpNOde5.selectedIndex:=3;
thexmlF:=thexmlF.childNodes[1];
for i:=0 to thexmlF.childNodes.length-1 do
begin
// cmbList.Items.Add(thexmlF.childNodes[i].text);
//cmbList.ItemIndex
tmpStr:=thexmlF.childNodes[i].text;
tmpNode6:=ListTree.Items.AddChild(tmpNode5,tmpStr);
tmpNode6.ImageIndex:=2;
tmpNOde6.selectedIndex:3D3;
//加入 非技术区、技术区 、已解决区、精华区 的选项
ID:=strtoint(thexmlF.childNodes[i].attributes[0].nodeValue);
0A // tmpNode6.Data:=newInfoNode(tmpStr+'-技术区',Id,2,1);
tmpNode4:=ListTree.Items.AddChild(tmpNode6,'非技术区');
tmpNode4.ImageIndex:=4;
tmpNode4.SelectedIndex:3D4;
tmpNode4.Data:=newInfoNode(tmpStr+'-非技术区',Id,1,1);
tmpNode4:=ListTree.Items.AddChild(tmpNode6,'技术区');
tmpNode4.ImageIndex:=5;
tmpNode4.SelectedIndex:3D5;
tmpNode4.Data:=newInfoNode(tmpStr+'-技术区',Id,2,1);
tmpNode4:=ListTree.Items.AddChild(tmpNode6,'已解决区');
tmpNode4.ImageIndex:=6;
tmpNode4.SelectedIndex:3D6;
tmpNode4.Data:=newInfoNode(tmpStr+'-已解决区',Id,3,1);
tmpNode4:=ListTree.Items.AddChild(tmpNode6,'精华区');
tmpNode4.ImageIndex:=7;
tmpNode4.SelectedIndex:3D7;
tmpNode4.Data:=newInfoNode(tmpStr+'-精华区',Id,4,1);
end;
end;

var
xmlobj: IXMLDOMDocument;
0A LocalFile:string;
node1,node2:IXMLDOMNodeList;
len1,len2,n:integer;
tmpNode,tmpNode2:TtreeNode;0D begin
ListTree.Items.Clear;
tmpNode:=ListTree.Items.Add(nil,'CSDN论坛');
tmpNode.ImageIndex:=0;
tmpNode.SelectedIndex:=1;
tmpNode.HasChildren:=true;
tmpNode.Expanded:=false;
if not LoadXml(BoardFile,xmlobj) then
begin
ShowMessage('论坛版面初始化信息文件出错!');
exit;
end;
node1:= xmlobj.documentElement.childNodes;
len1:=node1.length-1;
for n:=0 to len1 do
begin
addTree(Node1.item[n],tmpNode);
end;
tmpNode:=ListTree.Items.Add(nil,'收藏版面');
tmpNode.ImageIndex:=0;
tmpNode.SelectedIndex:=1;
tmpNode.HasChildren:=true;
if not LoadXml(FavFile,xmlobj) then
begin
ShowMessage('至爱版面初始化信息文件出错!');
exit;
end;
node1:= xmlobj.documentElement.childNodes;
len1:=node1.length-1;
for n:=0 to len1 do
begin
addTree(Node1.item[n],tmpNode);
end;
tmpNode.Expanded:=true;
xmlObj:=nil;
node1:=nil;
end;

================================================================

CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！

★ 浏览帖子速度极快！[建议系统使用ie5.5以上]。
★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]
★ 监视您关注帖子的回复更新。
★ 可以直接发贴、回复帖子
★ 采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。
可以浏览历史记录！
★ 支持在线检测程序升级情况，可及时获得程序更新的信息。

★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。

Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.China

[ChinaOk]

tmpNode:=tmpXml.selectNodes('Forum/Topics/Topic');
n:=tmpNode.length;
if n>ListAryLen then n:=ListAryLen;
for i:=1 to n do
begin
Node2:=tmpNode.item[i-1].childNodes;0D endm:=Node2.length;
if (endm>7) then endm:3D7;
for m:=1 to endm do
begin
aryList[i,m]:=node2.item[m-1].text;
end;
end;

[ChinaOk]

http://www.w3schools.com/
很基础。也很详细全面 e文
这里看看dom操作的知识吧