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

寒星 2001-11-02 04:07:05
我已经IMPORT了MSXML3。DLL,但不知道该如何使用它,手中没有这方面的资料,哪位能给出操作XML的例子?
...全文
88 3 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
寒星 2001-11-06
我试了一下,有些问题。你能不能给个完整的例子,因为上述代码中有些函数、方法我不知道该引用哪个单元,比如说:URLEncoding。例子请发到tonyjoule@21cn.com。谢谢!
  • 打赏
  • 举报
回复
寒星 2001-11-06
我试试看,可以的话马上给分。
  • 打赏
  • 举报
回复
rabbit 2001-11-05
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;
  • 打赏
  • 举报
回复
发帖
Delphi
加入

5094

社区成员

Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
申请成为版主
帖子事件
创建了帖子
2001-11-02 04:07
社区公告
暂无公告