Capturar la primera linea de una web

gdlrinfo · #1 07-11-2017

Estimados así como dice el titulo necesito capturar la primera línea de una web he intentado con el componente webbrowser pero no he podido tienen alguna pista de como hacerlo desde ya muchas gracias.-
atte.-

Casimiro Notevi · #2 07-11-2017

Seguramente será algo así:

Cita:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//ES" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">

gdlrinfo · #3 07-11-2017

Cita:

Empezado por Casimiro Notevi

Seguramente será algo así:

Muchas gracias por tu pronta respuesta no entiendo como aplicar eso en el código fuente usando el webbrowser perdón mi ignoracia .-

atte.--

gdlrinfo · #4 07-11-2017

A ver por ejemplo en www.google.com.ar la primera línea de la pagina es esta : <!doctype html><html itemscope="" itemtype="http://schema.org/WebPage" lang="es-AR"><head><meta content="IE=edge"

Bueno eso necesito capturarlo con Delphi para poder compararlo con otra pagina pero no se como hacerlo .-

atte.. Gonzalo-

roman · #5 07-11-2017

De entrada, requerir la primera línea de una web no tiene mucho sentido. El código HTML es indiferente a las líneas, de manera que una página puede contener todo el código en una sóla línea.

Dicho lo anterior, una forma sencilla de obtener el contenido de una página web es usando el componente TIdHTTP de la biblioteca Indy, que suele incluirse con Delphi. Obtener el código es tan sencillo como:

Código Delphi [-]var
  Contenido: String;

begin
  Contenido := IdHTTP1.Get('http://www.google.com.ar/');
end;

LineComment Saludos

gdlrinfo · #6 08-11-2017

Cita:

Empezado por roman

De entrada, requerir la primera línea de una web no tiene mucho sentido. El código HTML es indiferente a las líneas, de manera que una página puede contener todo el código en una sóla línea.

Dicho lo anterior, una forma sencilla de obtener el contenido de una página web es usando el componente TIdHTTP de la biblioteca Indy, que suele incluirse con Delphi. Obtener el código es tan sencillo como:

Código Delphi [-]var
  Contenido: String;

begin
  Contenido := IdHTTP1.Get('http://www.google.com.ar/');
end;

LineComment Saludos

Hola Roman muchas gracias por tu aporte te comento tomo la primer línea de una pagina especifica diseñada para eso ya que en la primer línea hay una fecha y ese es el dato que necesito comparar espero haberte despejado tu duda en cuanto a que sentido tenia desde ya muchas gracias por tu aporte ya voy a probar a ver que tal va .

andres_89 · #7 01-06-2022

Cita:

Empezado por roman

De entrada, requerir la primera línea de una web no tiene mucho sentido. El código HTML es indiferente a las líneas, de manera que una página puede contener todo el código en una sóla línea.

Dicho lo anterior, una forma sencilla de obtener el contenido de una página web es usando el componente TIdHTTP de la biblioteca Indy, que suele incluirse con Delphi. Obtener el código es tan sencillo como:

Código Delphi [-]var
  Contenido: String;

begin
  Contenido := IdHTTP1.Get('http://www.google.com.ar/');
end;

LineComment Saludos

Hola, buen día a todos, les comento que esa función ya no sirve en últimas versiones de Embarcadero, en mi caso yo utilizo Embarcadero builder C++, y el código que siempre utilizaba para obtener un IP o string de una página era:

Código:

IdHTTP1->Get("http://www.trvx.com/iplookup/")

Ahora ya no funciona, sabrán como puedo resolverlo para seguir obteniendo el IP?.
Saludos.

dec · #8 01-06-2022

Hola a todos,

Cita:

Empezado por andres_89

[...] Ahora ya no funciona, sabrán como puedo resolverlo para seguir obteniendo el IP?.

Cuando dices "no funciona", ¿qué quieres decir? ¿No aparece ningún error?

Casimiro Notevi · #9 01-06-2022

A mí me funciona, igual que esta: http://intitec.com/debug/getip.php y cualquier otra que devuelve la IP.

[escafandra] · #10 01-06-2022

Si no te gustan los componentes siempre puedes usar la API como en este ejemplo

Saludos.

andres_89 · #11 01-06-2022

Hola a todos, el error que me salía era este:

Cita:

HTTP/1.1 403 Forbidden

Buscando por ahí, lo pude solucionar cambiando el "UserAgent" en el control TIdHTTP:

El que viene por defecto:

Código:

Mozilla/3.0 (compatible; Indy Library)

Lo cambie por:

Código:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Y al final cambie a "True" la popiedad "HandleRedirects".

Ahora ya me funciona normal, estoy trabajando en el Embarcadero Community Edition, y lo tenía todo por defecto.

Gracias por sus comentarios.

dec · #12 02-06-2022

Hola a todos,

Cita:

Empezado por andres_89

Hola a todos, el error que me salía era este:

Buscando por ahí, lo pude solucionar cambiando el "UserAgent" en el control TIdHTTP:

El que viene por defecto:

Código:

Mozilla/3.0 (compatible; Indy Library)

Lo cambie por:

Código:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Y al final cambie a "True" la popiedad "HandleRedirects".

Ahora ya me funciona normal, estoy trabajando en el Embarcadero Community Edition, y lo tenía todo por defecto.

Gracias por sus comentarios.

Está bien apuntarlo, porque, en efecto, esto del "user agent" es un problema relativamente común, al menos en mi experiencia. Por eso te comenté de ver si había algún error... pensando, precisamente, en el "user agent"...

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Primera linea de un TMemo	Jose Roman	OOP	2	31-01-2013 18:22:35
Poner cursor en la primera linea de Memo.	Melissa_12	OOP	1	12-01-2013 19:40:23
Mostrar primera linea de un campo Tmemo	saldanaluis	Varios	4	29-12-2010 18:48:28
agregar una linea en la primera fila de un memo	ingabraham	Varios	1	08-07-2010 17:45:56
Grabar en primera linea en TMemo	brakaman	Varios	3	06-06-2007 23:46:08