следующая тема »

[18 Июль 2025, 19:08:40]

Новости, реклама:

[18 Июль 2025, 19:08:40]

Новости, реклама:

[Lanser]

www.MyCounter.com

 Либо самому написать, в 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. В файле счета необходимо установить начальное значение счетчика, сделать это можно в любом текстовом редакторе.

 Успехов!