Delphi-Help

  • Increase font size
  • Default font size
  • Decrease font size
Главная

Счетчик посещений на Delphi

Оцените материал
(5 голосов)

Счетчик посещений на Delphi

Счетчики предназначены для учета количества посетителей на Ваш сайт. Кроме этого на счетчик можно возложить операции ведения статистики, учет хостов откуда пришли посетители и т.д.

Данный пример демонстрирует работу простого текстового счетчика с ведением списка IP адресов посетителей.

Сначала пропишем обработчик WebActionItem

procedure TWM.WMWebActionItemMainAction(Sender: TObject;
    Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
    f:TextFile;
begin
    Response.Content:=SetCounter; // Устанавливаем счетчик 
 
    // Записываем IP посетителя
    AssignFile(f,log_path);
    Append(f);
    Writeln(f,Request.RemoteAddr);
    CloseFile(f);
end;
Осталось реализовать функцию SetCounter 
function TWM.SetCounter: String;
var
    f:TextFile;
    count:Integer;
begin
    AssignFile(f,counter_path);
    Reset(f);
    // Считываем значение счетчика
    Readln(f,count);
    CloseFile(f);
    //Инкреминируем
    Inc(count);
    Rewrite(f);
    // Записываем
    writeln(f,count);
    CloseFile(f);
    Result:=IntToStr(count);
end;

И еще необходимо определить константы имен файлов const

    counter_path='counter.dat'; // Файл для значений счетчика
    log_path='counter.log'; // Файл для IP адресов

Для работы этого скрипта необходимо создать два файла, для ведения счета и для списка IP. В файле счета необходимо установить начальное значение счетчика, сделать это можно в любом текстовом редакторе.

 

Ещё вариант:

Счетчик посещений это первое, в чем нуждается популярный web сайт. Меня всегда интересует количество людей посетивших мой сайт. Я всегда заинтересован знать количество людей каждый день. И я всегда заинтересован знать, как выходные и праздники влияют на посещения.

Для отслеживания количества посетителей я просто создан однострочный файл, назвав его "counter", который содержит количество посещений. Единственная вещь, которая нам требуется, это простая CGI программа, которая читает этот файл, увеличивает на единичку и записывает обратно. Конечно, прекрасно при этом показывать посетителю эту информацию или в виде картинки или в виде простого текстового сообщения.

  {$APPTYPE CONSOLE}
  {$I-}
  var
    f: Text;
    i: Integer;
  begin
    System.Assign(f,'counter');
    reset(f);
    if IOResult = 0 then readln(f,i)
                    else i := 0;
    Inc(i);
    rewrite(f);
    writeln(f,i);
    close(f);
    if IOResult <> 0 then { skip };
    writeln('Content-type: text/html');
    writeln;
    writeln('<HTML>');
    writeln('<BODY>');
    writeln('<CENTER>');
    writeln('You are user <B>',i,'</B> of Dr.Bobs Delphi Clinic');
    writeln('</CENTER>');
    writeln('</BODY>');
    writeln('</HTML>')
  end.

Выше приведенная программа показывает текущее значение в виде текстового сообщения, которое выводится в отдельном фрейме:

  <HTML>
  <FRAMESET ROWS="64,*">
    <FRAME SRC=http://www.drbob42.com/cgi-bin/hitcount.exe? NAME="Head">
    <FRAME  SRC="guest.htm"NAME="Main">
  </FRAMESET>
  </HTML>

Это очень простое CGI приложение. Оно даже не получает ввода, просто преобразовывает удаленный файл на web сервере и возвращает динамическую страницу. Позвольте теперь сделать фокус на более сложном CGI приложении - таком которое требует ввода данных - например гостевой книге.

Прочитано 15971 раз
Другие материалы в этой категории: « Узнать информацию о прокси сервере
детское сенсорное оборудование

Авторизация



Счетчики