CoXMLHTTP30在哪个单元文件里？oReq := CoXMLHTTP30.Create; 这句为什么老出错？

我有一段代码：  
  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);        
                             
  end;        
   
   
      oReq       :=       CoXMLHTTP30.Create;   这句老实执行不过去，大虾救救。  
 

自顶。  
 

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);        
                             
  end;        
   
  ================================  
   
  不是那句执行不过去    
  而是你try了   后面又没跟进异常保护模块   怎么不会出错    
  你这样写    
                      oReq       :=       CoXMLHTTP30.Create;        
                      try          
                                      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);    
                      finally  
                                      oReq.free;  
                      end;                      
                             
  end;        
 

--------------------------
新闻：大脑推客：通过电脑思考即可发布Twitter消息
网站导航: 博客园首页  新闻  .NET频道  社区  博问  闪存  找找看