PHP Delphi CSS HTML JavaScript Perl API ASP MySQL XML С++ VBasic WEB разработка *NIX CouchDB Hack Python
Главная Статьи Delphi Счетчик посещений на Delphi
Главная
 Главная  Контакты
 
Программинг
Статьи Книги ЧаВО
 
xBOOKi
Fresh Books Операционки Сети
 
Поиск
-------
 
Counters
Яндекс цитирования
Rambler's Top100
-------
 
CryptDisk.4h
Программа которая позволяет создать виртуальный шифрованный логический диск.

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



Свежее
Резервное копирование rsync-ом
DNS Amplification (DNS усиление)
Алгоритм Шинглов — поиск нечетких дубликатов текста
Metasploit Framework. Обзор
Использование CouchDB
-------



 
Copyright © 2003-2009   Frikazoid.
Rambler's Top100