delphi6中如何方便地实现把xml文件传送到webservice服务器?

Question

 我们用delphi6开发的老c/s结构的数据库程序，现在因为与外部程序对接，需要把生成的xml文件传到送到webservice服务器，
http://222.133.66.100:1111/BisOut1/services/erpPlatform?wsdl
登陆用户用0000000004
请问有什么方法快捷实现？现在急着用，恳请各位大侠指点，不胜感激！
网上找到一段改了下，用不起来。
    HTTPRIO1.HTTPWebNode.UseUTF8InHeader := true;
    HTTPRIO1.WSDLLocation:='http://222.133.66.100:1111/BisOut1/services/erpPlatform?wsdl;
    HTTPRIO1.Service:='pswService';
    HTTPRIO1.Port:='pswServiceSoap';
    HTTPDeclare:=HTTPRIO1 as pswServiceSoap;
 
  MStream := TMemoryStream.Create;
  try
  filename:= 'C:\nbyh\'+Fgh+'.XML';
  MStream.LoadFromFile(filename);
  MStream.Position := 0;
  SetLength(c, MStream.size);
  MStream.ReadBuffer(c[0], MStream.size);
  x:=HTTPDeclare.zlUploadFile(c[0]);
  end;
  finally
    MStream.Free;
  end;
end; 

Answer 1

服务器向客户端，传输XML，客户端通过XMLDocument，解析XML。