Twebbroweser zmiany lub wyszukanie

Witam mam kilka WebBrowserów i chciałbym funkcje lub procedure która kopiowała by tekst od pewnego wyrazu do pewnego wyrazu lub wczesniej daje html bez zmian i potem funkcja kopiuje zmiany na stronie bez znaczników hltv. I wklejało to memo. Ma ktos jakis pomysł?

GetHTML (znajdziesz na 4programmers)

Co do tekstu to :
Copy, Pos, Length

Słuchaj, jest strona i co godzine jest na niej cos innego np. gdy klikne buton to miało by to kopiować do memo1 to co przybylo lub się zmienilo.

Witam.

mam

WebBrowser1.Navigate(Edit1.Text);

chce aby link nie był z edit1.text tylko z memo np. z 3 lini.

Z memo lines sobie poradziłem, teraz funkcje która sprawdza, czy html się zmieniło(bede to miał w folderze bez zmian) i tak sie zmieniło to zmiany zapisuje w memo ale bez znaczników html.

function GetText(WebBrowser : TWebBrowser) : String;
begin
Result:=WebBrowser.OleObject.Document.documentElement.innerText;
end;

Jak już pobiore to jak wkleić to do memo?

Wejść w Memo i kliknąć Ctrl+V albo z pod prawego przycisku o ile nie podminiłeś menu na swoje. A tak poważnie to jeżeli dobrze zrozumiałem, chodzi Tobie o coś w stylu:

 Memo1.Text := GetText(UczSiePodstawChlopieWebBrowser);

No dzięki, działa tylko mam jeden już ostatni problem. Jak porównać text z teraz co bo zdobyłem do tego co mam w pliku np. który był wczesniej zapisany przeze mnie.

Wczytać go i porównywać znak po znaku o_O ?

Tak tylko powiedzmy zapisane strona jest taka:

XXXXXXXXXXX

YYYYYYYYYYY

A wyczytana

XXXXXXXXXXX
ZZZZZZZZZZZ
YYYYYYYYYYY

i ja chce żeby samo ZZZZZZZZZZ było wklejone do memo.

Wczytywać znak po znaku i sprawdzać różnicę pomiędzy poprzednim plikiem, a aktualnym o_O :P

A czy nie prosciej bybyło, że usuwa pierwsze X znaków i ostatnie Y znaków?

procedure TForm1.Button2Click(Sender: TObject);
var
S : String;
begin
  S := memo2.text;
  Delete(S, 1, 407);
end;

Mam taki buton i mi to nie działa, mógłby mi wskazać bład?

Kopiujesz tekst z Memo do S, modyfukujesz S i na tym się kończy działanie funkcji. Nic dziwnego, że nie widzisz żadnych efektów.

Witam, jak ukryć komponent twebbrowser? Zwykle ustawienie visible na false nie działa.

Coś musisz mieć namieszane, sprawdziłem u siebie na Windows 7 Ultimate 64 bity PL z SP1 oraz Delphi 7 Personal i ustawienie Visible na False powoduje, że TWebBrowsera nie widać. Może spróbuj zainstalować OCX w Delphi raz jeszcze.