write - Поиск - Библиотека программиста

Поиск

FileStream

Дата: 23.11.2024 Модуль: Категория: Компоненты Delphi

Разместил: admin Адрес сайта: programmistu.info

Документ формата PDF и его индексация поисковыми системами

Дата: 23.11.2024 Модуль: Категория: Продвижение интернет-проектов

Разместил: admin Смотрим и оставляем комментарий »

SQL-запросы в Delphi

Дата: 23.11.2024 Модуль: Категория: Delphi и TurboPascal

Разместил: Globus Смотрим и оставляем комментарий »

Запись и чтение чисел в BLOB-поле

Дата: 23.11.2024 Модуль: Категория: Delphi и TurboPascal

Мне нужно записать серию чисел в файл Paradox в blob-поле. Числа получаются из значений компонент, размещенных на форме. Затем мне нужно будет считывать числа из blob-поля и устанавливать согласно им значения компонент. Как мне сделать это?

Вы можете начать свое исследование со следующего модуля:

Код

unit BlobFld;

interface

uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Buttons, DBTables, DB, ExtCtrls, DBCtrls,
Grids, DBGrids;

type
TFrmBlobFld = class(TForm)
BtnWrite: TBitBtn;
Table1: TTable;
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
LbxDisplayBlob: TListBox;
Table1pubid: TIntegerField;
Table1comments: TMemoField;
Table1UpdateTime: TTimeField;
Table1Real1: TFloatField;
Table1Real2: TFloatField;
Table1Real3: TFloatField;
Table1Curr1: TCurrencyField;
Table1Blobs: TBlobField;
Table1Bytes: TBytesField;
CbxRead: TCheckBox;
procedure BtnWriteClick(Sender: TObject);
procedure DataSource1DataChange(Sender: TObject; Field: TField);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
FrmBlobFld: TFrmBlobFld;

implementation

{$R *.DFM}

type
ADouble = array[1..12] of double;
PADouble = ^ADouble;

procedure TFrmBlobFld.BtnWriteClick(Sender: TObject);
var
i: integer;
myBlob: TBlobStream;
v: longint;
begin
Table1.Edit;

myBlob := TBlobStream.Create(Table1Blobs, bmReadWrite);
try
v := ComponentCount;
myBlob.Write(v, sizeof(longint));

for i := 0 to ComponentCount - 1 do
begin
v := Components[i].ComponentIndex;
myBlob.Write(v, sizeof(longint));
end;
finally
Table1.Post;
myBlob.Free;
end;
end;

procedure TFrmBlobFld.DataSource1DataChange(Sender: TObject; Field: TField);
var
i: integer;
myBlob: TBlobStream;
t: longint;
v: longint;
begin
if CbxRead.Checked then
begin
LbxDisplayBlob.Clear;

myBlob := TBlobStream.Create(Table1Blobs, bmRead);
try
myBlob.Read(t, sizeof(longint));
LbxDisplayBlob.Items.Add(IntToStr(t));

for i := 0 to t - 1 do
begin
myBlob.Read(v, sizeof(longint));
LbxDisplayBlob.Items.Add(IntToStr(v));
end;
finally
myBlob.Free;
end;
end;
end;

procedure TFrmBlobFld.FormShow(Sender: TObject);
begin
Table1.Open;
end;

procedure TFrmBlobFld.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Table1.Close;
end;

end.

Как мне в таблице Paradox скопировать массив целочисленных чисел в TBlobField и наоборот? Элементы массива являются точками графика данных, который я хочу выводить, если запись доступна.

Запишите массив в поток памяти и затем используйте метод TBlob LoadFromStream. Для извлечения данных используйте метод TBlob SaveToStream (сохранение и извлечение массива из потока памяти).

Разместил: Вадим Смотрим и оставляем комментарий »

Windows 2003 на домашнем компьютере

Дата: 23.11.2024 Модуль: Категория: Операционные системы (ОС)

Разместил: admin Смотрим и оставляем комментарий »

Визуальный HTML редактор своими руками

Дата: 23.11.2024 Модуль: Категория: Delphi и TurboPascal

Разместил: admin Смотрим и оставляем комментарий »

Работа с инифайлами (*.ini)

Дата: 23.11.2024 Модуль: Категория: Delphi и TurboPascal

Разместил: admin Смотрим и оставляем комментарий »

Создание гиперссылки в Delphi

Дата: 23.11.2024 Модуль: Категория: Delphi и TurboPascal

Разместил: Смотрим и оставляем комментарий »

Модификация даты expire для cookie

