FORUM DARKERS

Tecnologia & Informática => Programação => Delphi => Topic started by: shake on 02 de January , 2007, 01:17:20 PM

Title: [Dúvida] Pegar links de uma página
Post by: shake on 02 de January , 2007, 01:17:20 PM
Ai galera estou precisando de uma ajudinha aqui,

É o seguinte estou precisando de uma rotina que pegue todos os links contidos dentro de uma certa página de internet, pelo programa.

Já fiz várias pesquisas mas sem sucesso.
O máximo que eu achei foi uma função pra retirar a URL do navegador e talz!

Espero que possam me ajudar!!!
Desde já grato!

Abraços
Shake
Title: Re: [Dúvida] Pegar links de uma página
Post by: Hacker Xtreme on 02 de January , 2007, 10:36:12 PM
tipo FF ? vish, deve ser difícil... vou dar uma conversada com uns amigos qualquer coisa eu posto aki ..
Title: Re: [Dúvida] Pegar links de uma página
Post by: OnlyOne on 04 de January , 2007, 08:39:16 PM
tem um componente

TEmbeddedWebBrowser

q faz isso por vc ou no mais bastaria vc pegar o fonte do site e varrer por

'href'

ok ?
Title: Re: [Dúvida] Pegar links de uma página
Post by: shake on 04 de January , 2007, 09:40:58 PM
Vlw OnlyOne!

Foi uma mão na roda esse componente!

Abração pra vc e obrigado a todos pela ajuda!


PS: Se quiserem pode trancar o tópico!
Title: Re: [Dúvida] Pegar links de uma página
Post by: Hacker Xtreme on 04 de January , 2007, 10:46:21 PM
o rox_nxr disse que ia montar algo disso pra por aqui :) tc com ele, ele sabe fazer isso ^^
Title: Re: [Dúvida] Pegar links de uma página
Post by: shake on 05 de January , 2007, 10:39:38 AM
Opa é de grande ajuda Xtreme, estou no aguardando!

Vlw a ajuda ai mano!

Abraços
Title: Re: [Dúvida] Pegar links de uma página
Post by: RC on 06 de January , 2007, 03:08:50 PM
nda que uma função pos e uma função copy não resolvam...
vou montar algo e posto aki pra vcs
Title: Re: [Dúvida] Pegar links de uma página
Post by: Hacker Xtreme on 08 de January , 2007, 01:06:10 AM
deve ser algo assim

var
I : Integer;
Dados : String;
Valor : String;
begin
Valor := 'qualquer coisa aqui !! http://www.site.com.br/0'; (http://www.site.com.br/0';)
I  := Pos('http://', Valor);
Dados := Copy(Valor, I, I-1);
ShowMessage(Dados);


Espero que de uma luz rsrs
Title: Como prometido
Post by: RC on 11 de January , 2007, 02:52:51 AM
Como prometi ai vai um programa q eu codei, que captura os links da pagina e salva em um txt. Ele usa o componente WebBrowser.
Esta bem simples pois não tive mt tempo pra codar.
Não comentei o código, mas me coloco a disposição para esclarecer quaisquer dúvidas em relação ao mesmo.
Também to desenvolvendo um programa que limpa listas de sites.(Se quiser eu te passo a função principal).

Ai vai o link

http://rapidshare.com/files/11166219/Ca ... s.rar.html (http://rapidshare.com/files/11166219/Captura_Urls.rar.html)


"Aew xtreme, aproveita as férias na argentina!!!"

Rox_Nxr
Title: Re: [Dúvida] Pegar links de uma página
Post by: shake on 11 de January , 2007, 11:15:55 AM
Amigos agradeço a todos pela ajuda!

Rox_Nxr
 
Muito bom!
Era disso mesmo que eu precisava!
Ficou ótimo, agora vou estudar o código!
"não tive mt tempo pra codar" hehe imagine se tivesse então!!!

Quero sim!
Será muito bem vinda essa função!

Abraços
Title: Re: [Dúvida] Pegar links de uma página
Post by: Hacker Xtreme on 18 de January , 2007, 01:51:21 AM
"Aew xtreme, aproveita as férias na argentina!!!"

hehehe :P aproveitei xD