выводить - Поиск - Библиотека программиста

Поиск

Компонент Выводит на экран 3D текст

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

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

TAPIText

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

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

SSI - что, когда, как?

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

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

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

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

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

Запись и чтение чисел в 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 (сохранение и извлечение массива из потока памяти).

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

Грамотное использование БД MySQL

Дата: 23.11.2024 Модуль: Категория: Базы данных

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

Динамическое изменение кода при помощи JavaScript

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

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

Технология Bluetooth

Дата: 23.11.2024 Модуль: Категория: Железо и драйверы

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

Счетчик просмотров для каждой страницы сайта на 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 файл со структурой таблицы можно здесь

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

Все, что нужно знать о ListBox

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

Над каким элементом находится курсор мыши ?

Навигация в ListBox при множественном выборе

Как сделать так, чтобы при наведении на элемент, длина которого больше длины самого ListBox, появлялся Hint ?

Как узнать количество строк(записей) ?

Прокрутка ListBox на одну строку вниз

Удаление выбранных элементов в TListBox

Над каким элементом находится курсор мыши ?

Код

// поместите на форму Form1 компонент ListBox1 и напишите
// следующий обработчик события OnMouseMove:
void __fastcall TForm1::ListBox1MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
if(ListBox1->ItemAtPos(TPoint(X, Y), true) != -1)
Form1->Caption = ListBox1->Items->Strings[ListBox1->ItemAtPos(TPoint(X, Y), true)];
}

Навигация в ListBox при множественном выборе

Код

// разместите на форме ListBox1, установите у него
// свойство MultiSelect в true, добавьте в ListBox1
// несколько элементов, разместите также на форме
// кнопку Button1, в обработчике события OnClick
// которой напишите следующий код, который будет
// выводить сообщение для каждого элемента ListBox,
// выбранного пользователем:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for(int i = 0; i < ListBox1->Items->Count; i++)
if(ListBox1->Selected[i])
ShowMessage(ListBox1->Items->Strings[i]);
}

Как сделать так, чтобы при наведении на элемент, длина которого больше длины самого ListBox, появлялся Hint ?

Код

// Где нибудь на показывании формы :
Application->HintPause = 0;
Application->HintShortPause = 0;
Application->HintHidePause = 10000000000;
Application->OnShowHint = TIn4Form->DoShowHint;

void __fastcall TIn4Form::DoShowHint(System::AnsiString &HintStr, bool
&CanShow, THintInfo &HintInfo)
{
CanShow = true;
if (HintInfo.HintControl == ListBox1 )
{
if( Mouse->Capture )
{
CanShow = false;
return;
}
HintInfo.ReshowTimeout = 100;
/*HintInfo.HintColor = clAqua;// Changes only for this hint*/
TPoint pnt;
SIZE strsize;
int numstr = ListBox1->ItemAtPos(HintInfo.CursorPos,true);
if(numstr<0)
{
CanShow = false;
Application->HideHint ();
return;
}
HintStr = ListBox1->Items->Strings[numstr];
strsize = ListBox1->Canvas->TextExtent(HintStr);
if(strsize.cx<=ListBox1->ClientWidth)
{
CanShow = false;
Application->HideHint ();
return;
}
pnt.x = -1;
pnt.y =
int(HintInfo.CursorPos.y/ListBox3->ItemHeight)*ListBox1->ItemHeight - 3;
pnt = ListBox3->ClientToScreen(pnt);
HintInfo.HintPos.x = pnt.x;
HintInfo.HintPos.y = pnt.y;
HintInfo.HintMaxWidth = Screen->Width-pnt.x;
/*HintInfo.HideTimeout = 100;*/
}
}// Не забудьте поставить ShowHint у интересующего ListBox-а

Как узнать количество строк(записей) ?

Код

int i = ListBox1->Items->Count;

Прокрутка ListBox на одну строку вниз

Код

// Чтобы прокрутить содержимое списка (TListBox) на одну
// строку вниз, напишите следующий код:
SendMessage(ListBox1->Handle, WM_VSCROLL, SB_LINEDOWN, 0);

Удаление выбранных элементов в TListBox

Код

// Напишите следующий код:
for(int i = ListBox1->Items->Count-1; i >= 0; i--)
if(ListBox1->Selected[i])
ListBox1->Items->Delete(i);

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

Как вывести текст по окружности?

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

Изменяя аргумент iAngle, можно вращать начальную точку - центр. А изменяя iSector можно выводить текст как по окружности, так и по дуге (она задается в градусах). Наверняка многие видели такой эффектик. Какой-нибудь текст крутится вокруг центра и меняется его радиус - расстояние от центра до букв. И тут можно такое же сделать. Для этого надо вызывать эту процедуру по таймеру, где перед вызовом изменять iAngle и iR (переменные завести). Только перед каждым рисованием, надо в этой функции очищать уже нарисованное, чтобы не оставалось старого. А если это непосредственно на канве делается медленно и мигает, но надо рисовать на битмапе и оттуда изображение копировать.

Код