Дата: 23.11.2024 Модуль: Категория: ASP .NET

Процесс создания cookies на ASP очень прост. После создания этих файлов, они будут храниться на компьютерах у посетителей вашего сайта. Одним из основных параметров у cookies является дата истечения срока их действия, т.е. expire date. Получается, что у вас, как у программиста, в руках жизнь этих файлов. Еще отмечу, что если не указать дату expire для cookies, то они существуют до тех пор, пока пользователь не закрыл свой браузер.

Для примера:

Код

<%
1. Response.Cookies("siteName")= "DevTutorials"

2. siteName = Response.Cookies("siteName")

3. response.write ("Site Name is :" & siteName & vbnewline)

%>

Сейчас возьмите и откройте свой любимый бразуер (мой выбор в пользу огненного лиса Firefox :) ) и вызовите страницу с cookie.

Теперь просто удалите в коде строку (1), закройте браузер и еще раз вызовите код. Как вы можете видеть, уже имя сайта не отображается.

Все дело в том, что мы не модифицировали дату истечения срока действия cookie и при закрытии браузера они были потеряны.

Теперь рассмотрим код с добавленной датой expiration date:

Код

<%
0. Response.Cookies(("siteName").Expires= Now()+15

1. Response.Cookies("siteName")= "DevTutorials"

2. siteName = Response.Cookies("siteName")

3. response.write ("Site Name is :" & siteName & vbnewline)

%>

Теперь после закрытия браузера и повторного вызова кода можно видеть, что cookie по-прежнему продолжает существовать.

Разместил: admin Смотрим и оставляем комментарий »

Расширения PHP для работы с mp3

Дата: 23.11.2024 Модуль: Категория: PHP

Разместил: admin Смотрим и оставляем комментарий »

Средства для работы с конфиг-файлами Web-приложений

Дата: 23.11.2024 Модуль: Категория: PHP

Разместил: admin Смотрим и оставляем комментарий »

Рейтинг страниц сайта

Дата: 23.11.2024 Модуль: Категория: PHP

Эта статья является продолжением статьи о создании счетчика просмотров для каждой страницы сайта на php и MySQL (если Вы ее не читали, то обязательно прочтите, иначе ничего не поймете из ниже сказанного). В этой статья я решил продолжить тему и расширить возможности счетчика просмотров страниц.

Для увеличения возможностей и получения статистики просмотров страниц сайта к базовому php скрипту необходимо добавить несколько строк и своих функций. В частности нужно будет создать еще одну таблицу, которая имеет следующую структуру:

Код

CREATE TABLE `my_log_urls` (
`page_id` varchar(32) NOT NULL default '',
`page_url` text NOT NULL,
KEY `page_id` (`page_id`)
) ENGINE=MyISAM DEFAULT CHARSET=cp1251;

Как видно из структуры MySQL таблицы, она состоит всего из двух полей (page_id – хэш сумма md5() от urla страницы и page_url – url страницы) и индекса, установленного на поле page_id – для значительного ускорения поиска значения в таблице. И еще, я не стал изменять изначальную таблицу my_log, которая использовалась для подсчета количества просмотров страниц, а создал другую по одной простой, но очень весомой причине: чем больше данных в таблице – тем медленнее осуществляется поиск по таблице. А скорость работы php скриптов такого уровня не должна ощутимо влиять на работу сайта в целом. Ведь если у вас коммерческий и при этом очень посещаемый сайт, то тратить строго ограниченное процессорное время на второстепенные задачи просто невыгодно, ведь зачастую прибыль зависит от того, сколько человек сможет увидеть ваш сайт.

Теперь перейдем непосредственно к коду php скрипта. Я внес в него незначительные изменения, в основном это новые функции для работы с MySQL таблицей my_log_urls.

В counter.php внес следующие изменения:
добавляем функцию Default_Write_URL

PHP - Код


function Default_Write_URL($id, $url)

{

$id = addslashes($id);

$result = mysql_query ("INSERT INTO `my_log_urls` ( `page_id` , `page_url` ) VALUES ('".$id."' , '".$url."');");

return $result;

} В коде, заменяем

if (!searchID($unical_page_id_gid)) // существует ли запись с таким id

{

    Default_Write($unical_page_id_gid); // запись всех значений по умолчанию

} на

if (!searchID($unical_page_id_gid)) // существует ли запись с таким id

{

    Default_Write($unical_page_id_gid); // запись всех значений по умолчанию

    Default_Write_URL($unical_page_id_gid, $_SERVER['REQUEST_URI']);

}

В результате, получаем значительную экономию времени т.к. делаем всего одну запись в таблицу my_log_urls и одну в my_log, и при следующих запросах этой же страницы запрос к таблице my_log_urls выполняться не будет, т.к. запись уже существует в таблице my_log, следовательно и в таблице my_log_urls она то же есть.
Для подсчета рейтинга страниц сайта, предлагаю написать другой php скрипт, который будет по значениям просмотров страницы в таблице my_log брать значения в таблице my_log_urls. А результат представлять в виде таблицы с данными о просмотрах страниц, отсортированными по убыванию (от большего значения к меньшему).
Ниже приведен код php скрипта, который необходимо скопировать в созданный вами файл top.php:

PHP - Код




 

$INFO['sql_host'] = "localhost";

$INFO['sql_user'] = "username";

$INFO['sql_pass'] = "userpass";

$INFO['sql_database'] = "my_db";

 

/* Top 10 сегодня */

function MySQLReadToday()

{

$result = mysql_query ("SELECT * FROM `my_log` ORDER BY `today` DESC LIMIT 0 , 10 ") or print ("Query failed");

$new_arr = array();

while ($row = mysql_fetch_array($result, MYSQL_ASSOC))

{

    if (time()<$row['date']) // если сутки еще не прошли

    {

        $new_arr[] = $row;

    }

}

return $new_arr;

}

 

/* Top 10 за все время работы счетчика */

function MySQLReadAll()

{

$result = mysql_query ("SELECT * FROM `my_log` ORDER BY `all` DESC LIMIT 0 , 10 ") or print ("Query failed");

$new_arr = array();

while ($row = mysql_fetch_array($result, MYSQL_ASSOC))

{

    $new_arr[] = $row;

}

return $new_arr;

}

 

/* по хэш-сумме получить url страницы */

function MySQLRead_url($id)

{

$id = addslashes($id);

$result = mysql_query ("SELECT * FROM `my_log_urls` WHERE `page_id` LIKE '".$id."'");

return (array)mysql_fetch_assoc($result);

}

 

/* печать таблицы с данными */

function print_table($data)

{

echo <<<END

<table border="1" width="100%" align="center">

    <tr>

        <td rowspan="2" align="center" valign="middle">URL страницы</td>

        <td colspan="3" align="center" valign="middle" width="235">Просмотры страниц</td>

    </tr>

    <tr>

        <td height="35" align="center" valign="middle" width="125">дата доступа</td>

        <td height="35" align="center" valign="middle" width="55">сегодня</td>

        <td height="35" align="center" valign="middle" width="55">всего</td>

    </tr>

END;

foreach($data as $val)

{

    $tmp = MySQLRead_url($val['page_id']);

    $url = "<a href=&#092;"http://".$_SERVER['HTTP_HOST'].$tmp['page_url']."&#092;">http://".$_SERVER['HTTP_HOST'].$tmp['page_url']."</a>";

    $date = date("d.m.y H:i:s", $val['date']);

    $today = $val['today'];

    $all = $val['all'];

    echo <<<END

    <tr>

        <td valign="middle">$url</td>

        <td align="center" valign="middle">$date</td>

        <td align="center" valign="middle" width="55">$today</td>

        <td align="center" valign="middle" width="55">$all</td>

    </tr>

END;

}

echo "</table>";

}

 

$link = mysql_connect($INFO['sql_host'], $INFO['sql_user'], $INFO['sql_pass']); // Соединение с MySQL

mysql_select_db ($INFO['sql_database']); // Выбор базы данных

 

/* Самые популярные страницы сегодня */

$data = MySQLReadToday(); // получение данных из MySQL таблицы

echo "<h1>Самые популярные страницы в течении суток</h1>";

print_table($data); // печать таблицы с данными

 

/* Самые популярные страницы за все время */

$data = MySQLReadAll(); // получение данных из MySQL таблицы

echo "<h1>Самые популярные за все время</h1>";

print_table($data); // печать таблицы с данными

Данный php скрипт выводит 10 самых популярных страниц вашего сайта за последние сутки и за все время. В принципе, можно осуществлять вывод и большего числа страниц, изменив в php функциях MySQLReadAll и MySQLReadToday лимит считываемых из таблицы записей. А так же можно вместо самых популярных страниц увидеть самые непопулярные, изменив способ сортировки в этих же функциях с DESC на ASC.
Скачать данный php скрипт, вместе с модифицированным php скриптом подсчета просмотров страниц, можно по этой ссылке.

Разместил: Генадий Смотрим и оставляем комментарий »

Счетчик просмотров для каждой страницы сайта на php

Дата: 23.11.2024 Модуль: Категория: PHP

На некоторых сайтах часто можно увидеть следующую надпись внизу страницы или под статьями: "Всего просмотров xxx. Сегодня xx". На первый взгляд ничего особенного, но все равно, многим интересно, как это сделано.
В этой статье я попробую рассказать вам о том, как устроена данная статистика просмотров страниц сайта, на самом простом примере, написанном на php. Статистика просмотров страниц будет работать на связке MySQL + PHP. Основным отличием этой статистики от других будет то, что MySQL таблица будет занимать очень мало места, но при этом нельзя будет точно сказать какую именно страницу и сколько раз просмотрели. А все из-за того, что все url будут хешированны с помощью php функции md5(), что гарантирует почти 100% неповторяющихся id для каждой страницы сайта. Делается это только для ускорения работы php скрипта (при условии, что индексом является id страницы) и уменьшения размеров MySQL таблицы (за счет отсутствия длинных url).

MySQL таблица будет иметь следующую структуру:

Код

CREATE TABLE `my_log` (
`page_id` varchar(32) NOT NULL default '',
`all` int(11) NOT NULL default '0',
`today` int(11) NOT NULL default '0',
`date` int(11) NOT NULL default '0'
) ENGINE=MyISAM DEFAULT CHARSET=cp1251;

page_id – уникальный id для каждой страницы сайта сгенерированный php функцией md5().
all – значение всех просмотров данной страницы.
today – просмотров страницы сегодня.
date – дата возвращаемая php функцией time() + 24 часа

Для правильного учета посещений страниц значение поля date будет изменяться, тогда, когда текущая дата будет больше той, что указанна в таблице. В этот же момент будет происходить и обнуление счетчика просмотров страницы за прошедшие сутки.

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

PHP код скрипта статистики просмотров страниц сайта:

PHP - Код




 

/* данные для соединения с MySQL */

$INFO['sql_host'] = "localhost";

$INFO['sql_user'] = "username";

$INFO['sql_pass'] = "userpass";

$INFO['sql_database'] = "my_db";

 

/* проверка, есть ли запись в MySQL */

/* таблице с таким id или ее нет */

function searchID($id)

{

$result = mysql_query ("SELECT * FROM `my_log` WHERE `page_id` LIKE '".$id."'");

$num_rows = mysql_num_rows($result);

if ($num_rows>0)

{

    return True;

}

else

{

    return False;

}

}

 

 

/* Читает запись из MySQL таблицы */

/* возвращает ассоциированный массив */

function MySQLRead($id)

{

$id = addslashes($id);

$result = mysql_query ("SELECT * FROM `my_log` WHERE `page_id` LIKE '".$id."'");

return (array)mysql_fetch_assoc($result);

}

 

/* Обновление времени для конкретной записи */

function UpdateTime($id, $time)

{

$id = addslashes($id);

$time = addslashes($time);

$result = mysql_query ("UPDATE `my_log` SET `date` = '".$time."' WHERE `page_id` = '".$id."'");

return $result;

}

 

/* Обновление счетчиков для записи с указанным id */

function UpdateCounders($id, $all, $today)

{

$id = addslashes($id);

$time = addslashes($time);

$result = mysql_query ("UPDATE `my_log` SET `all` = '".$all."',`today` = '".$today."' WHERE `page_id` = '".$id."'");

return $result;

}

 

/* Запись всех значений "По умолчанию" */

function Default_Write($id)

{

$id = addslashes($id);

$result = mysql_query ("INSERT INTO `my_log` ( `page_id` , `all` , `today` , `date` ) VALUES ('".$id."' , 1 , 1 , '".(time()+60<img src="images/smilies/60.gif" border="0"><img src="images/smilies/24.gif" border="0">)."');");

return $result;

}

 

$unical_page_id_gid = md5($_SERVER['REQUEST_URI']); // получение md5() хэша из url страницы

 

$link = mysql_connect($INFO['sql_host'], $INFO['sql_user'], $INFO['sql_pass']); // Соединение с MySQL

mysql_select_db ($INFO['sql_database']); // Выбор базы данных

 

if (!searchID($unical_page_id_gid)) // существует ли запись с таким id

{

    Default_Write($unical_page_id_gid); // запись всех значений по умолчанию

}

else // если не существует

{

$tmp = MySQLRead($unical_page_id_gid); // считаем значения

$all = $tmp['all'] + 1;

$today = $tmp['today'] +1;

if (time()>=$tmp['date']) // если сутки с момента записи прошли

{

    UpdateTime($unical_page_id_gid, (time()+60<img src="images/smilies/60.gif" border="0"><img src="images/smilies/24.gif" border="0">)); // обновим дату

    UpdateCounders($unical_page_id_gid, $all, 1); // обновим счетчики

}

else // если еще нет

{

    /* обновим счетчики */

    UpdateCounders($unical_page_id_gid, $all, $today);

}

/* устанавливаем константу с текущими значениями счетчиков */

define("Today_and_all_counter", "Всего просмотров этой страницы: $all. Сегодня: $today");

}

 

mysql_close($link); // Разрываем соединение с MySQL

Вот в принципе и весь php скрипт статистики просмотров страниц сайта. Для того, что бы он работал, его нужно "подключить" к нужному вам скрипту, например к index.php, добавив в index.php строчку include(' counter.php ');. А в том месте, где должно выводиться сообщение о том, сколько человек просмотрело данную страницу – строчку echo Today_and_all_counter;.
Скачать данный php скрипт статистики просмотров страниц сайта и MySQL файл со структурой таблицы можно здесь

Разместил: Генадий Смотрим и оставляем комментарий »

Создание таблиц. Ключи и индексы

Дата: 23.11.2024 Модуль: Категория: С++, Visual C++

Давайте определимся с номенклатурой. Поле - это ячейка в таблице. Запись - набор из полей. Так вот, существуют разные типы полей - обычные, индексные и ключевые. Обычные поля - просто данные. Индексное поле - поле, по которому данные сортируются. Ключевое - поле, значение которого уникально. В общем-то четкого разделения нет. Ведь программа базы данных может сортировать таблицу и по обычным полям, а индексное поле может быть также уникальным.

В BDE достаточно логично поределена структура построения полей и их типов. Для этого имеются классы TxxxDef (три икса здесь обозначают подстановку, а то мало ли что Вы подумаете ;)), произведенные ото абстрактного базового класса TNamedItem. В компоненте TTable имеются и соответствующие свойства

