高手请进！Delphi中如何操作XML？能给出例子吗？

[寒星]

我已经IMPORT了MSXML3。DLL，但不知道该如何使用它，手中没有这方面的资料，哪位能给出操作XML的例子？

[rabbit]

var
pXML: WideString;
strXML: WideString;
oReq: IXMLHTTPRequest;
reMsg :String;
root: IXMLDOMDocument;
node: IXMLDOMNode;
iLength: Integer;
begin
strXML := txtXML.Text;
If strXML = '' Then
Exit;

txtResponse.Text := txtResponse.Text + '上传数据';
pXML := 'xml=' + strXML;
pXML := URLEncoding(pXML);
oReq := CreateOleObject('Msxml2.XMLHTTP.3.0') as IXMLHTTPRequest;
oReq.Open('POST', POST_URL + 'zhgs.asp', False,varNull,varNull);
iLength := Length(pXML);
oReq.setRequestHeader('Content-Length', IntToStr(iLength));
oReq.setRequestHeader('CONTENT-TYPE', 'application/x-www-form-urlencoded');
oReq.send(pXML);

txtResponse.Text := txtResponse.Text + '上传完毕';

reMsg := '';
reMsg := oReq.responseText;
root := oReq.responseXML As IXMLDOMDocument;
node := root.selectSingleNode('message');
if node <> nil then
begin
reMsg := node.Text;
end;

txtResponse.Text := txtResponse.Text + reMsg;
Application.MessageBox(PChar('回应：'+reMsg),'上传提示',MB_ICONINFORMATION);
end;

• 打赏
• 举报

回复 赞

[寒星]

我试试看，可以的话马上给分。

• 打赏
• 举报

回复 赞

[寒星]

我试了一下，有些问题。你能不能给个完整的例子，因为上述代码中有些函数、方法我不知道该引用哪个单元，比如说：URLEncoding。例子请发到[e-mail]。谢谢！

• 打赏
• 举报

回复 赞