От автора

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

Предыдущая статья >> [Компоненты доступа к данным]

Организация запросов к БД

Рассмотрим особенности вызова запросов к БД из приложения. Различают три вида запросов:
Статические запросы – текст запроса полностью формируется на этапе разработки приложения;
Параметрические запросы – текст запроса формируется на этапе разработки приложения и содержит несколько параметров, во время выполнения приложения можно задавать значения параметров;
Динамические запросы – текст запроса полностью формируется на этапе выполнения приложения.
При использовании технологии BDE для выполнения запросов применяется компонент TQuery.

{*********************************************************************}
{*** АНИМАЦИЯ OpenGL ***}
{*** Трёхмерные построения с использованием команд OpenGL. ***}
{*********************************************************************}
{*** Программы, использующие OpenGL, рекомендуется запускать ***}
{*** вне среды Delphi, то есть запускать откомпилированные модули. ***}
{*** Автор - Краснов М.В. Этот e-mail адрес защищен от спам-ботов, для его просмотра у Вас должен быть включен Javascript ***}
{*********************************************************************}

{(c) Copyright 1993, Silicon Graphics, Inc.

ALL RIGHTS RESERVED

Permission to use, copy, modify, and distribute this software
for any purpose and without fee is hereby granted, provided
that the above copyright notice appear in all copies and that
both the copyright notice and this permission notice appear in
supporting documentation, and that the name of Silicon
Graphics, Inc.

Клиентские почтовые компоненты Indy TIdSMTP и TIdIMAP4 имеют много общих свойств, которые могут устанавливаться в процессе проектирования в окне Инспектора Объектов, или задаваться программно. Свойство Port в обоих компонентах задается по умолчанию (25 в TIdSMTP и 143 в TIdIMAP4), и вред ли стоит менять эти значения.

Функция function DownloadFile скачивает файл


uses
UrlMon;

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0,
nil) = 0;
except
Result := False;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
k, p: Integer;
Source, dest, ext: string;
begin
for k := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
begin
Source := WebBrowser1.OleObject.Document.Images.Item(k).Src;
p := LastDelimiter('.', Source);
ext := UpperCase(Copy(Source, p + 1, Length(Source)));
if (ext = 'GIF') or (ext = 'JPG') then
begin
p := LastDelimiter('/', Source);
dest := ExtractFilePath(ParamStr(0)) + Copy(Source, p + 1,
Length(Source));
DownloadFile(Source, dest);
end;
end;
end;

В совместном исследовании организации Pew Research Center и компании comScore говорится, что в ноябре 2010 года количество уникальных посетителей веб-сайтов, предоставляющих услуги электронной почты, сократилось на 6% по отношению к предыдущему ноябрю.

В распоряжении веб-источников оказалась неофициальная информация о графике выхода тестовых версий находящейся в разработке операционной системы Windows 8.

Сообщается, что Microsoft практически завершила сборку Milestone 2 и в ближайшие дни программисты корпорации сфокусируют усилия на версии Milestone 3.

unit Main;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Menus, Dialogs;

type
TMainForm = class(TForm)
MainMenu1: TMainMenu;
Options1: TMenuItem;
AddThread: TMenuItem;
RemoveThread: TMenuItem;
ColorDialog1: TColorDialog;
Add10: TMenuItem;
RemoveAll: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure AddThreadClick(Sender: TObject);
procedure RemoveThreadClick(Sender: TObject);
procedure Add10Click(Sender: TObject);
procedure RemoveAllClick(Sender: TObject);
private
ThreadList: TList;
public
{ Public declarations }
end;

TDrawThread = class(TThread)
private
FColor: TColor;
FForm: TForm;
public
constructor Create(AForm: TForm; AColor: TColor);
procedure Execute; override;
end;

var
MainForm: TMainForm;

implementation

{$R *.DFM}

{ TDrawThread }

constructor TDrawThread.Create(AForm: TForm; AColor: TColor);
begin
FColor := AColor;
FForm := AForm;
inherited Create(False);
end;

procedure TDrawThread.Execute;
var
P1, P2: TPoint;

procedure GetRandCoords;
var
MaxX, MaxY: Integer;
begin
// initialize P1 and P2 to random points within Form bounds
MaxX := FForm.ClientWidth;
MaxY := FForm.ClientHeight;
P1.x := Random(MaxX);
P2.x := Random(MaxX);
P1.y := Random(MaxY);
P2.y := Random(MaxY);
end;

begin
FreeOnTerminate := True;
// thread runs until it or the application is terminated
while not (Terminated or Application.Terminated) do
begin
GetRandCoords; // initialize P1 and P2
with FForm.Canvas do
begin
Lock; // lock canvas
// only one thread at a time can execute the following code:
Pen.Color := FColor; // set pen color
MoveTo(P1.X, P1.Y); // move to canvas position P1
LineTo(P2.X, P2.Y); // draw a line to position P2
// after the next line executes, another thread will be allowed
// to enter the above code block
Unlock; // unlock canvas
end;
end;
end;

{ TMainForm }

procedure TMainForm.FormCreate(Sender: TObject);
begin
ThreadList := TList.Create;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
RemoveAllClick(nil);
ThreadList.Free;
end;

procedure TMainForm.AddThreadClick(Sender: TObject);
begin
// add a new thread to the list...

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Группировка/разгруппировка потоков

При написании распределённых приложений, зачастую возникает проблема
в хранении и передаче по сети разнородных данных. Данный класс представляет
собой поток (TStream) позволяющий включать в себя множество других потоков.
Таким образом становится возможным накопить в одном блоке множество
разных данных и управлять ими как единым целым.

Таблица, связанная с другими таблицами, может быть главной и подчиненной. Ранее было рассмотрено задание для подчиненной таблицы ограничений ссылочной целостности. Для главной таблицы можно просмотреть список подчиненных таблиц, который отображается при выборе пункта Dependent Table (Подчиненная таблица) комбинированного списка окна определения структуры таблицы (см.