G
geyuan
Unregistered / Unconfirmed
GUEST, unregistred user!
DELPHI程序
Var
MyHttp: IXMLHTTPRequest;
Str:WideString;
OutStr:WideString;
MyDomTest:IXMLDOMDocument;
Begin
MyHttp:=CoXMLHTTP30.Create;
MyHttp.open('Get','http://127.0.0.1/test.xml',False,'','');
MyHttp.setRequestHeader('Content-type','application/x-www-form-urlencoded');
Str:='XML=<BOOK/>';
MyHTTP.Send(Str);
ShowMessage(MyHttp.responseText);
Str:= MyHttp.responseText;
ShowMessage(Str);
MyDomTest :=CoDOMDocument.Create;
MyDomTest:=MyHttp.ResponseXml AS IXMLDOMDocument;
ShowMessage(MyDomTest.xml);
XML:
<? xml version="1.0" encoding ="gb2312" ?>
<ssa>
<message> 程序逻辑 </message>
</ssa>
但程序返回数据中,ResponseText 中的汉字为??号
传给MYDOMTEST数据中,XML为空
我估计ResponseText需要转换,但我不知道如何进行转换。
XMHLHTTP共有四个返回对象
ResponseText:WideString
ResponseXml:IDisPatch
ResponseBody:OleVariant
ResponseStream:OleVariant
其中,我用的ResponseText 与ResponseXml 都有这个问题
但是ResponseBody 与ResponseStream 我不会用
但我查了ResponseBody 的VARTYPE 是$2022 是VARARRAY 与VARBYTE 类型
ResponseStream 是VarUnknown类型
Var
MyHttp: IXMLHTTPRequest;
Str:WideString;
OutStr:WideString;
MyDomTest:IXMLDOMDocument;
Begin
MyHttp:=CoXMLHTTP30.Create;
MyHttp.open('Get','http://127.0.0.1/test.xml',False,'','');
MyHttp.setRequestHeader('Content-type','application/x-www-form-urlencoded');
Str:='XML=<BOOK/>';
MyHTTP.Send(Str);
ShowMessage(MyHttp.responseText);
Str:= MyHttp.responseText;
ShowMessage(Str);
MyDomTest :=CoDOMDocument.Create;
MyDomTest:=MyHttp.ResponseXml AS IXMLDOMDocument;
ShowMessage(MyDomTest.xml);
XML:
<? xml version="1.0" encoding ="gb2312" ?>
<ssa>
<message> 程序逻辑 </message>
</ssa>
但程序返回数据中,ResponseText 中的汉字为??号
传给MYDOMTEST数据中,XML为空
我估计ResponseText需要转换,但我不知道如何进行转换。
XMHLHTTP共有四个返回对象
ResponseText:WideString
ResponseXml:IDisPatch
ResponseBody:OleVariant
ResponseStream:OleVariant
其中,我用的ResponseText 与ResponseXml 都有这个问题
但是ResponseBody 与ResponseStream 我不会用
但我查了ResponseBody 的VARTYPE 是$2022 是VARARRAY 与VARBYTE 类型
ResponseStream 是VarUnknown类型