Consumir Webservice
 

Que tal:

Mi problema es que no eh logrado realizar una aplicacion que me permita enviar un archivo xml a un servidor web para la realizacion de facturacion electronica eh buscado en el foro ejemplos pero hasta ahora no eh podido conseguir un buen resultado. les dejo el codigo que utlizo, estoy trabajando con delphi 2010, indy (idhttp).

Código Delphi [-]
var
    respuesta: string;
  datosPost: TIdMultiPartFormDataStream;
begin


{
idhttp1.Request.Username:='delicias';
idhttp1.Request.Password:='delicias';
showmessage(idhttp1.Get('http://174.121.75.155/generadorIMTA/ReceptorATI.asmx'));
 }


  idhttp1:= TIdHTTP.Create(Self);
  idhttp1.Request.BasicAuthentication:=True;
  idhttp1.Request.Username:= 'usuario';
  idhttp1.Request.Password:= 'contraseña';
  datosPost := TIdMultiPartFormDataStream.Create;
  try
   datosPost.AddFormField('descripcion', 'factura');
   datosPost.AddFormField('commentarios', 'firmar documento de prueba');
   datosPost.AddFormField('referencia', '1');
   datosPost.AddFile('file',edit1.Text,'application/txt');

   respuesta := idhttp1.Post('http://174.121.75.155/generadorIMTA/ReceptorATI.asmx',datosPost);
  finally
    idhttp1.Free;
    datospost.free;
  end;

  showmessage(respuesta);


end;

al compilar me manda el siguiente error.

http:/1.1 500 Internal Server Error
de antemano gracias