VPF::Счётчик посещений - Форум программистов

Pahan007

Дата 2.2.2008, 20:23 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 10.11.2007

Репутация: нет
Всего: нет

Добрый вечер!
В интернете нашёл исходник простого счётчика посещений сайта написанного на Делфях, вот код
[code=delphi]
const
counter_path='counter.dat'; // Файл для значений счетчика
log_path='counter.log'; // Файл для IP адресов

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;

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;

Возникло пару вопросов: 1) procedure TWM.WMWebActionItemMainAction - это событие какого компонента, что-то ненашёл )
2) В файле counter_path='counter.dat'; нужно укзазать начальное значение счётчика с помощью текстового редактора, что там надо указать и в каком виде ?

Это сообщение отредактировал(а) Pahan007 - 2.2.2008, 20:29

SneG0K

Дата 2.2.2008, 20:58 (ссылка)

(нет голосов)

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54

1)ХЗ... это можеть быть самописная процедура!!! и в коде она не отображена
2)а ты пробовал просто вводить числа типа 1, 2 etc...

Urvin

Дата 2.2.2008, 23:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 1.6.2006

Репутация: нет
Всего: нет

Вообще глупое занятие на дельфях сайты писать. для этого уже есть три нормальных языка и ASP

счетчик можно обнулить такой процедурой:

Код


procedure DoNullCounter(counterfile: string);
var
  f:TextFile;
begin
  AssignFile(f,counterfile);
  Rewrite(f);
  writeln(f,0);
  CloseFile(f);
end;

Pahan007

Дата 3.2.2008, 16:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 10.11.2007

Репутация: нет
Всего: нет

Цитата

1)Сомневаюсь что она самописная
2)Для того чтобы это проверить надо откмпилировать исходник, а для этого надо решить пункт номер 1

Цитата

Вообще глупое занятие на дельфях сайты писать. для этого уже есть три нормальных языка и ASP

Так я ж непишу сайт, просто интересно стало интересно как будет выглядеть счётчик на делфях

lukas

Дата 3.2.2008, 17:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

хм... а почему вы решили что счетчик на дельфях должен выглядеть иначе... точно такая же система... только синтаксис другой... такое же делал на php, реализация задачи одна и та же...

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

Snowy

Дата 5.2.2008, 16:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Гм... А про одновременный доступ к файлам вам никто не рассказывал?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »