Wyszukiwanie linków

[beherit]

Chciałbym z pewnego tekstu, akurat mam ten tekst w zmiennej AnsiString, usunąć linki do stron WWW. I tu nasuwa się mój problem... Czy jest jakaś prosta metoda aby sprawdzić czy dany ciąg tekstu jest linkiem do strony WWW?

[Miroo_007]

Kod: Zaznacz cały

AnsiString tekst = "http://cos.tam.pl";
if(tekst.Pos("http://") >= 0) {
    try {
           HTTP1->Get(tekst);
    }
    catch(Exception &e) {
          Label1->Caption("Tekst nie jest linkiem do strony: "+e.Message);
    }
}

P.S. Należy "dokleić" kontrolkę TIdHTTP.

[Miroo_007]

Dodam jeszcze, że sprawdzenie czy to jest rzeczywiście link do strony trochę schodzi. Max 30 sekund oczekiwania na odpowiedź ze strony serwera.

[Cyfrowy Baron]

Przykład kodu parsującego strony w poszukiwaniu linków zamieściłem w serwisie Cyfrowy Baron, w dziale: porady sieć - internet, porada: wyciąganie adresów URL ze stron internetowych.
Po niewielkiej modyfikacji kodu zamiast wyciągać adresy możesz je usuwać.