Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-03-2010
broly7 broly7 is offline
Miembro
 
Registrado: jun 2008
Posts: 43
Poder: 0
broly7 Va por buen camino
Wink Mostrar string de una página web

Hola buenas. Pues simplemente tengo 2 problemillas.

Introducción:
Quiero que mi aplicación descargue lo que es el html de una página web, de ahí pasarlo a un memo y ya teniéndolo en el Memo, buscar un string que se encuantra entre varios carácteres.

Problemas:
1-No se cómo descargar el texto html de una web tal como lo haría el firefox en "guardar como...html"

2-Problema al querer encontar un string metido entre caracteres.
(1 ejemplo del source del html "......<a>Foro</a>......Necesito mostrar en mi programa que hay metido entre <a> y </a>.)


Espero una pequeña ayuda, gracias.
Responder Con Cita
  #2  
Antiguo 30-03-2010
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 22
Caro Va por buen camino
Hola broly

Para tu primera pregunta, con un webbrowser puedes obtener el html como se explica en este hilo. También hay otras formas de hacerlo.

Sobre tu segunda pregunta, yo utilizaría la funciones Pos, PosEx (unit StrUtils) y Copy, el codigo quedaría mas o menos así:

Código Delphi [-]
var
 Texto : String;
 PosIni, PosFin : Integer;
begin
 PosIni := Pos('', Memo1.Text);
 PosFin := PosEx('', Memo1.Text, PosIni);
 Texto := Copy(Memo1.Text, PosIni+3, PosFin-PosIni-3);
 Showmessage(Texto);

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
  #3  
Antiguo 30-03-2010
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 22
Caro Va por buen camino
Hola de nuevo, para completar mi anterior respuesta, la otra forma que se sobre tu primera pregunta, acabo de responderla en este hilo.

Muevo tu hilo al foro de Internet.

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
  #4  
Antiguo 01-04-2010
broly7 broly7 is offline
Miembro
 
Registrado: jun 2008
Posts: 43
Poder: 0
broly7 Va por buen camino
Smile

Cita:
Empezado por Caro Ver Mensaje
Hola de nuevo, para completar mi anterior respuesta, la otra forma que se sobre tu primera pregunta, acabo de responderla en este

Muevo tu hilo al foro de Internet.

Saluditos
Hola te tengo que dar muchas gracias por tu rapida respuesta. Pero simepre surge algun problema, si por ejemplo tengo que ver el código de un foro, ese foro solo se puede visualizar estando logueado. En ese caso no me muestra la página como debería. Hay alguna forma de descargarse la página lanzandole un user y pass? o algo parecido.
Responder Con Cita
  #5  
Antiguo 01-04-2010
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 22
Caro Va por buen camino
Cita:
Empezado por broly7 Ver Mensaje
Hola te tengo que dar muchas gracias por tu rapida respuesta. Pero simepre surge algun problema, si por ejemplo tengo que ver el código de un foro, ese foro solo se puede visualizar estando logueado. En ese caso no me muestra la página como debería. Hay alguna forma de descargarse la página lanzandole un user y pass? o algo parecido.
Hola broly7, si se puede, haciendo un Post a dicha pagina, para ello debes pasar los parametros que se necesita (login , password y talvez alguno mas) ejemplo:

Código Delphi [-]
var
 Texto : String;
 sl : TStringList;
begin
 sl := TStringList.Create;
 try
  sl.Values['login'] := 'xxxxxx';
  sl.Values['password'] := 'xxxxx';
  .............................................
  Texto := IdHTTP1.Post('urlDelLogin', sl);
  Memo1.Text := Texto;
 finally
  sl.Free;
 end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
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
no mostrar pie de pagina en reporte usando compositereport JESUSNET Impresión 0 10-10-2007 19:35:05
Mostrar comilla simple dentro de un string Black_Ocean Varios 2 05-06-2007 04:30:43
Mostrar el numero total de caracteres en un string creus OOP 5 14-11-2006 23:32:16
como mostrar un string de 500 caracteres en una grilla afarenas Firebird e Interbase 2 18-07-2006 16:04:33
mostrar nueva pagina sarga PHP 2 28-06-2004 17:05:51


La franja horaria es GMT +2. Ahora son las 06:52:53.


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