Счетчик посещений на 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. В файле счета необходимо установить начальное значение счетчика, сделать это можно в любом текстовом редакторе.
Теги:
Счетчик посещений
Добавлено: 31 Июля 2018 07:12:56 Добавил: Андрей Ковальчук Нравится 0
Добавить
Комментарии:
Нету комментариев для вывода...