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

[qq_14977045]

我们用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;

[lyhoo163]

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

[tcmakebest]

急用那就得表示表示,上各大论坛应该能找到会的人, 想学习就慢慢来吧