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
Fhttp := TIDHttp.Create(nil);
FResp := TStringStream.Create('');
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><![CDATA[[Número de Transacción: 31825214]. Tipo: AUTENTICACION. Reportar al Sector Seguridad.]]/></mensajeError>
</DFEError>
Desde muchas gracias por la ayuda.