idHTTP.get, String o StringList ?

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

[BlackDaemon]

woooww.. miren, acabo de despertar (8:51 a.m.) en mi pais y me encuentro con un chorro de respuestas, me las he leido todas y la verdad es que he aprendido mucho, ya se que podría ser cuando me pase otra vez el mismo error, y bien como dice el señor dec en si, se baja TODO el código fuente de la página, pero NO se puede mostrarlo, creo que al principio lo he dicho mal, no era la palabra correcta "bajarme", creo que dado el caso sería "mostrarlo" o visualizarlo, etc xD ya que en si ese es el problema.

Y como dice el señor dec

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.

La verdad es que si, "no es necesario mostrarlo en un Memo" y si, lo hacia por probar, y tambien tiene razón de que si busco algo (eso hago) lo puedo hacer "creo" directamente en el código html guardado en memória y sin necesidad de mostrarlo en un memo u otro componente.
En este momento no he probado de buscar algunas cadenas en todo el html sin necesidad de mostrarlo, pero estoy "casi" seguro que si se podrá hacerlo, ya que como muestra el señor dec SI esta hay el código fuente COMPLETO, pero no se puede mostrarlo.

Creo que ya esta solucionado mi problema, muchísimas gracias al señor dec y a Al, y a otros como seoane que siempre anda sando soluciones óptimas y trabaja muy bien con internet xD

pero me queda una duda que no se me ha aclarado, por que no se muestra todo el código fuente de la página en un memo ? Es por lo que dice el señor Al de lo que delphi toma el signo '?' como fin de string ? o a que se debe ?

saludos!

[[seoane]]

Vamos a ver, el problema es que la pagina suelta un #0 en medio del texto, sin venir a cuento (al menos yo no veo porque lo hace). El carácter #0 (o carácter nulo) se utiliza para indicar el final de una cadena de texto, en delphi, en C y en muchos otros lenguajes. Cuando tu le pasas ese texto a un memo windows interpreta el #0 como el final del texto, por eso no muestra el resto de la cadena.

Una solución rápida es sustituir el carácter #0 por, por ejemplo, un espacio:

Código Delphi [-]
uses WinInet;

function DownloadToStream(Url: string; Stream: TStream): Boolean;
var
  hNet: HINTERNET;
  hUrl: HINTERNET;
  Buffer: PChar;
  BytesRead: DWORD;
  i: Integer;
begin
  Result := FALSE;
  hNet := InternetOpen('agent', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if (hNet <> nil) then
  begin
    hUrl := InternetOpenUrl(hNet, PChar(Url), nil, 0,
      INTERNET_FLAG_RELOAD, 0);
    if (hUrl <> nil) then
    begin
      GetMem(Buffer,100*1024);
      try
        while (InternetReadFile(hUrl, Buffer, 100*1024, BytesRead)) do
        begin
          if (BytesRead = 0) then
          begin
            Result := TRUE;
            break;
          end;
          // Aqui sustituimos el caracter nulo por un espacio
          for i:= 0 to BytesRead - 1 do
            if Buffer[i] = #0 then
              Buffer[i]:= #32;
          Stream.WriteBuffer(Buffer^,BytesRead);
        end;
      finally
        FreeMem(Buffer);
      end;
      InternetCloseHandle(hUrl);
    end;
    InternetCloseHandle(hNet);
  end;
end;

// Por ejemplo
var
  Stream: TStringStream;
begin
  Stream:= TStringStream.Create('');
  try
    DownloadToStream('http://casacimar.com.bo/tarea.html',Stream);
    Memo1.Lines.Text:= Stream.DataString;
  finally
    Stream.Free;
  end;
end;

[BlackDaemon]

Hola Seoane:

Bueno, ahora si me ha quedado muy claro el asunto, y muy buena explicación y todo


saludos!

[dec]

Hola,

La madre que lo parió. Digo al #0, no a Domingo.