Ошибка: Failed to parse the Currency Converter XML document.
$22 484.48


Ошибка: Failed to parse the Currency Converter XML document.
$819.83


Ошибка: Failed to parse the Currency Converter XML document.
$1 900.87


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

 

Интересное

File Transfer Protocol:...
У меня нет выхода в Интернет, но есть доступ к почтовому ящику и возможность отсылать и получать письма. Можно ли как-нибудь скачивать из Интернета файлы, используя такой усеченный доступ? Да, вы...
Подробнее...
Установка WSUS на Windows...
Сегодня я подробно опишу установку Windows Server Update Services на Windows Server 2003 R2 (подробнее), с настроенным IIS (подробнее).Для инсталляции использовалась виртуальная операционная...
Подробнее...
Seagate eSATA External...
Внешние жёсткие диски — незаменимая в домашнем быту и на работе вещь. Резервные копии, архивы и перенос больших объёмов информации — тут не обойтись «флэшкой» А вот внешний...
Подробнее...
Основы файловой системы...
Сегодня мы заглянем в дебри файловой системы WindowsXP. Что такое файловая система — это организация хранения Ваших файлов на жестком (или любом другом диске). На разных видах дисков в разных...
Подробнее...
Взаимодействие с GLIBC
GLIBC — стандартная библиотека Си от GNU. Если вы программируете на ассемблере под Linux, то использование функций из этой библиотеки — хороший способ сократить размер программы и затраченные...
Подробнее...
Раскрутка сайта
Солидной компании, предлагающей товары и услуги потребителям, невозможно обойтись без собственного сайта. Наличие страницы в Интернете позволяет привлечь больше потенциальных клиентов из числа...
Подробнее...
27 проверенных способов...
Не составляйте список ваших имен и соответствующих регистраторов.Полагайтесь на напоминание регистратора, когда подходит время перерегистрации.Не продлевайте домен, пока не придет день окончания...
Подробнее...
Windows Defender
В декабре 2004 Microsoft приобрела компанию GIANT, и её уважаемую и популярную антишпионскую утилиту. Первая бета совместного продукта появилась в январе 2005, бета 2 была выпущена практически...
Подробнее...
Обслуживание компьютеров
Выбор компании-аутсорсера. Рано или поздно, но каждая уважающая себя фирма сталкивается с необходимостью пригласить к сотрудничеству аутсорсинговую компанию. Ах, да. Необходимо пояснить, что это...
Подробнее...
Использование программы...
Данная статья содержит сведения о бета-версии программного продукта корпорации Майкрософт. Информация в данной статье не является официальной и может быть изменена без предварительного...
Подробнее...