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

Поиск

OpenGL. Трехмерная графика и язык программирования шейдеров

Дата: 28.11.2024 Модуль: Категория: Программирование игр

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

OpenGL. Профессиональное программирование трехмерной графики на C++

Дата: 28.11.2024 Модуль: Категория: Программирование игр

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

Observer

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

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

Д.Хорвиц - Unix-системы

Дата: 28.11.2024 Модуль: Категория: Unix, Linux,FreeBSD

Все об информационных центрах, непрерывно работающих в режиме 24/7, то есть 24 часа в сутки и 7 дней в неделю без отключений, и подчас территориально разнесенных, что делается в целях безопасности. О поддержании жизнедеятельности и организации вычислительного процесса используемых на таких центрах Unix-систем, начиная с фальшполов, монтажа оборудования в стойках, кабельной разводки, инсталляции программного обеспечения и заканчивая развертыванием систем, их передаче в эксплуатацию, мониторингом и сопровождением, а также о взаимодействии с многочисленными пользователями. Рассмотрены вопросы планирования ваших потребностей в аппаратных средствах и программном обеспечении в зависимости от сферы деятельности, создания собственного информационного центра и аренды на объектах совместного размещения. Предоставляется информация о специфических пакетах программного обеспечения, характерных именно для подобных центров. Перечислены основные виды аварийных ситуаций, угрожающих информационному центру. Даны рекомендации по сведению к минимуму влияний перебоев в подаче электроэнергии. Книга пригодна для всех известных разновидностей Unix, Linux и OpenBSD. Все примеры работы с инструментальными средствами приведены для Solaris и Red Hat Linux.

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

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

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

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

Трехмерный тетрис

Дата: 28.11.2024 Модуль: Категория: C++

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

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

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

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

Воспроизводим Flash-файл в своем приложении

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

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

SQL-запросы в Delphi

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

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

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

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

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

Изображения и InterBase BLOB-поля

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

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

Создаем и удаляем поля во время выполнения программы

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

TField-компоненты (или, точнее, потомки компонента TField с соответствующим типом поля) могут создаваться во время проектирования программы с помощью Fields Editor (редактора полей). Fields Editor вызывается двойным щелчком на иконке компонента TTable или TQuery. Но потомки TField могут быть созданы и удалены и в режиме выполнения программы.

Потомки компонента TField (такие как, например, TStringField, TIntegerField и др.) создаются методом Create для того типа потомка TField, который подходит к соответствующему полю набора данных. Другими словами, для поля строкового типа текущего набора данных необходимо вызвать метод Create класса TStringField, являющегося потомком TField. Методу Create необходим один параметр - владелец потомка TField, расположенный на TForm. После создания компонента наследника TField для того, чтобы новый экземпляр объекта мог установить связь с необходимым полем набора данных, необходимо установить несколько ключевых свойств. Вот их список:

FieldName: имя поля в таблице

Name: уникальный идентификатор компонента-потомка TField.

Index: позиция компонента-потомка TField в массиве TFields (свойство Fields компонента TTable или TQuery, с которым будет связан TField).

DataSet: компонент TTable или TQuery, с которым будет связан TField.

Приведенный ниже код демонстрирует способ создания TStringField. TForm названа Form1 (здесь ссылка на переменную Self), активный набор данных TQuery имеет имя Query1 и поле, для которого создается компонент TStringField, расположено в таблице dBASE с именем CO_NAME. Новый потомок TField будет вторым TField в свойстве-массиве Fields компонента Query1. Имейте в виду, что набор данных, связанный с новым потомком TField (в нашем случае Query1), перед добавлением TField должен быть закрыт, а после добавления вновь открыт.

Код

procedure TForm1.Button2Click(Sender: TOObject);
var
T: TStringField;
begin
Query1.Close;
T := TStringField.Create(Self);
T.FieldName := 'CO_NAME';
T.Name := Query1.Name + T.FieldName;
T.Index := Query1.FieldCount;
T.DataSet := Query1;
Query1.FieldDefs.UpDate;
Query1.Open;
end;

Вышеприведенный пример создает новый TStringField с именем Query1CO_NAME.

Для удаления существующего потомка TField достаточно вызова метода Free данного компонента. В примере, приведенном ниже, метод TForm FindComponent используется для получения указателя на компонент TStringField с именем Query1CO_NAME. Возвращаемая функцией FindComponent величина в случае успешного завершения будет иметь тип TComponent или nil в противном случае. Возвращаемое значение может использоваться для того, чтобы определить, действительно ли существует компонент до того, как будет применен метод Free.

Код

procedure TForm1.Button1Click(Sender: TObject);
var
TC: TComponent;
begin
TC := FindComponent('Query1CO_NAME');
if not (TC = nil) then
begin
Query1.Close;
TC.Free;
Query1.Open;
end;
end;

Как и при создании TField, набор данных, связанный с потомком TField и активный в настоящий момент, перед вызовом данного метода должен быть закрыт и впоследствии вновь активирован.

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

Отправка писем с использованием smtp-сервера

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

вы можете воспользоваться нашим примером, в котором реализована отправка писем с использованием smtp-сервера, для которого требуется авторизация. Поэтому не забудьте добавить в скрипт соответствующие реквизиты доступа

, например:

