Dudas con IdHTTP de Indy 9

[vicvil]

Ñuño, ¿tienes algún ejemplo de cómo hacer esto con Synapse?

[Ñuño Martínez]

Empezado por vicvil

Ñuño, ¿tienes algún ejemplo de cómo hacer esto con Synapse?

Normalmente dejo que sea el propio Synapse que se encargue del trabajo sucio, ya que él mismo incluye clases que implementan los protocolos más comunes (FTP, SMTP, POP3, HTTP...).

Intentaré describir tu caso (más o menos y de memoria):

Código Delphi [-]
  VAR
    ArchivoXML: TFileStream;
    ClienteHTTP: THTTPSend;
  BEGIN
    ClienteHTTP := THTTPSend.Create;
    TRY
      ClienteHTTP.Protocol := '1.1';
      ClienteHTTP.UserAgent := 'Synapse HTTP Client'; { Puedes poner lo que te plazca. }
      ClienteHTTP.KeepAlive := TRUE;
      ClienteHTTP.Cookies.Values['TOKEN'] := 'YZD0II2ApZjlM';
      ClienteHTTP.MimeType := 'application/ms-excel';
      IF NecesitaClave THEN
      BEGIN
        ClienteHTTP.Username := EditNombreUsuario.Text;
        ClienteHTTP.Password := EditClave.Text
      END;
      ArchivoXML := TFileStream.Create (RutaArchivoXML, fmOpenRead);
      TRY
        ClienteHTTP.Document.CopyFrom (ArchivoXML, ArchivoXML.Size)
      FINALLY
        FreeAndNil (ArchivoXml) { Sólo destruye si existe, si no, lo ignora y evita el error. }
      END;
      ClienteHTTP.HTTPMethod ('POST', EditURL.Text);
      Application.MessageBox (
        Format ('Resultado:'#10'[%d] %s ', [ClienteHTTP.ResultCode, ClienteHTTP.ResultString])
      )
    FINALLY
      ClienteHTTP.Free
    END
  END

Seguramente tengas que afinar alguna cosa, pero más o menos sería así. Dudo que tengas que usar la propiedad "Headers".

[vicvil]

Gracias Ñuño por tu cooperación,
Estoy implementando tu ejemplo adaptándolo a mis necesidades, pero cuando envío el archivo recibo el código 500 en http.resultcode, esto me indica que "El servidor encontró una condición inesperada que le impidió cumplir con la solicitud".
Yo creo que debe ser porque faltan partes del encabezado que no he podido encontrar cómo ingresar, como "Accept:", "Referer:", "Accept-Languaje:", "Accept-Encoding:", etc.
Intenté ingresarlo de la siguiente forma:

Código Delphi [-]
HTTP.Headers.add( 'POST /cgi_dte/UPL/DTEUpload HTTP/1.0'+ CRLF +
                        'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, applicatio/ms-excel, application/msword, */*' + CRLF +
                        'Referer:http://www.empresa.cl'+ CRLF +
                        'Accept-Languaje: es-cl' + CRLF +
                        'Content-Type: multipart/form-data: boundary=---------------------------' + Bound + CRLF +
                        'Accept-Encoding: gzip, deflate' + CRLF +
                        'Host:https://maullin.sii.cl/cgi_dte/UPL/DTEUpload'+ CRLF +
                        'Content-Length:' + IntToStr(F.Count) + CRLF +
                        'Cache_Control: no-cache' + CRLF );

pero me aparece un error de Access Violation.

[Ñuño Martínez]

El error 500 lo envía el servidor, y el problema está en el servidor. Él debería decir qué falla (cuál es esa condición inesperada). Si el programa servidor no lo has hecho tú, pregunta a quien lo hizo.

Por otro lado, la mitad o más de lo que añades en la propiedad "Headers" debes definirlo en otras propiedades, para que la clase construya correctamente la cabecera. Ten en cuenta que "Headers" es un TStringList, yo no añadiría los saltos de línea sino que añadiría cada línea por separado.

[vicvil]

Gracias ñuño por tu aporte

[vicvil]

Bueno después de probar varias cosas, entre ellas lo de synapse que amablemente me enseño ñuño, me decidí por probar nuevamente con indy y con ambos me daba el mismo resultado de error "HTTP/1.1 500". Así que me metí a la página web de la institución a la que debo enviar el archivo y me pude dar cuenta que la dirección no era la misma que aparece en el documento el cual ellos mismos redactaron, así que cambié el host y ahí resultó y ahora me envía el mensaje "HTTP/1.1 200 OK".
El problema que tengo ahora es que el stream que viene de vuelta viene encriptado y mi pregunta es ¿con que componente indy desencripto ese resultado?

[Casimiro Notevi]

Empezado por vicvil

El problema que tengo ahora es que el stream que viene de vuelta viene encriptado y mi pregunta es ¿con que componente indy desencripto ese resultado?

Crea un hilo nuevo con esa duda, y da detalles porque no somos adivinos