Dudas con IdHTTP de Indy 9

[vicvil]

hola Ñuño, gracias por responder,
La verdad es que yo estoy recién empezando a usar el componente IdHTTP y la verdad que no es mucha o derechamente casi nula la ayuda que existe en cuanto usarlo como cliente, mas bien toda la ayuda que he visto es respecto a usarlo como servidor, así es que estoy a tumbos aprendiendo.
Lo que hago para ingresar los datos en la cabecera, es ingresar directamente en las propiedades del componente, los datos que allí aparecen, es decir por ejemplo:

IdHTTP1.Request.AcceptLanguage:= 'es-cl';
IdHTTP1.Request.ContentType:= 'multipart/form-data: boundary='+'---------------------------7d23e2a11301c4';
IdHTTP1.Request.AcceptEncoding:= 'gzip, deflate';

no ingreso todo a traves de la propiedad cumtomheaders (no sé si habrá que ingresar toda la cabecera por ahí o como lo estaba haciendo yo basta).
En cuanto a cookie, la verdad no he visto que este componente tenga por donde ingresarlo.
Y en cuanto al error, los servicios están constantemente abiertos y no sé si es el servidor o el cliente quien me lo arroja.

[roman]

Hace mucho que no trasteo con las Indy pero viendo sus propiedades y métodos yo indagaría los siguientes:

Código Delphi [-]
function Post(AURL: string; const ASource: TIdMultiPartFormDataStream): string; overload;

Esta es la modalidad del método Post que te permite mandar datos con múltiples partes (el XML iría como una de esas partes)

La clase TIdMultiPartFormDataStream parece ser la que te permite adjuntar el XML con su método AddFile.

También, la propiedad CookieManager del IdHttp parece ser la que te permitirá enviar la cookie que requieres.

// Saludos

[vicvil]

Muchas gracias Roman.
voy a probar y les cuento.

[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.