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:= 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