idHTTP.get, String o StringList ?

[[Al González]]

Creo que se trata del típico caso del carácter ASCII 0 (#0). Si una cadena (String) lo contiene, Delphi lo toma como fin de la misma al utilizar dicha cadena como expresión en cualquier sentencia.

En este caso a Demonio Negro le convendría usar la versión sobrecargada:

Código Delphi [-]
procedure Get(AURL: string; const AResponseContent: TStream);

Y obtener la respuesta en un flujo (stream) de tipo TMemoryStream, el cual es mejor que una variable String para manejar cualquier cadena de bytes textual o binaria.

Estoy casi seguro que esa es la situación que se presenta. No dejes de comentarnos cómo te fue.

Un abrazo binario.

Al González.

[dec]

Hola,

Ops... me temo que también probé de esa forma Al... a lo menos con un "TStringStream"... pero, no funcionó... tal vez porque no sea el "flujo" indicado...

[[Al González]]

Empezado por dec

Hola,

Ops... me temo que también probé de esa forma Al... a lo menos con un "TStringStream"... pero, no funcionó... tal vez porque no sea el "flujo" indicado...

Bueno, ya que andas despierto tan temprano , prueba con TMemoryStream y dime cuál es el valor de los dos últimos bytes del flujo.

[dec]

Hola,

Me temo que no voy a poder hacer lo que me dices Al... no llego a tanto. Lo que es seguro es que haciendo algo así:

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
var
  t: TMemoryStream;
begin
  t := TMemoryStream.Create();
  try
    IdHTTP1.Get('http://casacimar.com.bo/tarea.html',t);

    {...}

  finally
    t.Free();
  end;
end;

Efectivamente, en "t" contamos con el contenido del archivo que nos interesa: todo el contenido, es decir, que si guardo "t" en un archivo... en este se verá todo el código fuente del documento HTML en cuestión.

Ahora bien... ¿cómo poner en un Memo el contenido de "t"? Ni idea... con "Memo1.Lines.LoadFromStream(t)" no funciona tal como espero..., por ejemplo, aunque, me temo que pasará igual que antes: que el Memo no podrá mostrar más allá de donde se encuentra el problema en el archivo...

[dec]

Hola,

Pero hay que decir una cosa... supongamos esto:

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
var
  t: TStringStream;
begin
  t := TStringStream.Create('');
  try
    IdHTTP1.Get('http://casacimar.com.bo/tarea.html',t);

    if Pos('Copyright ©', t.DataString) <> 0 then
      ShowMessage('Eureka!');

  finally
    t.Free();
  end;
end;

O incluso simplemente esto:

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := IdHTTP1.Get('http://casacimar.com.bo/tarea.html');
  if Pos('Copyright ©', s) <> 0 then
    ShowMessage('Eureka!');
end;

En ambos casos exclamaremos eureka,... y lo que se está buscando está al final del contenido en cuestión... más allá del error, lo que quiere decir que al cabo, al cabo, estamos descargando todo el HTML, salvo que no podemos mostrarlo en un Memo... por ejemplo, pero,... tal vez esto sea lo de menos, en un momento dado.

O dicho de otro modo, tal vez nos baste con el código HTML descargado, y a partir de ahí trabajar, lo mismo no es necesario mostrarlo en un Memo, sino que el compañero lo hacía por "probar", pero, en la práctica, ya digo, a lo mejor no es necesario hacerlo, porque, si se busca algo... puede buscarse directamente en la cadena que contiene el HTML, no es preciso que esté en un Memo.

[[Al González]]

Tienes toda la razón David.

BlackDaemon: ¿servido?

Un abrazo.

Al González.

[[seoane]]

Vaya, aquí los dos maestros ya tuvieron en cuenta todo, la codificación, los ceros cabroncetes, la solución de los streams ... así no hay quien meta baza.

Yo lo que haría seria bajar la pagina a un stream, usando Indy, wininet o lo que prefieras, y luego utilizar utf8Decode para convertir la pagina de utf8 a una codificación normal.