[AQUARIUS]

Помогите плз написать програмку или подскажите где есть уже готовый аналог (хотя конечно лучше что бы я сам попытался ее написать и немножко разобратся), которая бы периодически проверяла бы один сайт и при появлении определенной надписи на нем подавала сигнал. Тоесть задача: периодически сканить сайт и искать фразу (надпись), если такая фраза (надпись) на нем появилась то подать сигнал.
В каком мне направлении двигатся ???
Заранее благодарен за ответы

[PhoeniX]

Тоесть, задача следующая.
1. Загрузить страницу сайта.
2. Если на ней есть (например) "Привет", показать сообщение.
3. Через некоторое время перейти к п. 1

1 - Ищи функцию "GetInetFile", в Delphi World была.
2 - Здесь тебе поможет StringList. прото вызываешь

Код:

StringList.LoadFromFile('C:/Temp/page.htm');
if pos('Привет',stringlist.Text)>0 then
  ShowMessage('Привет!');

3 - Юзай таймер.

[PhoeniX]

Избавлю тебя от поиска:

Код:

uses Wininet;

function GetInetFile(const fileURL, FileName: string): boolean;
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: file;
  sAppName: string;
begin
  Result := False;
  sAppName := ExtractFileName(Application.ExeName);
  hSession := InternetOpen(PChar(sAppName),
  INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0);
    try
      AssignFile(f, FileName);
      Rewrite(f,1);
      repeat
        InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
        BlockWrite(f, Buffer, BufferLen);
      until
        BufferLen = 0;
      CloseFile(f);
      Result := True;
    finally
      InternetCloseHandle(hURL);
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

С тебя плюсик.