WebBrowser - приход нового сообщения

[MORPEH]

Здравствуйте. Есть некий чат. Парсю его так:

edt1.Lines.Text:=WebBrowser1.OleObject.document.body.InnerTEXT;

Задача состоит в том, что в него приходят некие сообщения лично мне, и я бы хотел их видеть появлением некого окна, допустим как QIP.
пример сообщения:

[14:38:25] Гость %( Маркиз ) текст сообщения

Как сделать так, что бы показывались только новые сообщения, а не все.

помогите новичку

[Stilet]

Например запоминать последнюю [14:38:25], находить ее и брать только то что ниже этой даты в документе.

[MORPEH]

Сообщение от Stilet

Например запоминать последнюю [14:38:25], находить ее и брать только то что ниже этой даты в документе.

можно пример, в том-то и дело, что время изменяется

[Johnson]

искать примеры по словам "парсинг", "парсинг строк", "парсинг HTML", "всплывающие уведомления", "всплывающие окна" и тому подобное... в инете и конкретно на это сайте МОРЕ инфы...

можно пример, в том-то и дело, что время изменяется

запоминаете время ПОСЛЕДНЕГО пришедшего сообщения, и ищите после него новые сообщения.

[MORPEH]

В чем сложность сделать пример и не отсылать в гугл и яндекс.

Если бы нашел бы, не писал бы пост. Давайте уважать все таки

[Johnson]

сложность - нахожусь не на работе, нет ни компилятора не исходников. парсеры пишутся под конкретные сайты. парсеры пишется платно (за деньги*), и не за 5 минут...

конкретная помощь - поищите описания функций Pos и PosEx


* - намек понятен?

[MORPEH]

Сложность не в парсере, я уже написал как сделать.

именно показать есть ли новое сообщение или нет.

Допустим в строчку Memo добавляем такую же строчку, и мы должны узнать об этом. И где после этого парсер? Чисто тупо просто сказать есть в мемо данная новая фраза или нет

[MORPEH]

var
  Form1: TForm1;
  flag:boolean;
implementation

{$R *.dfm}

procedure TForm1.Memo1Change(Sender: TObject);
begin
if (pos('yo',memo1.Text)>0) and (not flag)then begin showmessage('!'); flag:=not flag; end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  flag:=false;
end;

Но показывает постоянно

[Johnson]

1 - по таймеру сравнивать длину текста в мемо.
2 - по таймеру сравнивать количество строк в мемо...

для любой из этих целей создаешь глобальную переменную типа Cardinal
в неё записываешь количество символов/строк...

в каждой интерации таймера делаешь следующее:

- считаешь количество строк мемо.
- сравниваешь со счетчиком.
- если разница :
--- записываешь новое количество в счетчик
--- выводишь сообщение о новом посте
- если не разница - выходишь из процедуры

элементарный алгоритм совсем.... чему вас на информатике учили, небось ворду с экселем *покачал головой*

procedure Timer1Timer(Sender:TObject);
begin
 if memo1.lines.count<>GlobalCount then begin
  GlobalCount:=Memo1.Lines.Count;
  ShowMessage('Новая соапщения насяника!');
 end else Exit;
end;