Delphi问题急 xmlhttp

[rabbit]

var
strXML: String;
oReq: IXMLHttpRequest;
JsDwDm,DwMc: String;
xmlDom :IXMLDOMDocument;
node: IXMLDOMElement;
nodeList: IXMLDOMNodeList;
begin
CoInitialize(nil );
OleCheck(CoCreateInstance(Class_DOMDocument, nil,CLSCTX_ALL,IXMLDOMDocument,xmlDom));
OleCheck(CoCreateInstance(CLASS_XMLHTTPRequest, nil,CLSCTX_ALL,IXMLHttpRequest, oReq));
oReq.Open('POST', POST_URL + 'select/jsdwdm.asp', False,varEmpty,varEmpty);
oReq.setRequestHeader('Content-Length', IntToStr(Length(strXML)));
oReq.setRequestHeader('CONTENT-TYPE', 'application/x-www-form-urlencoded');
oReq.send(varEmpty);
xmlDom := oReq.responseXML as IXMLDOMDocument;
nodeList := xmlDom.selectNodes('//r');
if nodeList <> nil then
begin
node := nodeList.nextNode as IXMLDOMElement;
while (true) do
begin
if node = nil then
break;
JsDwDm := node.selectSingleNode('dm').Text;
DwMc := node.selectSingleNode('mc').Text;
lstJsDwDm.Items.Add(JsDwDm + '---' + DwMc);
node := nodeList.nextNode as IXMLDOMElement;
end;
end;
xmlDom._Release;
oReq._Release;
CoUninitialize();
end;
过程退出时老是出现CPU调试窗口

[rabbit]

另外也没有正确的解析XML文档。
我明明有两个<r>节点，都没有循环出来。
直接break了

<?xml version='1.0' encoding='GB2312' ?>
<建设单位><r><dm>JS0001 </dm>
<mc>xxx</mc></r>
<r><dm>JS0002 </dm><mc>上铁建</mc></r></建设单位>

[Jneu]

up

[Tense]

考虑中。

[凯文]

我想我也不知道

[rabbit]

希望大家多多帮忙！

[rabbit]

我继续加分 ：）
高分悬赏！！

[rabbit]

大伙儿，帮帮忙。

[rabbit]

我得问题总算
被我自己解决了

问题有二：
1。去掉
xmlDom._Release;
oReq._Release;
2。我的ASP生成XML文档，少了 Response.ContentType = "text/xml"
看以下Microsoft XML 4.0 Technology Preview - XML Reference

If the response was generated by an Active Server Pages (ASP) page and the Multipurpose Internet Mail Extension (MIME) type was not correctly set to "text/xml" or "application/xml" using the ASP method Response.ContentType, responseXML will be empty.

希望大家快来拿分，我是个狂人，加了这么多分，还是自己发现问题。
。。。。

[rabbit]

发现去掉
xmlDom._Release;
oReq._Release;
就没有报错。但是我的数据还是没有出来。

[afeisky]

不会xml:(

[chassis]

大富翁上好像见过的．．．
给分

[gao277]

我有一个问题，你在服务器端收到的xml文档没有乱玛吗？我用的也是同样的方法，但是在服务器端收到的却是乱码，如果xml文档中没有中文就没有问题，可是有中文就有问题，能帮我解决吗？

[rabbit]

当然如果有数据要送给ａｓｐ
XUYAO编码的。

[gao277]

何所谓需要编码？具体如何实现？！我可以给分！

[xmlingo]

建议因为你没有加FORM变量所以没必要设置
oReq.setRequestHeader('CONTENT-TYPE', 'application/x-www-form-urlencoded');
另外如果你要处理oReg返回出错的情况（）下面语句应改为
xmlDom := oReq.responseXML as IXMLDOMDocument;
xmlDom.loadXML(oReq.responseText);否则会出错网页不存在等

[xmlingo]

建议
因为你没有加FORM变量所以没必要设置
oReq.setRequestHeader('CONTENT-TYPE', 'application/x-www-form-urlencoded');
另外如果你要处理oReg返回出错的情况（）下面语句
xmlDom := oReq.responseXML as IXMLDOMDocument;
应改为
xmlDom.loadXML(oReq.responseText);
否则会出错网页不存在等

[rabbit]

procedure TFrmZhGs.cmdUpLoadClick(Sender: TObject);
var
pXML: WideString;
strXML: WideString;
oReq: IXMLHTTPRequest;
reMsg :String;
root: IXMLDOMDocument;
node: IXMLDOMNode;
iLength: Integer;
begin
strXML := txtXML.Text;
If strXML = '' Then
Exit;
addLog('上传数据');
pXML := 'xml=' + strXML;
pXML := URLEncoding(pXML);
try
oReq := CoXMLHTTP30.Create;
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);
addLog('上传完毕');

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

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

[rabbit]

这是我根据VBScript的版本改写而来的 ：）
网上一查，你就知道原创始谁了
function URLEncoding(vstrIn: String): String;
var
ThisChr: Char;
i,j: LongWord;
High8,Low8:Integer;
InnerCode: Integer;
begin
Result := '';
i := 1;
j := Length(vstrIn);
while (i<=j) do
begin
ThisChr := vstrIn[i];
if ThisChr = ' ' then
Result := Result + '%20'
else if Abs(Ord(ThisChr)) < 127 then
Result := Result + ThisChr
else begin
innerCode := Ord(ThisChr);
High8 := innerCode and $FF;
Inc(i);
if i <= j then
innerCode := Ord(vstrIn[i]);
Low8 := innerCode and $FF;
Result := Result + '%' + Format('%x',[High8]) + '%' + Format('%x',[Low8]);
end;
Inc(i);
end;
end;

[geyuan]

ROBBIT
我看了你的代码，解决一个问题，在POST数据时，必须加上XML=
谢谢
但，我现还有一个问题，返回XML，如何进行DECODING ，是对RESPONSETEXT，还是对RESPONEXML进行处理
我的MAIL：[e-mail]多联系

[rabbit]

RESPONSETEXT,好像可以不要Decode的
记住在Server asp中一定要写明 response.type ..