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

Поиск

Сохранность и восстановление компьютерных данных

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

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

Защита копирования DVD

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

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

Взаимодействие PHP и JavaScript

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

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

Использование регулярных выражений в PHP - 2

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

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

Использование регулярных выражений в PHP

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

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

SQL-запросы в Delphi

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

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

BlobField как Bitmap

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

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

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

Дата: 02.12.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-поля

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

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

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

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

Извлечение изображения из BLOB-поля таблицы dBASE или Paradox -- без первой записи изображения в файл -- простейший процесс использования метода Assign для сохранения содержимого BLOB-поля в объекте, имеющим тип TBitmap. Отдельный объект TBitmap или свойство Bitmap объекта Picture, в свою очередь являющегося свойством компонента TIMage, могут служить примером совместимой цели для данной операции.

Вот пример кода, демонстрирующего использование метода Assign для копирования изображения из BLOB-поля в компонент TImage.

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Bitmap.Assign(Table1Bitmap);
end;

В данном примере, объект Table1Bitmap типа TBLOBField - BLOB-поле таблицы dBASE. Данный TBLOBField-объекты был создан с помощью редактора полей (Fields Editor). Если редактор полей для создания TFields для полей таблицы не используется, получить доступ к полям можно с помощью метода FieldByName или свойства Fields, оба они являются членами компонентов TTable или TQuery. В случае ссылки на BLOB-поле таблицы с помощью одного из приведенных членов, перед использованием метода Assign указатель на поле должен быть прежде приведен к типу объекта TBLOBField. Для примера:

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Bitmap.Assign(TBLOBField(Table1.Fields[1]));
end;

Изображение, хранящееся в BLOB-поле, может быть скопировано непосредственно в отдельный TBitmap объект. Ниже приведен пример, демонстрирующий создание объекта TBitmap и сохранения в нем изображения из BLOB-поля.

Код

procedure TForm1.Button2Click(Sender: TObject);
var
B: TBitmap;
begin
B := TBitmap.Create;
try
B.Assign(Table1Bitmap);
Image1.Picture.Bitmap.Assign(B);
finally
B.Free;
end;
end;

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

Использование таблиц Access при помощи ODBC

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

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

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

Дата: 02.12.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-сервера

Дата: 02.12.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-скриптами?

Дата: 02.12.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 Смотрим и оставляем комментарий »

chmod в php

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

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

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

<< 1 ... 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 ... 78 >>

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

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