[Dúvida] Pegar links de uma página

[shake]

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

[Hacker Xtreme]

tipo FF ? vish, deve ser difícil... vou dar uma conversada com uns amigos qualquer coisa eu posto aki ..

[OnlyOne]

tem um componente

TEmbeddedWebBrowser

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

'href'

ok ?

[shake]

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!

[Hacker Xtreme]

o rox_nxr disse que ia montar algo disso pra por aqui tc com ele, ele sabe fazer isso ^^

[shake]

Opa é de grande ajuda Xtreme, estou no aguardando!

Vlw a ajuda ai mano!

Abraços

[RC]

nda que uma função pos e uma função copy não resolvam...
vou montar algo e posto aki pra vcs

[Hacker Xtreme]

deve ser algo assim

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


Espero que de uma luz rsrs

[RC]

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


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

Rox_Nxr

[shake]

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

[Hacker Xtreme]

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

hehehe aproveitei xD