Ошибка: Failed to parse the Currency Converter XML document. 
$35 652.29
|
Ошибка: Failed to parse the Currency Converter XML document. 
$2 275.12
|
Ошибка: Failed to parse the Currency Converter XML document. 
$60 010.20
|
Счетчик посещений на 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. В файле счета необходимо установить начальное значение счетчика, сделать это можно в любом текстовом редакторе.