void DrawCircularText (TCanvas *Canvas, AnsiString asFontName, int iHeight, char *szText, int iAngle, int iR, int iCX, int iCY, int iSector)
{
LOGFONT lf; // создаем объект для нестандартного шрифта
HFONT hPrevFont, hFont;
int iPass = iSector/lstrlen(szText); // расстояние между буквами
ZeroMemory(&lf,sizeof(lf));
lf.lfCharSet=RUSSIAN_CHARSET; // для русского языка
lf.lfWeight = 900; // чтоб хоть видно было! Хотя можно убрать
for (int i=0;i<lstrlen(szText);i++)
{
lf.lfEscapement = 10*iAngle-(10*iPass*(i-1)); // угол
lstrcpy(lf.lfFaceName,asFontName.c_str()); // имя шрифта
lf.lfHeight = iHeight; // устанавливаем высоту
hFont = CreateFontIndirect(&lf); // создаем непосредственно шрифт
hPrevFont = SelectObject (Canvas->Handle, hFont); // делаем шрифт hFont
Canvas->TextOut (iCX+iR*sin((-180+iAngle-(i-1)*iPass)*3.14/180),iCY+iR*cos((-180+iAngle-(i-1)*iPass)*3.14/180),szText [i]); // выводим символ
hFont = SelectObject(Canvas->Handle, hPrevFont); // обратно меняем шрифт
DeleteObject (hFont); // удаляем
}
}

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

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

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

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

Управление сетями. Правила системного администратора

Дата: 23.11.2024 Модуль: Категория: Администрирование

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

Что такое uptime (аптайм) сервера и как его подсчитать

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

В мире информационных технологий такое понятие, как доступность сайта - это одна из самых важных составляющих. В Сети уже есть достаточное количество сервисов, с помощью которых можно проследить “доступность” (uptime - время работы). В данной статье рассмотрим три таких сервиса, один из которых работает на русском языке.

Бинoкль (http://www.binokl.info/) - изначально сервис разработан для хостинг-компаний, веб-мастеров и интернет-провайдеров. В зависимости от выбранного тарифного пакета проверка доступности (uptime'а) вашего сервера происходит через 15, 20 или 30 минут.

Если вам лень каждый раз заходить в раздел статистики и смотреть показатели работы хостинга, то можно настроить автоматическое уведомление на e-mail, когда ваш сервер будет недоступен. Предусмотрена и отправка отчетов за определенны интервал времени - раз в неделю, месяц.

Есть возможность установить у себя на сайте графическую кнопку, которая будет информировать о том, что ваш сайт находится под наблюдением сервиса "Бинокль". Единственный недостаток такой кнопки - это ее информативность лишь в популяризации сервиса, потому как числовых данных она не выдает.

mon.itor.us (http://mon.itor.us/) - uptime сервис от американской компании. Очень информативен и предлагает возможность контроля множества параметров. Информация может выводиться в виде графика, таблицы или диаграммы - это кому как удобнее и понятнее воспринимать. Также можно организовать получение уведомлений через e-mail. Среди недостатков - это удаленность сервера от просторов рунета, что, естественно, замедляет проверку хостинга на доступность.

Montastic (http://montastic.com/) - простой (можно сказать, что даже очень простой), но, тем не менее, удобный сервис для определения uptima'а. Здесь статистика отсутствует как таковая, и вообще есть только два состояния - работает и не работает. Но изюминка в способах того, как вы узнаете статус сайта - это и рассылка по электронной почте, подписка на RSS и даже Yahoo Widget.

Интерфейс, как и функциональность весьма прост, просто вводите адрес сайта, e-mail и все! В принципе если вы не заморачиваетесь подсчетом денег, которые вы потеряли пока ваш сайт не работает или у вас нет желания высылать подробные жалобные письма в адрес своего хостера, то этот сервис то, что вам надо.

Сделаем выводы:

mon.itor.us - следует использовать только в том случае, если ваш сайт (а желательно и вы тоже) живет близко к этому сервису, то он просто идеально подходит для вас, только следите чтобы ваш сайт работал всегда.

Montastic - этот сервис для тех, кому нужен ответ - работает/не работает сайт

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

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

Пример работы с сессиями

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

Все, что мы записываем в переменную $s (массив), будет доступно для чтения при следующем заходе посетителя на сервер. Про сессии, на самом деле, можно сказать очень много, чтобы описать возможности и особенноти.. Но если вы поюзаете пример и попробуете использовать в своих задачах, сами поймете.

PHP - Код


unset($s); // думаю, это писать не надо, но это явно не повредит

   session_start(); // это равносильно HEADERS() и SETCOOKIES(), до вызова функции

                    // ничего на экран не выводить

   session_register("s"); // объявляем, что $s является частью сессии





   if (isset($c) && $c=='clear') {

      // функция обнуления идентификации посетителя.

      unset($s);

      header("Location: sess.phtml");

      echo "clear...";

      exit;

   }



   echo "<a href=sess.phtml>обновить страницу</a><p>";

   echo "<a href=sess.phtml?c=clear>обнулить идентификацию</a><p>";



   if (!isset($s['count'])) {

      // Посетитель пришел впервые. Объявляем переменную, которая 

      // должны быть всегда. Это счетчик загрузок страницы.

      $s['count']=1;

   }

   else $s['count']++;

   echo "Вы загружили эту страницу раз: $s[count]<p>";



   // обработка формы, заполняемой посетителем

   // если введено имя, заносим в сессию

   if (strlen($name)>1) $s['name']=$name;



   if (!isset($s['name']))

      // если имя еще не введено, выводим форму для ввода

      echo "Вы новый пользователь. Пожалуйста,

      введите ваше имя:

      <form action=sess.phtml><input type=text name=name>

      <input type=submit></form>";

   else 

      // иначе пишем имя из сесси

      echo "Вы зарегистрированы под именем: $s[name]";

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

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

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