Delphi问题急 xmlhttp

2001-09-27 12:56:46 406 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

用C#和MQTTnet在WinForm里做个简易物联网监控后台（附完整源码）本文详细介绍了如何使用C#和MQTTnet库在WinForm中构建一个简易物联网监控后台。通过实战案例，包括环境配置、MQTT服务端实现、客户端监控功能及高级优化技巧，帮助开发者快速搭建高效的物联网监控系统，适用于工业自动化和智能家居场景。阅读详情

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调试窗口

...全文

Lama：基于傅立叶卷积的分辨率鲁棒性大掩模修复为了缓解修复网络和损失函数都缺乏有效的感受野这个问题，提出了大掩模修复（LaMa）。LaMa基于一种新的修复网络架构，该架构使用快速傅立叶卷积（FFC），具有图像范围的感受野；高感受野感知损失；大型训练掩码，释放前两个组件的潜力。阅读详情

rabbit

XML/XSL 8,906 成员 22,677 内容

+ 关注 + 加入社区

切换为时间正序

rabbit 2002-02-05

打赏
举报

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

geyuan 2002-02-04

打赏
举报

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

rabbit 2001-11-09

打赏
举报

这是我根据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;

rabbit 2001-11-09

打赏
举报

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;

xmlingo 2001-11-09

打赏
举报

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

xmlingo 2001-11-09

打赏
举报

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

gao277 2001-10-27

打赏
举报

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

rabbit 2001-10-27

打赏
举报

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

gao277 2001-10-26

打赏
举报

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

chassis 2001-10-24

打赏
举报

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

afeisky 2001-09-28

打赏
举报

不会xml:(

rabbit 2001-09-28

打赏
举报

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

rabbit 2001-09-28

打赏
举报

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

问题有二：
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 2001-09-28

打赏
举报

大伙儿，帮帮忙。

rabbit 2001-09-27

打赏
举报

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

rabbit 2001-09-27

打赏
举报

希望大家多多帮忙！

凯文 2001-09-27

打赏
举报

我想我也不知道

Tense 2001-09-27

打赏
举报

考虑中。

Jneu 2001-09-27

打赏
举报

rabbit 2001-09-27

打赏
举报

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

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

Delphi问题急 xmlhttp

相关推荐