如何把我的xml文件提交到服务器中(巨难)-----重金求解,有帮助者得分.

Question

我要做一个通过xml文件来做通讯协议的程序,需要把我的xml提交到原端服务器进行校验,可我老是无法正常提交,每次提交都报错. 怎样去做?分不够可以再加. 介绍这方面的网站和资料太少,那位高人能给于在下一个指点??? 
procedure TForm1.Button2Click(Sender: TObject);
var
  xmlhttp: IXMLHTTPREQUEST;
  XMLDoc : TXMLDocument;
  XSLDoc : IXMLDOMDocument;
begin
    XSLDoc:= CoDOMDocument.Create;
    XSLDoc.load('LIA.xml');
    xmlhttp := coXMLHttpREQUEST.create;;
    try
       xmlhttp.open('POST','http://211.94.133.90',false,'2090','2000');
      // xmlhttp.responseXML
       //XMLHTTP.send()
       xmlhttp.send(xsldoc);
       memo1.Lines.Add(xmlhttp.responsetext);
       //......
    finally
       xmlhttp := nil;
    end;

Answer 1

100分赚我以下两段代码！很值了！快埋单，结帐吧！！！[:D]
procedure TForm1.Button1Click(Sender: TObject);
var
MyStream:TMemoryStream;
begin
    IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应.
    MyStream:=TMemoryStream.Create;
    try
        IdHTTP1.Get('http://www.sina.com.cn',MyStream);
    //IdHTTP1.Post(, req, res);
    except
        showmessage('ERROR');
        exit;
    end;
    MyStream.SaveToFile('e:\a.zip');
    MyStream.Free;
    Showmessage('OK');
end;  

Answer 2

slist: TStringList;
  servletname: String;
  directory: String;
  msg_strlist: TStringList;
  req, res: TStringStream;
begin  slist := TStringList.Create();
  slist.Add(input);
  servletname := Basename(url);
  directory := Format('%s\xml\%s\%s', [GetCurrentDir, 'FFFFF', 'xmlfile']);  ForceDirectories(directory);
  slist.SaveToFile(directory +
                   Format('\request_%s_%s.xml', ['xmlfile', 'xmlfile']));  FreeAndNil(slist);  req := TStringStream.Create(TIdURI.ParamsEncode(Input));
  res := TStringStream.Create('');  try
    Application.ProcessMessages();
    IdHTTP1.ReadTimeout := timeout * 1000;
    IdHTTP1.Post(url, req, res); 
    result := res.DataString;
  except
   //
  end;  FreeAndNil(res);
  FreeAndNil(req);
  slist := TStringList.Create();
  slist.Add(result);
  directory := Format('%s\xml\%s\%s', [GetCurrentDir, 'xxxxxx', 'xmlfile']);
  ForceDirectories(directory);
  slist.SaveToFile(directory +
                   Format('\response_%s_%s.xml', ['xmlfile', 'xxxxxx']));end;我现在做的就是这个。试试。没什么问题吧！