平台调用XMLHTTP发送XML数据的问题【11楼有新问题】

pure1437

【问题】通过平台在一个函数里调用XMLHTTP(通过IXMLHTTPREQUEST接口的方法)来传递XML数据到外部程序，通过外部程序的网页接收数据，并返回数据。代码如下，程序运行后始终卡在readyState<>4那里，跳过那一块后，返回system err code 998。

请教，问题出在那里，并能给个平台使用XMLHTTP传递XML文件到外部网页或者其他程序并返回信息的例子吗，或者平台上有什么其他的实现相关功能（传递XML到指定网页并返回）的对象或接口？

var
dom:TXMLDocument;
xmlHTTP:IXMLHTTPREQUEST;
begin
     
     dom.LoadFromXML(strXml); {载入XML}  

     xmlHTTP:=IXMLHTTPREQUEST(CoXMLHTTPRequest.Create);

     
     sHttpServer:= 'http://....'; {导入XML文件的地址}

     xmlHTTP.open('POST',sHttpServer,true,'','');{调用:IXMLHTTPREQUEST接口的open方法,True为异步，False为同步 }
     xmlHTTP.send(dom.XML);{调用:IXMLHTTPREQUEST接口的send方法发送XML文件}


     {通过readyState=4确认发送XMl文件结束才执行后面的代码}
     ta:=TApplication.Create(self);
     while xmlHTTP.readyState<>4 do
     begin
        ta.ProcessMessages;
     end;

     {通过xmlHTTP.status}       
     if xmlHTTP.status='200' then
        begin
             returnMsg:=xmlHTTP.responseText;
        end
     else
        begin
          if  xmlHTTP.responseText.Length=0 then
              begin

                   returnMsg:='连接失败！可能原因是服务器错误';
                   result:=false;
                   exit;
              end
          else
              begin
                   MyresponseText:= xmlHTTP.responseText;
                   returnMsg:='链接失败！可能原因是网络未连接或者IIS服务器未启动';
                   result:=false;
                   exit;
              end;
        end;

lixy

楼主代码能在delphi中执行通吗？

pure1437

可以在delphi 中执行通

lixy

能把delphi的工程文件加PAS，DFM等等文件发过来吗？

pure1437

在delphi中测试通过的所有文件在下面的附件里。

lixy

谢谢，我测试下

lixy

楼主，你的附件我编译不通。。。
[Error] Unit1.pas(72): '(' expected but '.' found
[Error] Unit1.pas(72): Not enough actual parameters
[Error] Unit1.pas(74): ')' expected but ':=' found
[Error] Unit1.pas(74): Statement expected, but expression of type 'String' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

pure1437

==，刚才可能谁改了一下，我重新上传以下

pure1437

现在这个应该没有问题了

lixy

procedure TMainForm.Button2Click(Sender: TObject);
var
  dom:TXMLDocument;
  XMLString:widestring;
  sHttpServer:string;
  xmlHTTP:IXMLHTTPREQUEST;
begin

     xmlHTTP := ComObj.CreateOleObject('Microsoft.XMLHTTP') as IXMLHTTPREQUEST;
     dom:=TXMLDocument.create(Self);
     dom.Active:=true;
     dom.LoadFromFile(edit1.Text);
     XMLString:=dom.XML.Text;
     dom.LoadFromFile(edit1.Text);
     sHttpServer:= 'http://192.168.1.21:8081/test.html';
     xmlHTTP.open('POST',sHttpServer,true,'','');
     xmlHTTP.send(XMLString);
     while xmlHTTP.readyState<>4 do
     begin
         Forms. Application.ProcessMessages;
     end;
     if xmlHTTP.status=200 then
        begin
             returnMsg:=xmlHTTP.responseText;
        end
     else
        begin
          if  xmlHTTP.responseText=''  then
              begin
                   returnMsg:='连接失败！可能原因是服务器错误';
                   memo1.Text := returnMsg;
                   imResult:=false;
                   exit;
              end
          else
              begin
                   returnMsg:='链接失败！可能原因是网络未连接或者IIS服务器未启动';
                   memo1.Text := returnMsg;
                   imResult:=false;
                   exit;
              end;
        end;

   toU8err:=0;
   imResult:=true;
   memo1.Text := returnMsg;
end;