Ver Mensaje Individual
  #1  
Antiguo 03-10-2018
gguerrini gguerrini is offline
Miembro
 
Registrado: feb 2006
Ubicación: Cordoba , Argentina
Posts: 14
Reputación: 0
gguerrini Va por buen camino
TidMultiPartFormDataStream problema con ARBA

Hola Buenos Dias, estoy generando un POST para enviarle al servidor de ARBA, pero de respuesta, recibo un error, quisiera saber si alguien me ayuda que me puede estar faltando
El código es:


Código Delphi [-]
 procedure Tu_principal.BitBtn1Click(Sender: TObject);
  var
    FResponse: string;
    Str, sURL:String;
    DATOS : TidMultiPartFormDataStream;
  begin
   
    // Crear el componente para los envíos
    Fhttp := TIDHttp.Create(nil);
   
              // Crear la estructura de respuesta
              FResp := TStringStream.Create('');
   
    // Tratar los parámetros
     sURL := Trim(edURL.Text);
   
    DATOS := TidMultiPartFormDataStream.Create;
   
    DATOS.AddFormField('user', edUsuario.Text);
    DATOS.AddFormField('password', edPassword.Text);
    DATOS.AddFormField('file',edFile.Text , 'text/xml');
   
    mDatos.Lines.Clear;
    try
      DATOS.Position := 0;
      Fhttp.Request.ContentType := DATOS.RequestContentType;
   
      fhttp.Get(sURL , TStream(nil));
      Fhttp.Post(sURL , DATOS , FResp);
      mDatos.Text  := FResp.DataString;
   
    except
      on E:Exception do begin
        MessageDlg(E.Message, mtWarning, [mbOK], 0);
      end;
    end;
   
      DATOS.Free;
      FResp.Free;
      Fhttp.Free;
   
  end;


y el ERROR que me da


Código:
<?xml version='1.0' encoding='ISO-8859-1'?><DFEError>
  <tipoError>ERROR INESPERADO</tipoError>
  <codigoError>01</codigoError>
  <mensajeError>&lt;![CDATA[[Número de Transacción: 31825214]. Tipo: AUTENTICACION. Reportar  al Sector Seguridad.]]/&gt;</mensajeError>
</DFEError>

Desde muchas gracias por la ayuda.

Última edición por dec fecha: 03-05-2019 a las 09:52:08. Razón: Poner etiqueta CODE
Responder Con Cita