Ayuda con incompatibilidad del Post de TIdHTTP de Indy 8 con Indy 10

[rolandoj]

Empezado por xio

Hola de nuevo, otra vez estoy por aqui, no se si estoy en lo cierto pero he leido algo por ahi y creo que tiene algo que ver.

Comienzo, estoy intentado añadir en una aplicacion echa en Delphi 4 la opcion de enviar SMS a moviles a través de internet, y he leido por ahi que con Indy se puede. Mientras me comentais algo sigo buscando como loca por internet a ver si doy con algo.

Un saludo!!

PD: El envio de mail va D.P.M!!! Gracias!!!

Hola xio,

La verdad nunca he hecho algo así con Delphi 4. Me dá curiosidad y yo también voy a averiguar. Esta noche lo haré y entonces compartiremos experiencia.

Por otra parte, de acuerdo a la guía de estilo, este tema debería ir en un hilo diferente. Te sugiero abrirle uno, o si ya lo has hecho, envíame aquí un enlace al mismo.

[xio]

Ok, dentro de la seccion Foros en la parte de Internet ya hay un hilo abierto con Enviar SMS, y postee por ahi. Colgue el ultimo post por aqui por que como expliqué lei en un sitio de internet que habia que utilizar algun componente Indy, espero que nadie lo tome a mal.

Un saludo! Ya hablamos por el otro hilo OK!

[Bauhaus1975]

Hola, vuelvo a recuperar este hilo.
Resulta que yo también he tenido estos problemas de incompatibilidad. Estaba usando Delphi 6, y ahora trabajo sobre BStudio 2005 para Win32.

Tengo un procedimiento para capturar páginas por HTTP, mediante GET o POST, y he usado los consejos que se detallan al principio de este post para adaptarlo a mi nuevo IDE.

Resulta que no sé cómo hacer que los métodos GET o POST puedan aceptar una URL que venga en una variable. Tal y como en el ejemplo de código que adjunto estoy haciendo...
Gracias y un saludo.

Código Delphi [-]
function captureHTTP(URL, strParams:String; objCont:TComponent; method:String):String;
Var
  aStream: TMemoryStream;
  Params: TStringStream ;
  HTTP: TidHTTP;
begin
  HTTP := TIdHTTP.Create(objCont);
  HTTP.HandleRedirects := true;
  Params := TStringStream.create('');
  aStream := TMemoryStream.create;
  if (method = 'post') then
 HTTP.Request.ContentType := 'application/x-www-form-urlencoded';
  try
    with HTTP do begin
      try
        if (method = 'post') then
            HTTP.Post(URL, Params, aStream)
        else
            HTTP.Get(URL+strParams,aStream);
        end;
      except
        on E: Exception do
          showmessage('Error al intentar hacer HTTP REQUEST: ' + E.Message);
      end;
    end;
    aStream.WriteBuffer(#0' ', 1);
  except
  end;
  result := PChar(aStream.Memory);
end;

[Bauhaus1975]

Parece que lo he solucionado, usando una variable intermedia.
Gracias de todas maneras.