Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-11-2017
gdlrinfo gdlrinfo is offline
Miembro
 
Registrado: may 2007
Posts: 131
Poder: 18
gdlrinfo Va por buen camino
Capturar la primera linea de una web

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.-
Responder Con Cita
  #2  
Antiguo 07-11-2017
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Seguramente será algo así:
Cita:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//ES" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
Responder Con Cita
  #3  
Antiguo 07-11-2017
gdlrinfo gdlrinfo is offline
Miembro
 
Registrado: may 2007
Posts: 131
Poder: 18
gdlrinfo Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
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.--
Responder Con Cita
  #4  
Antiguo 07-11-2017
gdlrinfo gdlrinfo is offline
Miembro
 
Registrado: may 2007
Posts: 131
Poder: 18
gdlrinfo Va por buen camino
detalle:

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-
Responder Con Cita
  #5  
Antiguo 07-11-2017
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Responder Con Cita
  #6  
Antiguo 08-11-2017
gdlrinfo gdlrinfo is offline
Miembro
 
Registrado: may 2007
Posts: 131
Poder: 18
gdlrinfo Va por buen camino
Cita:
Empezado por roman Ver Mensaje
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 .
Responder Con Cita
  #7  
Antiguo 01-06-2022
andres_89 andres_89 is offline
Miembro
 
Registrado: dic 2013
Posts: 46
Poder: 0
andres_89 Va por buen camino
Cita:
Empezado por roman Ver Mensaje
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.
Responder Con Cita
  #8  
Antiguo 01-06-2022
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.119
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola a todos,

Cita:
Empezado por andres_89 Ver Mensaje
[...] 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?
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #9  
Antiguo 01-06-2022
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
A mí me funciona, igual que esta: http://intitec.com/debug/getip.php y cualquier otra que devuelve la IP.
Responder Con Cita
  #10  
Antiguo 01-06-2022
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.202
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Si no te gustan los componentes siempre puedes usar la API como en este ejemplo


Saludos.
Responder Con Cita
  #11  
Antiguo 01-06-2022
andres_89 andres_89 is offline
Miembro
 
Registrado: dic 2013
Posts: 46
Poder: 0
andres_89 Va por buen camino
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.
Responder Con Cita
  #12  
Antiguo 02-06-2022
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.119
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola a todos,
Cita:
Empezado por andres_89 Ver Mensaje
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"...
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

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


La franja horaria es GMT +2. Ahora son las 00:46:34.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi