ďťż

Ładny brzuch

Cześć

Już pół dnia (dosłownie) się bawie by zrobić sprawdzanie czy na stronie zaszła jakaś zmiana (widoczna)...
Nic nie wymyśliłem konkretnego - jedynie:
Listbox1.Items.Text:=GetText(Mozilla1); - to raz

Mozilla1.Navigate('dana strona - forum'); //w timerze interval=15000
Listbox2.Items.Text:=GetText(Mozilla1); //to też
//Mozilla1 to WebBrowser

a uprzednio funkcja GetText:
function GetText(Mozilla1 : TWebBrowser) : string; begin Result:=Mozilla1.OleObject.document.documentElement.innerText; end;

i na koniec:
if Form5.listbox2.ItemIndex>Form5.listbox1.ItemIndex+1 then application.messagebox('Zmiana','Na forum jest nowy post',MB_IConerror);

tylko że nigdy nie wyświetlił tego błędu nawet jak ktoś dopisał cos, a jeśłi zrobiłem:

if Form5.listbox2.ItemIndex<>Form5.listbox1.ItemIndex then application.messagebox('Zmiana','Na forum jest nowy post',MB_IConerror);

to wyświetlał zawsze że jest nowy post choć w temacie nic się nie zmieniło...
Więc ja już całkiem nie wiem co z tym zrobić... Czy macie jakiś sposób (dosłownie jakikolwiek - aby działał) żeby rozróżnić czy ktoś coś dopisał czy nie?

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
  •