TIndexDefs
TFieldDefs

Как и следовало предполагать, эти свойства содержат в себе определения индексных и обычных полей. Здесь нет свойства типа TKeyDefs, потому что в таблицах типа Парадокс индексные поля могут быть сами по себе уникальны. За счет этих свойств и задаются параметры таблицы, ее сетка. Создание таблицы довершает метод CreateTable.

Теории было много, теперь практика. Вот пример, честно скажу, взятый их Хелпа и перекомментированный автором (то есть мной).

Код

if (!Table1->Exists) // Don't overwrite an existing table
{
Table1->Active = false; // Компонент TTable должен быть отключен.

// Опишем параметры таблицы.
Table1->DatabaseName = "BCDEMOS";//это по желанию
Table1->TableType = ttParadox; //как обычно, Парадокс.
Table1->TableName = "CustInfo";//имя создаваемой таблицы.

// Опишем поля и их типы.
Table1->FieldDefs->Clear();
TFieldDef *pNewDef = Table1->FieldDefs->AddFieldDef();
pNewDef->Name = "Field1";// имя, обычной строкой.
pNewDef->DataType = ftInteger;//то, о чем я говорил.
//установим, является ли поле обязательным
pNewDef->Required = true;
//еще одно поле.
pNewDef = Table1->FieldDefs->AddFieldDef();
pNewDef->Name = "Field2";
pNewDef->DataType = ftString;
//определим размер поля.
pNewDef->Size = 30;
// Теперь взялись за индексы
Table1->IndexDefs->Clear();
/* Первый индекс безымянный, поскольку это основной индекс Парадокса. */
Table1->IndexDefs->Add("","Field1", TIndexOptions() <<ixPrimary << ixUnique);
Table1->IndexDefs->Add("Fld2Index","Field2", TIndexOptions() << ixCaseInsensitive);

// Ну и наконец, создаем таблицу.

Table1->CreateTable();

Это все еще объяснять и объяснять. Но, я надеюсь, общая логика понятна.

Разместил: admin Смотрим и оставляем комментарий »

Стандартные диалоговые панели

Дата: 23.11.2024 Модуль: Категория: С++, Visual C++

Разместил: admin Смотрим и оставляем комментарий »

Всего 30 на 2 страницах по 15 на каждой странице

1 2 >>

[ Назад | Начало | Наверх ]

Внимание! Если у вас не получилось найти нужную информацию, используйте рубрикатор или воспользуйтесь поиском