Ver Mensaje Individual
  #1  
Antiguo 06-07-2011
MARLON1 MARLON1 is offline
Miembro
 
Registrado: nov 2007
Posts: 118
Reputación: 17
MARLON1 Va por buen camino
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
Responder Con Cita