PHP - Код


function authSendEmail($from, $namefrom, $to, $nameto, 

$subject, $message)

{

$smtpServer = "smtp.domain.tld";

$port = "25";

$timeout = "30";

$username = "postmaster@domain.tld";

$password = "YouPassword";

$localhost = "localhost";

$newLine = "&#092;r&#092;n";



//Connect to the host on the specified port

$smtpConnect = fsockopen($smtpServer, $port, $errno, 

$errstr, $timeout);

$smtpResponse = fgets($smtpConnect, 515);

if(empty($smtpConnect))

{

$output = "Failed to connect: $smtpResponse";

return $output;

}

else

{

$logArray['connection'] = "Connected: $smtpResponse";

}



//Request Auth Login

fputs($smtpConnect,"AUTH LOGIN" . $newLine);

$smtpResponse = fgets($smtpConnect, 515);

$logArray['authrequest'] = "$smtpResponse";



//Send username

fputs($smtpConnect, base64_encode($username) . $newLine);

$smtpResponse = fgets($smtpConnect, 515);

$logArray['authusername'] = "$smtpResponse";



//Send password

fputs($smtpConnect, base64_encode($password) . $newLine);

$smtpResponse = fgets($smtpConnect, 515);

$logArray['authpassword'] = "$smtpResponse";



//Say Hello to SMTP

fputs($smtpConnect, "HELO $localhost" . $newLine);

$smtpResponse = fgets($smtpConnect, 515);

$logArray['heloresponse'] = "$smtpResponse";



//Email From

fputs($smtpConnect, "MAIL FROM: $from" . $newLine);

$smtpResponse = fgets($smtpConnect, 515);

$logArray['mailfromresponse'] = "$smtpResponse";



//Email To

fputs($smtpConnect, "RCPT TO: $to" . $newLine);

$smtpResponse = fgets($smtpConnect, 515);

$logArray['mailtoresponse'] = "$smtpResponse";



//The Email

fputs($smtpConnect, "DATA" . $newLine);

$smtpResponse = fgets($smtpConnect, 515);

$logArray['data1response'] = "$smtpResponse";



//Construct Headers

$headers = "MIME-Version: 1.0" . $newLine;

$headers .= "Content-type: text/html; 

charset=windows-1251" . $newLine;

$headers .= "To: $nameto <$to>" . $newLine;

$headers .= "From: $namefrom <$from>" . $newLine;



fputs($smtpConnect, "To: $to&#092;nFrom: $from&#092;nSubject: 

$subject&#092;n$headers&#092;n&#092;n$message&#092;n.&#092;n");



$smtpResponse = fgets($smtpConnect, 515);

$logArray['data2response'] = "$smtpResponse";



// Say Bye to SMTP

fputs($smtpConnect,"QUIT" . $newLine);

$smtpResponse = fgets($smtpConnect, 515);

$logArray['quitresponse'] = "$smtpResponse";

}



//new function



$to = "postmaster@domain.tld";

$nameto = "Demo User";

$from = "postmaster@domain.tld";

$namefrom = "Postmaster";

$subject = "Hello World Again!";

$message = "World, Hello!";



authSendEmail($from, $namefrom, $to, $nameto, 

$subject, $message);

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

Проблемы с доступом к файлам, созданным PHP-скриптами?

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

Дело в том, что PHP-сценарии, запущенные модулем mod_php, выполняются от имени пользователя wwwserver. Соответственно, если на чтение/модификацию не были выставлены разрешения для всех (достаточно 666 — для файлов, 777 — для каталогов), то модификация созданных такими скриптами файлов (каталогов) пользователю будет запрещена (при доступе по SSH, по FTP).

Исключить проблему можно, установив достаточные для модификации файлов посредством функции chmod.

Сделать это рекурсивно можно, исполнив PHP-сценарий:

PHP - Код


function chmod_R($path, $perm) {



  $handle = opendir($path);

  while ( false !== ($file = readdir($handle)) ) {

    if ( ($file !== "..") ) {

      @chmod($path . "/" . $file, $perm);

      if ( !is_file($path."/".$file) && ($file !== ".") )

        chmod_R($path . "/" . $file, $perm);

    }

  }

  closedir($handle);



}



$path = $_SERVER["QUERY_STRING"];



if ( $path{0} != "/" )

  $path = $_SERVER["DOCUMENT_ROOT"] . "/" . $path;



chmod_R($path, 0777);

echo $path;

Разместите этот файл на площадке, в директории, доступной веб-серверу, например, как: domain.tld/www/chmod.php где domain.tld/www — корневая директория (DocumentRoot) вашего сайта на сервере.

Вызывать скрипт нужно так:
http://domain.tld/chmod.php?путь_к_нужной_директории
или так:
http://domain.tld/chmod.php?/home/uXXXXX/domain.tld/www/путь_к_нужной_директории

В первом случае указывается путь относительно DocumentRoot для вашего сайта (domain.tld/www/ в данном примере). Во втором случае (uXXXXX — идентификатор вашей площадки) — абсолютный путь от корневой директории сервера.

При запуске скрипта без параметров будут изменены права для всех файлов и директорий, располагающихся в DocumentRoot.

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

Размещение значка приложения в System Tray

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

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

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

1 2 3 4 >>

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

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