Что нового
  • Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

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

Lomanu4 Онлайн

Lomanu4

Команда форума
Администратор
Регистрация
1 Мар 2015
Сообщения
1,185
Баллы
155
Счетчики предназначены для учета количества посетителей на Ваш сайт. Кроме этого на счетчик можно возложить операции ведения статистики, учет хостов откуда пришли посетители и т.д.

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