Компьютер - это просто!!!

Перетаскивание имен файлов из проводника в ListBox с помощью мыши (Drag&Drop).

xaramamburu — Sun, 12 Feb 2012 15:16:33 GMT

Перетаскивание имен файлов из проводника в ListBox с помощью мыши (Drag&Drop)

          Очень часто в таких программах, как аудио и видео плееры необходимо сделать загрузку плейлиста, путем перетаскивания файлов прямо из проводника. Такая технология называется Drag-and-drop (в переводе с английского означает буквально тащи-и-бросай; Бери-и-Брось). В сегодняшней статье я покажу как это можно сделать в Delphi, на примере загрузки mp3 файлов в ListBox из проводника, путем перетаскивания их мышкой. Для этого в начале познакомимся с функцией DragQueryFile. Функция за декларирована в модуле ShellApi.

Данная функция извлекает имена перемещенных мышью файлов. Ниже приведено описание функции:

DragQueryFile (
    hDrop: Integer , // дескриптор структуры для перемещенных файлов
    iFile: Cardinal , // индекс запрошенного файла
    lpszFile:PWideChar , // буфер для имени файла
    cch:Cardinal // размер буфера для имени файла
): Cardinal;

Параметры:
hDrop - идентифицирует структуру, содержащую имена файлов.
iFile - определяет индекс запрашиваемого файла. Если значение параметра iFile равно 0xFFFFFFFF , DragQueryFile возвращает число перемещенных файлов. Если значение параметра iFile лежит между нулем и количеством перемещенных файлов, DragQueryFile копирует соответствующее значению им файла в буфер, указанный параметром lpszFile .
lpszFile - указывает на буфер для имени перемещенного файла. Им файла представляет собой завершающуюся нулем строку. Если значение lpszFile равно NULL , DragQueryFile возвращает необходимый размер буфера в символах.
cch - определяет размер буфера в символах.

       Приступим к созданию нашего проекта.
Запускаем Delphi и создаем новое приложение. На форме размещаем компонент TListBox из вкладки Standard.

Затем переходим к написанию кода.

В разделе Uses добавим модуль ShellAPI.

В разделе private добавим следующий код:

//получение сообщений о переносе файла в окно приложения
procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;

В разделе implementation добавим описание данной процедуры:

//процедура извлечения имен файлов при перетаскивании
procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
i: integer;//счетчик файлов
CountFile: integer;//Количество файлов
size: integer;//длина строки, содержащей путь к файлу
Filename: PChar; //указатель на имя файла
begin
try
//Функция DragQueryFile извлекает имена перемещенных мышью файлов
//получаем количество перемещаемых файлов
CountFile := DragQueryFile(Msg.Drop, $FFFFFFFF, Filename, 255);
//извлекаем пути до перемещаемых файлов и добавляем их в ListBox
for i := 0 to (CountFile - 1) do
begin
    //получаем длину строки, содержащей путь к файлу
    size := DragQueryFile(Msg.Drop, i , nil, 0)+1;
    //выделяем память под строку с именем файла
    Filename:= StrAlloc(size);
    //получаем непосредственно само имя файла и путь
    DragQueryFile(Msg.Drop,i , Filename, size);
    //добавляем его в ListBox если расширение файла = '.mp3'
    //функция lowercase понижает регистр символов
    if lowercase(ExtractFileExt(StrPas(filename)))='.mp3' then
    listbox1.items.add(StrPas(Filename));
    //освобождаем строку
    StrDispose(Filename);
end;
finally
DragFinish(Msg.Drop); // отпуститим файл
end;
end;

Ну и в событии OnCreate формы добавим код, говорящий нашему ListBox, что он должен принимать файлы.

procedure TForm1.FormCreate(Sender: TObject);
begin
//регистрируем, что окно ListBox1 будет принимать файлы
DragAcceptFiles(Form1.ListBox1.Handle, True);
//Внимание если ListBox располагается на панели то для регистрации пишем
//DragAcceptFiles(Form1.Handle, True);
end;

Сохраняем и тестируем проект.

А если к нашему проекту добавить следующую процедуру, которая выложена на просторах Интернета, то можно и целые папки перетаскивать в ListBox.

//процедура, позволяющая добавить список mp3 файлов из любой папки в ListBox1
//в процедуру при вызове необходимо передать путь к папке с файлами
procedure GetAllFiles( Path: string);
var
sRec: TSearchRec;
isFound: boolean;
begin
isFound := FindFirst( Path + '\*.*', faAnyFile, sRec ) = 0;
while isFound do
begin
if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then
begin
if ( sRec.Attr and faDirectory ) = faDirectory then
GetAllFiles( Path + '\' + sRec.Name);
//условие, проверки, что файл является mp3 файлом, если эту строчку убрать, будут добавляться все файлы
if lowercase(ExtractFileExt(Path + '\' + sRec.Name))='.mp3' then
ListBox1.Items.Add( Path + '\' + sRec.Name );
end;
Application.ProcessMessages;
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );
end;

Пример ее подключения есть в исходниках к статье.

Скачать исходник к статье можно здесь.

Работаем с базой данных КЛАДР (классификатор адресов России) из Delphi.

xaramamburu — Mon, 14 Nov 2011 14:30:42 GMT

Работаем с базой данных КЛАДР (классификатор адресов России) из Delphi.

При проектировании базы данных довольно часто приходится предусматривать возможность ввода в базу различных адресов (например: адрес места жительства, адрес предприятия и т.д.). В сегодняшнем посту я хочу познакомить вас с классификатором адресов России (КЛАДР). Последнюю версию базы данных КЛАДР можно скачать с сайта федеральной налоговой службы России http://www.gnivc.ru/inf_provision/classifiers_reference/kladr/. База поставляется в виде архива с файлами в формате dbf.
В этой статье мы научимся конвертировать базу КЛАДР из формата dbf в формат файлов Microsoft Access 2003 – 2007. И с помощью Delphi подключаться к этой базе и выбирать нужный нам адрес.

И так приступим…

Скачиваем базу КЛАДР с выше указанного адреса, распаковываем.

Запускаем Microsoft Access. Выбираем открыть. Тип файлов -> все файлы,

выбираем файл STREET.DBF и нажимаем открыть. Затем снова выбираем открыть. Тип файлов -> все файлы и выбираем следующий файл DBF. И так делаем со всеми файлами и закрываем MS Access. Если вы все сделали правильно то в папке с КЛАДР должны появится следующие файлы в формате MS Access:

Сейчас двойным кликом мыши открываем файл STREET.accdb. Затем запускаем еще одну копию MS Access. В ней выбираем Создать:

указываем путь и задаем имя файла kladr.mdb и жмем кнопку создать. В открывшемся окне удаляем Таблицу1 и перетаскиваем в него нашу таблицу STREET.accdb из уже запущенного MS Access.

Затем не закрывая нашу базу kladr.mdb мы последовательно открываем все файлы с расширением accdb и перетаскиваем их в базу kladr.mdb. В итоге должно получиться следующее:

Закрываем базу кладр.

       Сейчас немного о структуре самого КЛАДР.
Классификатор оформлен в виде следующих DBF-файлов:
файл Kladr.dbf – содержит записи с объектами первых четырех уровней классификации (регионы; районы (улусы); города, поселки городского типа, сельсоветы; сельские населенные пункты);
Структура кодового обозначения в блоке "Код":
СС РРР ГГГ ППП АА, где
СС – код субъекта Российской Федерации (региона), коды регионов представлены в Приложении 2 к Описанию классификатора адресов Российской Федерации (КЛАДР);
РРР – код района;
ГГГ – код города;
ППП – код населенного пункта,
АА – признак актуальности адресного объекта.

Признак актуальности может принимать следующие значения:
            "00” – актуальный объект (его наименование, подчиненность соответствуют состоянию на данный момент адресного пространства).
            "01”-"50” – объект был переименован, в данной записи приведено одно из прежних его наименований (актуальный адресный объект присутствует в базе данных с тем же кодом, но с признаком актуальности "00”;
            "51” – объект был переподчинен или влился в состав другого объекта (актуальный адресный объект определяется по базе Altnames.dbf);
            "52”-"98” – резервные значения признака актуальности;
            ”99” – адресный объект не существует, т.е. нет соответствующего ему актуального адресного объекта.
файл Street.dbf – содержит записи с объектами пятого уровня классификации (улицы городов и населенных пунктов);
Структура кодового обозначения в блоке "Код":
СС РРР ГГГ ППП УУУУ АА, где
СС – код субъекта Российской Федерации (региона), коды регионов представлены в Приложении 2 к Описанию классификатора адресов Российской Федерации (КЛАДР);
РРР – код района;
ГГГ – код города;
ППП – код населенного пункта;
УУУУ – код улицы;
АА – признак актуальности наименования адресного объекта.

файл Doma.dbf – содержит записи с объектами шестого уровня классификации (номера домов улиц городов и населенных пунктов);
файл Flat.dbf – содержит записи с объектами седьмого уровня классификации (номера квартир домов);
файл Socrbase.dbf – содержит записи с краткими наименованиями типов адресных объектов;
файл Altnames.dbf –содержит сведения о соответствии кодов записей со старыми и новыми наименованиями адресных объектов, а также сведения о соответствии кодов адресных объектов до и после их переподчинения.
Более подробно у структуре классификатора можно узнать из справки, которая поставляется вместе с ним.

      А сейчас приступим к написанию простейшего приложения, которое позволит сформировать интересующий нас адрес.
Запустим Delphi и создадим новое приложение. Создадим папку и сохраним в нее наше приложение. Скопируем в эту папку наш созданный в MS Access файл kladr.mdb.

Далее приступим к созданию формы:

Разместим на форме следующие компоненты:
- Четыре компонента TDBLookupComboBox;
- Три компонента TEdit;
- Четыре компонента TADOQuery;
- Четыре компонента TDataSource;
- Компонент TADOConnection;
и шесть компонентов TLabel.
Все компоненты разместим и переименуем, как показано на рисунке.

Далее сделаем подключение через компонент ADOConnectio1 к нашей базе kladr.mdb. Для этого выберем свойство ConnectionString в открывшемся окне выберем Build…--> затем Microsoft Jet 4.0 OLE DB Provider --> затем далее и в открывшемся окне:

выбираем путь к нашей базе (затем путь можно удалить и оставить только имя kladr.mdb, чтобы убрать привязку к конкретному пути). Жмем ОК. Затем свойство LoginPrompt устанавливаем False, свойство Connected ->True.
На этом подключение закончено. Переходим к настройке других компонентов. Выбираем компонент region_source и свойство DataSet --> kladr_region. Выбираем компонент kladr_region и свойство Connection устанавливаем ADOConnection1. В свойство SQL-> TStrings…-> пишем следующий запрос:

SELECT *
FROM KLADR
WHERE (((KLADR.CODE) Like '__000000000__'));

В этом запросе я выбираю из таблицы kladr все поля по условию Like '__000000000__' для поля CODE. В команде Like '__000000000__', _ обозначает произвольный символ. Поэтому мы ищем произвольный код субъекта федерации (первые два символа кода) и произвольный признак актуальности (последние два символа).
Свойство Active устанавливаем True.

     Затем переходим к настройке компонента DBLookupComboBox1. Свойство ListSource -> region_source, свойство ListField-> NAME;SOCR свойство KeyField->CODE.

Для события OnCloseUp пишем следующий код:

procedure TForm1.DBLookupComboBox1CloseUp(Sender: TObject);
begin
//формируем запрос с параметрами на выбор района
street.Active:=false;//выключаем запрос
kladr_gorod.Active:=false;//выключаем запрос
kladr_raion.Active:=false; //выключаем запрос
kladr_raion.SQL.Clear; //очищаем запрос
kladr_raion.Parameters.AddParameter.Name:='a'; //добавляем параметр 'a'
kladr_raion.Parameters.ParamByName('a').DataType:=ftWideString;//задаем тип параметра
kladr_raion.Parameters.AddParameter.Name:='b'; // добавляем параметр 'b'
kladr_raion.Parameters.ParamByName('b').DataType:=ftWideString; //задаем тип параметра
kladr_raion.Parameters.AddParameter.Name:='c'; // добавляем параметр 'c'
kladr_raion.Parameters.ParamByName('c').DataType:=ftWideString; //задаем тип параметра
//формируем запрос
kladr_raion.SQL.Add('SELECT *');
kladr_raion.SQL.Add('FROM KLADR');
kladr_raion.SQL.Add('WHERE (((KLADR.CODE Like :a Or KLADR.CODE Like :c)) And Not ((KLADR.CODE) Like :b));');
//в параметре 'а' выбираем по коду региона все районы
kladr_raion.Parameters.ParamByName('a').Value:=copy(region_source.DataSet.FieldByName('CODE').Value,1,2)+'___000000__';
//параметр 'b' нужен для исключения из списка самого региона
kladr_raion.Parameters.ParamByName('b').Value:=copy(region_source.DataSet.FieldByName('CODE').Value,1,2)+'000000000__';
//параметр 'c' нужен для выбора городов и населенных пунктов не входящих в районы
kladr_raion.Parameters.ParamByName('c').Value:=copy(region_source.DataSet.FieldByName('CODE').Value,1,2)+'000________';
//активируем запрос
kladr_raion.Active:=true;

//формируем запрос с параметрами на выбор названия улицы
street.Active:=false;
street.SQL.Clear;
street.Parameters.AddParameter.Name:='a';
street.Parameters.ParamByName('a').DataType:=ftWideString;
street.SQL.Add('SELECT *');
street.SQL.Add('FROM STREET');
street.SQL.Add('WHERE (((STREET.CODE) Like :a));');
//в параметре 'а' выбираем по коду населенного пункта все улицы в нем
street.Parameters.ParamByName('a').Value:=copy(region_source.DataSet.FieldByName('CODE').Value,1,11)+'______';

//активируем запрос
street.Active:=true;
end;

      Выбираем компонент raion_source и свойство DataSet --> kladr_raion. Выбираем компонент kladr_raion и свойство Connection устанавливаем ADOConnection1.
Затем переходим к настройке компонента DBLookupComboBox2. Свойство ListSource -> raion _source, свойство ListField-> NAME;SOCR свойство KeyField->CODE.

Для события OnCloseUp пишем следующий код:

procedure TForm1.DBLookupComboBox2CloseUp(Sender: TObject);
begin
street.Active:=false;
kladr_gorod.Active:=false;
//проверяем, если был выбран не город (населенный пункт),
//то формируем запрос на выбор населенного пункта
if copy(raion_source.DataSet.FieldByName('CODE').Value,3,3)<>'000' then
begin
//формируем запрос с параметрами на выбор населенного пункта
kladr_gorod.SQL.Clear;
kladr_gorod.Parameters.AddParameter.Name:='a';
kladr_gorod.Parameters.ParamByName('a').DataType:=ftWideString;
kladr_gorod.Parameters.AddParameter.Name:='b';
kladr_gorod.Parameters.ParamByName('b').DataType:=ftWideString;
kladr_gorod.SQL.Add('SELECT *');
kladr_gorod.SQL.Add('FROM KLADR');
kladr_gorod.SQL.Add('WHERE ((KLADR.CODE Like :a And Not ((KLADR.CODE) Like :b)));');
//в параметре 'а' выбираем по коду района все населенные пункты
kladr_gorod.Parameters.ParamByName('a').Value:=copy(raion_source.DataSet.FieldByName('CODE').Value,1,5)+'________';
//параметр 'b' нужен для исключения из списка самого района
kladr_gorod.Parameters.ParamByName('b').Value:=copy(raion_source.DataSet.FieldByName('CODE').Value,1,5)+'000000__';
//активируем запрос
kladr_gorod.Active:=true;
end;
//формируем запрос с параметрами на выбор названия улицы
street.Active:=false;
street.SQL.Clear;
street.Parameters.AddParameter.Name:='a';
street.Parameters.ParamByName('a').DataType:=ftWideString;
street.SQL.Add('SELECT *');
street.SQL.Add('FROM STREET');
street.SQL.Add('WHERE (((STREET.CODE) Like :a));');
//в параметре 'а' выбираем по коду населенного пункта все улицы в нем
street.Parameters.ParamByName('a').Value:=copy(raion_source.DataSet.FieldByName('CODE').Value,1,11)+'______';
//активируем запрос
street.Active:=true;
end;

     Выбираем компонент gorod_source и свойство DataSet --> kladr_gorod. Выбираем компонент kladr_gorod и свойство Connection устанавливаем ADOConnection1.
Затем переходим к настройке компонента DBLookupComboBox3. Свойство ListSource-> gorod_source, свойство ListField-> NAME;SOCR свойство KeyField->CODE.

Для события OnCloseUp пишем следующий код:

procedure TForm1.DBLookupComboBox3CloseUp(Sender: TObject);
begin
//формируем запрос с параметрами на выбор названия улицы
street.Active:=false;
street.SQL.Clear;
street.Parameters.AddParameter.Name:='a';
street.Parameters.ParamByName('a').DataType:=ftWideString;
street.SQL.Add('SELECT *');
street.SQL.Add('FROM STREET');
street.SQL.Add('WHERE (((STREET.CODE) Like :a));');
//в параметре 'а' выбираем по коду населенного пункта все улицы в нем
street.Parameters.ParamByName('a').Value:= copy(gorod_source.DataSet.FieldByName('CODE').Value,1,11)+ '______';
street.Active:=true;
end;

     Выбираем компонент street_source и свойство DataSet --> street. Выбираем компонент street и свойство Connection устанавливаем ADOConnection1.

Затем переходим к настройке компонента DBLookupComboBox4. Свойство ListSource ->street_source, свойство ListField-> NAME;SOCR свойство KeyField->CODE.

    К сожалению, работать с номерами домов на много сложнее, поэтому их быстрее забить руками.

     Для увеличения скорости обработки запросов базу КЛАДР можно почистить, например удалить все не актуальные объекты (признак актуальности в коде не равен 00) и т.д.

Данный код предназначен лишь для демонстрации составления запросов для выбора адресов из базы КЛАДР. В полне возможно, что я мог что то упустить т.к. структура КЛАДР довольно сложная и учесть все нюансы в рамках небольшого примера практически невозможно.

Скачать исходники к статье можно здесь.

Автор статьи xaramamburu, сайт автора http://basicsprog.ucoz.ru .

Добавление записей из таблицы MS Ecxel в базу данных MS Access средствами Delphi.

xaramamburu — Sun, 02 Oct 2011 10:33:16 GMT

Добавление записей из таблицы MS Ecxel в базу данных MS Access средствами Delphi.

В предыдущем посту мы научились, подключать таблицу MS Excel с помощью компонента ADOConnection. В данной статье, используя подключение через компонент ADOConnection, мы научимся загружать (экспортировать) данные из листа MS Excel в базу данных созданную в MS Access.
Данная статья будет полезна тем, кто в своей программе хочет использовать экспорт данных из
MS Excel в MS Access. Или просто хочет быстро заполнить свою базу данных из уже готовой таблицы MS Excel.

Для начала создадим файл таблицу MS Excel как показано на рисунке:
Первый ряд таблицы MS Excel при экспорте в MS Access служит полями базы данных.

сохраним с именем 2.xlsx.
Затем создадим базу данных MS Access с таблицей t1 как показано на рисунке:

все поля текстового типа. Название полей должны в точности соответствовать названием полей в MS Excel. Далее сохраняем базу данных с именем bd.mdb в формате MS Access 2002-2003. И копируем созданные файлы в папку с будущим проектом.
Запускаем Delphi и создаем новое приложение File -> New-> VCL Forms Application – Delphi.

Размещаем на форме компонент кнопку TButton из вкладки Standard. Назовем ее Экспорт.

Добавим компонент TADOConnection и TADOQuery из вкладки dbGo (ADO).

В инспекторе объектов для компонента ADOConnection1 выбираем свойство ConnectionString и вписываем туда следующую строку для MS Excel 2007:

Provider =Microsoft.ACE.OLEDB.12.0; Data Source =2.xlsx; Extended Properties ="Excel 12.0 Xml;HDR=YES";

Файл 2.xlsx должен находиться в папке с приложением.

При указании полного пути до файла:
Provider =Microsoft.ACE.OLEDB.12.0; Data Source =c:\myFolder\myExcel2007file.xlsx; Extended Properties ="Excel 12.0 Xml;HDR=YES";

Если у вас MS Excel 2003 то вписываем следующую строку:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=2.xls;Extended Properties=Excel 8.0;

Файл 2.xls должен находиться в папке с приложением.

Другие способы подключение смотрите в предыдущем посту.

После установки подключения убираем, галочку со свойства LoginPromt, чтоб не запрашивал пароль при подключении.

Перед запуском на выполнение, необходимо убрать галочки у компонента ADOConnection1 -- >Connected и у компонента ADOQuery --> Active иначе будут сыпаться ошибки, типа не могу подключиться, так как подключение уже используется.

Далее для события OnClick кнопки «Экспорт» пишем следующий код:

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into t1 IN bd.mdb select * from [Лист1$]');
ADOQuery1.ExecSQL;
end;

А для события OnCreate формы пишем:

procedure TForm1.FormCreate(Sender: TObject);
begin
ADOConnection1.Connected:=true;
end;

Сохраняем, запускаем на выполнение и проверяем содержимое базы данных.

Теперь немножко по структуре запроса 'insert into t1 IN bd.mdb select * from [Лист1$]'

INSERT INTO – означает, что запрос будет на добавление записей;
t1 - таблица базы, в которую будем добавлять записи.
IN путь к базе с именем базы. Если база расположена в папке с приложением, достаточно указать только имя базы данных.
select * - означает, что выбираем все записи;
from [Лист1$] – выбирать будем из таблицы MS Excel Лист1.

И еще пример использования запроса INSERT INTO на добавление новой записи в таблицу:

INSERT INTO users (login, pass) values('TestUser', '123456')

При добавлении записи вначале идёт команда "INSERT INTO", затем название таблицы, в которую мы вставляем запись. Далее идёт в круглых скобках названия полей, которые мы хотим заполнить. А затем в круглых скобках после слова "values" начинаем перечислять значения тех полей, которые мы выбрали. После выполнения этого запроса в нашей таблице появится новая запись.

В статье использованы материалы с сайта http://devdelphi.ru/?p=90 , там же можно найти более сложный вариант конвертации данных из таблицы MS Ecxel в базу данных MS Access а также другие статьи по работе с базой данных.

Нравится

Спасибо за внимание.

Скачать исходники к статье можно здесь.

Другие статьи по работе с MS Excel:

Работа с EXCEL из Delphi.

Учимся работать с MS Excel через подключение ADOConnection в Delphi.

Учимся работать с MS Excel через подключение ADOConnection в Delphi.

xaramamburu — Sun, 02 Oct 2011 09:11:02 GMT

Учимся работать с MS Excel через подключение ADOConnection в Delphi.

В предыдущем посте я рассказывал, как работать с MS Excel из Delphi через ComObj (Com объект).
В этой статье я расскажу, как подключить таблицу MS Excel через компонент ADOConnection в Delphi. Из данной статьи вы сможете узнать о способах данного подключения. Как загрузить данные из таблицы MS Excel в компонент DBGrid. Как создавать и сохранять записи в таблице MS Excel из Delphi.

И так, приступим…

Запустим Delphi и создадим новое приложение File -> New-> VCL Forms Application – Delphi.
Разместим на форме следующие компоненты:
1. Компонент TADOConnection из вкладки dbGo (ADO);
2. Компонент TADOQuery из вкладки dbGo (ADO);
3. Компонент TDataSource из вкладки Data Access;
4. Компонент TDBGrid из вкладки Data Controls;
5. И два компонента TButton из вкладки Standard.

Далее создадим таблицу MS Excel со следующими полями:

и сохраним ее как 1.xlsx для (MS Excel 2007) или 1.xls для (MS Excel 2003).

Затем настроим компоненты…

Начнем с компонента подключения к базе ADOConnection1. Мы будем подключаться к таблице MS Excel.
В инспекторе объектов для компонента ADOConnection1 выбираем свойство ConnectionString и вписываем туда следующую строку для MS Excel 2007:

Provider =Microsoft.ACE.OLEDB.12.0; Data Source =1.xlsx; Extended Properties ="Excel 12.0 Xml;HDR=YES";

Файл 1.xlsx должен находиться в папке с приложением.

При указании полного пути до файла:

Provider =Microsoft.ACE.OLEDB.12.0; Data Source =c:\myFolder\myExcel2007file.xlsx; Extended Properties ="Excel 12.0 Xml;HDR=YES";

Если у вас MS Excel 2003 то вписываем следующую строку:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=1.xls;Extended Properties=Excel 8.0;

Файл 1.xls должен находиться в папке с приложением.

Также можно подключиться через мастера подключения, для этого нажимаем:

выбираем «Использовать строку подключения» -> Сборка…

Выбираем «Источник данных компьютера» -- > «Файлы Excel» -- > и нажимаем на пункте дважды левой кнопкой мыши.

Находим наш файл и жмем ОК.

Внимание!!! К сожалению такое подключение возможно только для файлов Excel сохраненных в формате Excel 97-2003 (*.xls), поэтому в моем случае выдаст ошибку.

После установки подключения убираем галочка со свойства LoginPromt, чтоб не запрашивал пароль и переходим к настройке компонента ADOQuery1.

Свойство Connection устанавливаем ADOConnection1;
Свойство SQL --> TString --> пишем запрос SELECT * FROM [Лист1$] ;
Свойство Active--> True.

Переходим к компоненту DataSource1 и устанавливаем ему свойство DataSet -- > ADOQuery1.
Переходим к компоненту DBGrid1 и устанавливаем ему свойство DataSource--> DataSource1.
После данных настроек, если вы все сделали правильно в DBGrid должны отобразиться поля вашей таблицы. Чтобы изменить размер отображаемых полей в Structure выбираем:

И для всех добавленных полей изменяем свойство DisplayWidth -->20.
Должно получиться следующее:

Внимание!!! Перед запуском на выполнение, необходимо убрать галочки у компонента ADOConnection1 -- >Connected и у компонента ADOQuery --> Active иначе будут сыпаться ошибки, типа не могу подключиться, так как подключение уже используется.

Дело движется к концу. Осталось только написать обработчики событий для кнопок (назовем их "Новая запись" и "Сохранить" соответственно). Начнем…

Для события OnClick кнопки «Сохранить» пишем следующий код:

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Edit;
ADOQuery1.Post;
end;

Для события OnClick кнопки «Новая запись» пишем следующий код:

procedure TForm1.Button2Click(Sender: TObject);
begin
ADOQuery1.Append;
end;

И для события OnCreate формы пишем:

procedure TForm1.FormCreate(Sender: TObject);
begin
ADOConnection1.Connected:=true;
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM [Лист1$]');
ADOQuery1.Active:=True;
end;

Сохраняем, запускаем на исполнение и видим, что с таблицами MS Excel можно работать также как и с файлами базы данных, но есть одно но, данный провайдер подключения не поддерживает удаление записей.

При написании статьи использовался материал с сайта http://devdelphi.ru/?p=63 , за что автору огромное спасибо!!!

Нравится

Спасибо за внимание.

Скачать исходники к статье можно здесь.

Другие статьи по работе с MS Excel:

Работа с EXCEL из Delphi.

Добавление записей из таблицы MS Ecxel в базу данных MS Access средствами Delphi.

Работа с EXCEL из Delphi

xaramamburu — Fri, 30 Sep 2011 18:25:31 GMT

Работа с EXCEL из Delphi

В этой статье я познакомлю вас как работать с MS Excel из Delphi. Данная статья может быть полезна людям, которые хотят научиться создавать различные отчеты в Excel из программ написанных на Delphi. Статья содержит справочные данные необходимые для работы с MS Excel. Здесь вы найдете информацию о том как:

- Подключить и правильно отключить интерфейс Excel;
- Как изменить размер, цвет и тип шрифта;
- Как выделить, объединить, заполнить и размножить диапазон ячеек;
- Как повернуть и отцентрировать текст;
- Как нарисовать границы ячеек;
- Как ввести формулу в ячейку и многое другое...

И так, начнем...

Работать будем через модуль ComObj, для этого в uses необходимо добавить модуль ComObj и модуль Excel_TLB (для MS Excel 2007).

Uses ……, ComObj, Excel_TLB;

Модуль Excel_TLB содержит необходимые константы для работы с Excel, его можно не подключать, но тогда придется в ручную прописывать значения всех используемых констант из этого модуля. Значения констант можно найти внутри модуля или в интернете, но для разных версий MS Excel они разные.
Внимание!!! Модуль Excel_TLB в других версиях MS Excel может называться по другому. Перед подключением модуля Excel_TLB, необходимо импортировать библиотеку Excel. Для этого выберите Component->Import Component->Import a Type Library-> находим MS Excel и следуем инструкциям.

В разделе описания переменных мы должны описать переменную типа Variant или OleVariant для подключения интерфейса Excel. Я описал переменную excel.

var

Form1: TForm1;
excel: variant; // Переменная в которой создаётся объект EXCEL

Создание документа

Внимание!!! Всегда когда создаете объект интерфейса, заключайте процедуру создания в модуль обработки ошибок:
try
создаем интерфейс;
формируем отчет;
освобождаем интерфейс;
Except
обрабатываем ошибки;
освобождаем интерфейс;
end;

Далее идет краткий справочник по основным функциям работы с EXCEL

try
// создаем обьект EXCEL
excel := CreateOleObject('Excel.Application');

// Чтоб не задавал вопрос о сохранении документа
excel.DisplayAlerts := false;

// создаем новый документ рабочую книгу
excel.WorkBooks.Add;

// или загружаем его из директории с программой
excel.WorkBooks.Open(GetCurrentDir() + '\отчет.xls');

{ GetCurrentDir()- возвращает путь к директории с программой}

// Делаем его видимым данную функцию после отладки и тестирования лучше использовать в конце, после сформирования отчета (это ускоряет процесс вывода данных в отчет)
excel.Visible := true;

//задаем тип формул в формате R1C1
excel.Application.ReferenceStyle := xlR1C1;

// задаем тип формул в формате A1
excel.Application.ReferenceStyle := xlA1;

// Задаем название первому и второму листу
excel.WorkBooks[1].WorkSheets[1].Name := 'Отчет1';
excel.WorkBooks[1].WorkSheets[2].Name := 'Отчет2';

//задаем формат числа для первой и четвертой колонки формат числа
excel.WorkBooks[1].WorkSheets[1].Columns[1].NumberFormat := '0,00';
excel.WorkBooks[1].WorkSheets[1].Columns[4].NumberFormat := '0,0';

// задаем ширину первой и второй колонки
excel.WorkBooks[1].WorkSheets[1].Columns[1].ColumnWidth := 10;
excel.WorkBooks[1].WorkSheets[1].Columns[2].ColumnWidth := 20;

// задаем начертание, цвет, размер и тип шрифта для первого ряда
excel.WorkBooks[1].WorkSheets[1].Rows[1].Font.Bold := True; //жирный
excel.WorkBooks[1].WorkSheets[1].Rows[1].Font.Color := clRed; // цвет красный
excel.WorkBooks[1].WorkSheets[1].Rows[1].Font.Size := 12; //размер 12
excel.WorkBooks[1].WorkSheets[1].Rows[1].Font.Name := 'Times New Roman'; //шрифт

//присваиваем ячейке 1,4 и 2,4 значения (1 - ряд, 4 - колонка)
excel.WorkBooks[1].WorkSheets[1].Cells[1, 4] := 'А так можно внести значение в ячейку';
excel.WorkBooks[1].WorkSheets[1].Cells[2, 4] := 'А так можно внести значение в ячейку';

//ввод в ячейку 'A12' формулы '=b5+c4'
excel.WorkBooks[1].WorkSheets[1].Range['A12'].Formula:='=b5+c4';

// Выравнивам первый ряд по центру по вертикали
excel.WorkBooks[1].WorkSheets[1].Rows[1].VerticalAlignment := xlCenter;

// Выравнивам первый ряд по центру по горизонтали
excel.WorkBooks[1].WorkSheets[1].Rows[1].HorizontalAlignment := xlCenter;

// Выравнивам в ячейке по левому краю
excel.WorkBooks[1].WorkSheets[1].Cells[3, 2].HorizontalAlignment := xlLeft;

// Выравнивам в ячейке по правому краю
excel.WorkBooks[1].WorkSheets[1].Cells[3, 4].HorizontalAlignment := xlRight;

// Обьединяем ячейки 'A1:A8'
excel.WorkBooks[1].WorkSheets[1].Range['A1:A8'].Merge;

// Поворачиваем слова под углом 90 градусов для второго ряда
excel.WorkBooks[1].WorkSheets[1].Rows[2].Orientation := 90;

// Поворачиваем слова под углом 45 градусов для диапазона ячеек 'B3:D3'
excel.WorkBooks[1].WorkSheets[1].Range['B3:D3'].Orientation := 45;

//рисуем границы выделенного диапазона левая
excel.Selection.Borders[xlEdgeLeft].LineStyle := xlContinuous; // стиль линии сплошная
excel.Selection.Borders[xlEdgeLeft].Weight := xlMedium;// толщина линии

//рисуем границы выделенного диапазона верхняя
excel.Selection.Borders[xlEdgeTop].LineStyle := xlContinuous;
excel.Selection.Borders[xlEdgeTop].Weight := xlMedium;

//рисуем границы выделенного диапазона нижняя
excel.Selection.Borders[xlEdgeBottom].LineStyle := xlContinuous;
excel.Selection.Borders[xlEdgeBottom].Weight := xlMedium;

//рисуем границы выделенного диапазона правая
excel.Selection.Borders[xlEdgeRight].LineStyle := xlContinuous;
excel.Selection.Borders[xlEdgeRight].Weight := xlMedium;

//рисуем границы выделенного диапазона вертикальные внутрениие
excel.Selection.Borders[xlInsideVertical].LineStyle := xlContinuous;
excel.Selection.Borders[xlInsideVertical].Weight := xlMedium;

//рисуем границы выделенного диапазона горизонтальные внутрениие
excel.Selection.Borders[xlInsideHorizontal].LineStyle := xlContinuous;
excel.Selection.Borders[xlInsideHorizontal].Weight := xlMedium;

//автозаполнение выделенного диапазона
//для примера заполним область ячеек 'A10:C10' словом 'привет'
//и размножим его вниз еще на пять ячеек 'A10:C15'
excel.WorkBooks[1].WorkSheets[1].Range['A10:C10'].Value:='привет';

//выделяем диапазон ячеек 'A10:C10'
excel.WorkBooks[1].WorkSheets[1].Range['A10:C10'].Select;

//автозаполняем (копируем) выделенным диапазоном область ячеек 'A10:C15'
excel.selection.autofill(excel.WorkBooks[1].WorkSheets[1].Range['A10:C15'],xlFillDefault);

//отключаем предупреждения, чтобы не задавал вопросов о сохранении и других
excel.DisplayAlerts := False;

//сохраняем документ в формате Excel 97-2003
excel.ActiveWorkBook.Saveas(GetCurrentDir() + '\отчет.xls',xlExcel8);

//сохраняем документ в текущем формате Excel 2007
excel.ActiveWorkBook.Saveas(GetCurrentDir() + '\отчет.xlsx');

//закроем все книги
excel.Workbooks.Close;

//закрываем Excel
excel.Application.quit;

//освобождаем интерфейсы
excel := Unassigned;

Except

//обрабатываем ошибки
showmessage('Внимание! Произошла ошибка при создании MS Excel приложения');

//закроем все книги
excel.Workbooks.Close;

//закрываем Excel
excel.Application.quit;

//освобождаем интерфейсы
excel := Unassigned;
end;
end;

При работе с листом Excel мы можем использовать следующие варианты:
- работать с областью Range['B3:D3'];
- работать с ячейкой Cells[2, 4] где 2 - ряд, 4 - колонка;
- работать с рядами Rows[1] или с диапазоном рядов Rows['1:5'];
- работать с колонками Columns[1] или диапазоном колонок Columns['A:I'];

Range['A1'] и Cells[1, 1] обозначают одно и тоже.

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

Например так:
//закроем все книги
excel.Workbooks.Close;

//закрываем Excel
excel.Application.quit;

//освобождаем интерфейсы
sheet:=Unassigned; //интерфейс листа если он был создан
WorkBook := Unassigned;//интерфейс рабочей книги если он был создан
excel := Unassigned;//интерфейс самого предложения если он был создан

end;

Ниже привожу пример вывода в Excel из Delphi таблицы умножения с подробными комментариями.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, comobj, StdCtrls, Excel_TLB;

type
TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;
excel: variant; // Переменная в которой создаётся объект EXCEL
MyData: variant; // Переменная в которой формируется таблица умножения
i,j:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
try
// Обьект EXCEL
excel := CreateOleObject('Excel.Application');
// Чтоб не задавал вопрос о сохранении документа
excel.DisplayAlerts := false;
// новый документ
excel.WorkBooks.Add;

//объявляем вариантный массив
MyData := VarArrayCreate([1,9,1,9],varVariant);
for I := 1 to 9 do
for J := 1 to 9 do
MyData[i,j]:=i*j;

// Обьединяем ячейки 'A1:I1'
excel.WorkBooks[1].WorkSheets[1].Range['A1:I1'].Merge;
//Пишем заголовок
excel.WorkBooks[1].WorkSheets[1].Range['A1'].Value:='Таблица умножения';
// Выравнивам заголовок по центру
excel.WorkBooks[1].WorkSheets[1].Range['A1'].HorizontalAlignment := xlCenter;
// задаем ширину колонок с A по I
excel.WorkBooks[1].WorkSheets[1].Columns['A:I'].ColumnWidth := 3;

//выделяем область таблицы умножения ['A2:I10'] и рисуем границы
excel.WorkBooks[1].WorkSheets[1].Range['A2:I10'].select;
//рисуем границы выделенного диапазона левая
excel.Selection.Borders[xlEdgeLeft].LineStyle := xlContinuous; // стиль линии сплошная
excel.Selection.Borders[xlEdgeLeft].Weight := xlThin;// толщина линии
//рисуем границы выделенного диапазона верхняя
excel.Selection.Borders[xlEdgeTop].LineStyle := xlContinuous;
excel.Selection.Borders[xlEdgeTop].Weight := xlThin;
//рисуем границы выделенного диапазона нижняя
excel.Selection.Borders[xlEdgeBottom].LineStyle := xlContinuous;
excel.Selection.Borders[xlEdgeBottom].Weight := xlThin;
//рисуем границы выделенного диапазона правая
excel.Selection.Borders[xlEdgeRight].LineStyle := xlContinuous;
excel.Selection.Borders[xlEdgeRight].Weight := xlThin;
//рисуем границы выделенного диапазона вертикальные внутрениие
excel.Selection.Borders[xlInsideVertical].LineStyle := xlContinuous;
excel.Selection.Borders[xlInsideVertical].Weight := xlThin;
//рисуем границы выделенного диапазона горизонтальные внутрениие
excel.Selection.Borders[xlInsideHorizontal].LineStyle := xlContinuous;
excel.Selection.Borders[xlInsideHorizontal].Weight := xlThin;

//присваиваем диапазону ['A2:I10'] значения вариантного массива MyData это значительно ускоряет работу, нежели вывод по //ячеечно

excel.WorkBooks[1].WorkSheets[1].Range['A2:I10'].Value:=MyData;

// Делаем его видимым
excel.Visible := true;
//освобождаем интерфейсы
MyData:= Unassigned;
excel := Unassigned;
Except
showmessage('Внимание! Произошла ошибка при создании MS Excel приложения');
//закрываем Excel
excel.Application.quit;
//освобождаем интерфейсы
MyData:= Unassigned;
excel := Unassigned;
end;
end;

end.

При написании статьи использовался материал с сайта http://vlad2000.h1.ru/Frames/Statyi/page_14.html

Нравится

Скачать пример к уроку можно здесь.

Другие статьи по работе с MS Excel:

Учимся работать с MS Excel через подключение ADOConnection в Delphi.

Добавление записей из таблицы MS Ecxel в базу данных MS Access средствами Delphi.

Создание SQL запросов к базе данных созданной в MS Access 2003 – 2007 из Delphi с помощь компонента ADOQuery.

xaramamburu — Sun, 04 Sep 2011 17:54:29 GMT

Создание SQL запросов к базе данных созданной в MS Access 2003 – 2007 из Delphi с помощь компонента ADOQuery.

Эта статья будет посвящена новичкам, которые хотят научиться создавать базы данных в Delphi, но не знают языка SQL запросов. Частично, можно выйти из положения используя компоненты ADOTable и фильтрацию, но не все задачи можно решить с помощью них. Как быть? Я предлагаю составлять запросы с помощью конструктора SQL запросов в MS Access 2003 – 2007, и переносить их в компонент ADOQuery или любой другой, позволяющий работать SQL запросами. Понятно, что если вы хотите профессионально заняться программированием баз данных, то без изучения языка запросов SQL вам не обойтись, но на первых порах конструктор SQL запросов в MS Access 2003 – 2007 может послужить вам хорошим другом.
Сейчас я попытаюсь рассказать, как работать с этим конструктором. Предполагается, что вы уже умеете создавать саму базу данных в MS Access 2003 – 2007.

Итак, приступим…

Пусть у нас имеется некая база данных bd.mdb имеющая три таблицы products, ed_izmer, storage. Скачать базу.

И мне необходимо составить запрос к базе на выборку всех продуктов из таблицы storage с подстановкой наименования продукта, единицы измерения, количества, цены и суммы.
Открываем базу в MS Access 2003 – 2007, переходим на вкладку Создание->Конструктор запросов

и видим следующее окно.

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

Теперь создаем связи между таблицами, делается это перетаскивание соответствующего пункта из одной таблицы на соответствующий пункт другой таблицы. В нашем случае мы перетаскиваем поле id из ed_izmer на поле id_ed_izmer таблицы storage. Аналогично поле id из products на поле id_product таблицы storage.

Далее жмем правую кнопку мыши на полученной связи, и выбираем пункт «Параметры объединения».

Устанавливаем нужный вариант объединения и жмем OK. Делаем аналогичную операцию с другой связью.

Теперь переходим к нижней части конструктора запросов

И заполняем, как показано на рисунке

В первый столбец вводим имя таблицы -> products, поле product_name.
Во второй имя таблицы -> ed_izmer, поле ed_name.
В третий имя таблицы -> storage, поле quantity.
В четвертый имя таблицы -> storage, поле price.
В пятый столбец вводим формулу для вычисления суммы.
Формулы вводятся следующим образом: в начале идет имя поля (придумываем сами), затем двоеточие, а затем формула в виде [имя таблицы1].[имя поля]знак операции[имя таблицы2].[имя поля].

В нашем случае вводим следующую формулу:

сумма: [storage].[quantity]*[storage].[price]

на этом запрос готов жмем на крестик и сохраняем запрос.

Жмем на созданном запросе и проверяем работоспособность.

Если все работает, переходим в режим SQL, для этого нажимаем правой кнопкой мыши на вкладке Запрос1 и выбираем Режим SQL.

Копируем полученный запрос и вставляем его в поле SQL -> TStrings компонента ADOQuery в Delphi. Или используем программно:

ADOQuery.Active:=false;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('SELECT products.product_name, ed_izmer.ed_name, storage.quantity, storage.price, [storage].[quantity]*[storage].[price] AS сумма
FROM ed_izmer RIGHT JOIN (products RIGHT JOIN storage ON products.id=storage.id_product) ON ed_izmer.id=storage.id_ed_izmer;');
ADOQuery.Active:=True;

Если запрос очень длинный то его можно разбить, например, так:

ADOQuery.SQL.Add('SELECT products.product_name,'+
' ed_izmer.ed_name, storage.quantity, storage.price,'+
' [storage].[quantity]*[storage].[price] AS сумма'+
' FROM ed_izmer RIGHT JOIN (products RIGHT JOIN storage ON products.id=storage.id_product)'+
' ON ed_izmer.id=storage.id_ed_izmer;');

Либо использовать ADOQuery.SQL.Add('части запроса') несколько раз.

Можно делать и обратное преобразование запроса SQL. Берем готовый SQL запрос, копируем его в конструктор запросов MS Access в режиме SQL, затем переключаемся в режим конструктора и изучаем какие таблицы, поля, связи, выражения входят в запрос. Если надо, то вносим изменения.

Ну и на последок немножко о синтаксисе запроса:

Слово select в запросе означает создание выборки. Эта команда имеет вот такой синтаксис:

select [список полей] from [список таблиц и их соединения]

Поля в списке полей перечисляются через запятую.
Синтаксис описания поля такой:

[Имя таблицы].[Имя поля] AS [Имя поля в выборке]

После последнего поля из списка запятая не ставиться.

Нравится

Спасибо за внимание.

Скачать материалы к уроку можно здесь.

Автор xaramamburu. Сайт автора basicsprog.ucoz.ru.

Создаем Анимацию на Delphi. Построение анимированных сцен на Delphi.

xaramamburu — Thu, 28 Jul 2011 15:51:01 GMT

Создаем Анимацию на Delphi. Построение анимированных сцен на Delphi.

Используемые компоненты:

TImage (Графический холст) находится на вкладке Additional.
TTimer (Таймер) находится на вкладке System.

Сегодня я расскажу как создать несложную анимацию, по дороге будут ездить на встречу друг другу автомобиль и мотоцикл.

1) И так находим изображение дороги или рисуем в программе Paint сами. Задаем размер картинки в пикселях 640*480. Для этого можем использовать программу Фотошоп или тот же Paint. Задаем имя картинке fon.bmp

2) Находим изображение или рисуем в программе Paint небольшой автомобиль установив размер картинки 110*140 пикселей задаем имя картинке avto.bmp

3) Аналогично находим изображение или рисуем в программе Paint небольшой мотоцикл установив размер картинки 110*140 пикселей задаем имя картинке moto.bmp

Можно взять мои заготовки здесь.

Теперь немного теории. Существует несколько способов сделать анимацию на экране, мы рассмотрим два наиболее простых.

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

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

Рассмотрим первый способ.

Запускаем Delphi и создаем новое приложение: File->New->VCL Forms Application – Delphi.

Кидаем на форму три компонента TImage из вкладки Additional и компонент TTimer из вкладки System.

В компонент Image1 в свойство Picture загружаем подготовленный нами файл fon.bmp, свойство Align устанавливаем alClient.
А форму растянем до размеров фона.
В компонент Image2 в свойство Picture загружаем подготовленный нами файл avto.bmp и перемещаем его на дорогу.
В компонент Image3 в свойство Picture загружаем подготовленный нами файл moto.bmp и перемещаем его на дорогу.

Должно получиться следующее:

Переходим к написанию кода:

Перед разделом type добавим раздел const и объявим две константы

const
scr_width = 640; // ширина формы
scr_height = 480; // высота формы

В разделе var объявим переменные x,y,x1,y1 типа integer.

var
Form1: TForm1;
x,y,x1,y1:integer;

Далее дважды щелкаем на компоненте таймер и пишем следующий код процедуры:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
x:=x+2;//текущая координата + шаг для автомобиля
x1:=x1-2;//текущая координата + шаг для мотоцикла
if x>scr_width+image2.Width then x:=-image2.Width;// ограничение справа
if x1<-image3.Width then x1:=scr_width;// ограничение слева
//рисуем
image2.Left:=x;
image3.Left:=x1;
end;

Думаю здесь все понятно.

В свойствах таймера свойство интервал устанавливаем в пределах от 1 до 100, в зависимости от того какую скорость анимации вы хотите получить.

Полный код программы.

unit anim;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

const
scr_width = 640; // ширина формы
scr_height = 480; // высота формы

type
TForm1 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    procedure Timer1Timer(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

x,y,x1,y1:integer;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
x:=x+2;//текущая координата + шаг для автомобиля
x1:=x1-2;//текущая координата + шаг для мотоцикла
if x>scr_width+image2.Width then x:=-image2.Width;// ограничение справа
if x1<-image3.Width then x1:=scr_width;// ограничение слева
//рисуем
image2.Left:=x;
image3.Left:=x1;
end;

end.

Второй способ:

Помещаем на форму компонент TImage и компонент TTimer.
Для компонента Image1 свойство Align устанавливаем alClient.
А для формы свойство AutoSize устанавливаем True.

Объявляем константы

const
scr_width = 640; // ширина экрана
scr_height = 480; // высота экрана

В описании переменных var объявляем четыре переменных для хранения графических картинок, тип tbitmap
var
fon:tbitmap;//Графический образ Фона
avto:tbitmap;//Графический образ автомобиля
moto:tbitmap;//Графический образ мотоцикла
scr_buffer:tbitmap;//Графический образ автомобиля
x,y,x1,y1:integer;//координаты автомобиля и мотоцикла

Для того чтобы вывести на экран изображения нужно :
1)      Активировать созданные переменные
//создаем объекты
fon:=TBitmap.Create; // фон
moto:=TBitmap.Create;// мотоцикл
avto:=TBitmap.Create; // машина
scr_buffer:=TBitmap.Create; // буфер обмена
scr_buffer.Width:=scr_width; // ширина буфера
scr_buffer.Height:=scr_height; // высота буфера

2)      Загрузить изображения в эти переменные
// загружаем объекты
moto.LoadFromFile('moto.bmp'); // мотоцикл
avto.LoadFromFile('avto.bmp'); // машина
fon.LoadFromFile('fon.bmp');// фон
x:=0; //начальные координаты машины
y:=430;
x1:=500;// начальные координаты мотоцикла
y1:=380;

3)      Установить прозрачный фон вокруг машины и мотоцикла
avto.transparent:=true;//задаем прозрачность
moto.transparent:=true;

4) И наконец вывести эти изображения на графический холст Image
//ление координат
x:=x+2;//текущая координата + шаг для автомобиля
x1:=x1-2;//текущая координата + шаг для мотоцикла
if x>scr_width+avto.Width then x:=-avto.Width;// ограничение справа
if x1<-moto.Width then x1:=scr_width;// ограничение слева
//рисуем
scr_buffer.Canvas.Draw(0,0,fon);//возобновление фона
scr_buffer.Canvas.Draw(x1,y1,moto);//движение мотоцикла
scr_buffer.Canvas.Draw(x,y,avto);//движение машины
form1.Canvas.Draw(0,0,scr_buffer); //копируем содержимое буфера на экран

При этом первая цифра в скобках, это координата x, а вторая цифра соответственно координата y
5) Для того , чтобы изображения стали двигаться, необходимо динамически менять координаты изображений на холсте, желательно стирая старое изображение.
Эту задачу выполняет компонент Timer

Полный код программы:

unit anim;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
const
scr_width = 640; // ширина экрана
scr_height = 480; // высота экрана
type
TForm1 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;
fon:TBitmap;
moto:TBitmap;
scr_buffer:TBitmap;
avto:TBitmap;
x,y,x1,y1:integer;
implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
scr_buffer.Free;
fon.Free;
moto.Free;
avto.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//создаем объекты
fon:=TBitmap.Create; // фон
moto:=TBitmap.Create;// мотоцикл
avto:=TBitmap.Create; // машина
scr_buffer:=TBitmap.Create; // буфер обмена
scr_buffer.Width:=scr_width; // ширина буфера
scr_buffer.Height:=scr_height; // высота буфера
// загружаем объекты
moto.LoadFromFile('moto.bmp'); // мотоцикл
avto.LoadFromFile('avto.bmp'); // машина
fon.LoadFromFile('fon.bmp');// фон
x:=0; //начальные координаты машины
y:=430;
x1:=500;// начальные координаты мотоцикла
y1:=380;
avto.transparent:=true;//задаем прозрачность
moto.transparent:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
x:=x+2;//текущая координата + шаг для автомобиля
x1:=x1-2;//текущая координата + шаг для мотоцикла
if x>scr_width+avto.Width then x:=-avto.Width;// ограничение справа
if x1<-moto.Width then x1:=scr_width;// ограничение слева
//рисуем
scr_buffer.Canvas.Draw(0,0,fon);//возобновление фона
scr_buffer.Canvas.Draw(x1,y1,moto);//движение мотоцикла
scr_buffer.Canvas.Draw(x,y,avto);//движение машины
form1.Canvas.Draw(0,0,scr_buffer); //копируем содеримое буфера на экран
end;

end.

Нравится

Скачать исходники к примеру один можно здесь.
Скачать исходники к примеру два можно здесь.

Автор Xaramamburu. Сайт автора basicsprog.ucoz.ru

Краткая справка на русском языке (русский help) по библиотеке BASS 2.4.

xaramamburu — Fri, 22 Jul 2011 15:14:03 GMT

Краткая справка на русском языке (русский help) по библиотеке BASS.dll версии 2.4.

Для любителей писать плееры на Delphi я выкладываю краткую справку по библиотеке bass.dll. Последнюю версию библиотеки можно скачать с официального сайта www.un4seen.com.

Библиотека BASS достаточно проста в использовании, имеет небольшой размер и поддерживает следующие возможности:

    воспроизведение звуковых образцов (сэмплов) в формате WAV/AIFF/MP3/MP2/MP1/OGG;
    потоковое воспроизведение звуковых файлов в формате MP3/MP2/MP1/OGG/WAV/AIFF;
    потоковое воспроизведение звука из интернет (по протоколам http и ftp, с поддержкой серверов Shoutcast, Icecast & Icecast2);
    воспроизведение файлов музыкальных форматов (XM, IT, S3M, MOD, MTM, UMX), а также формата MO3 (mod музыка, сжатая MP3/OGG);
    запись звука;
    поддержка эффектов обработки звуков и эффектов DirectX 8 (только для Win32): Chorus / compressor / distortion / echo / flanger / gargle / parametric eq /
    reverb и т.д.;
    поддержка многоканального (а не только стерео) звука, в том числе и многоканальных OGG/WAV/AIFF файлов;
    поддержка многопотоковых звуковых карт;
    поддержка позиционируемого 3D звука и EAX;
    поддержка расширений (плагинов);
    и многое другое.

Основные понятия

Как и в большинстве библиотек для работы со звуковыми данными, в BASS представлены следующие звуковые объекты:

    sample (сэмплы) - относительно небольшой оцифрованный звуковой фрагмент. "Небольшие" означает, что эти звуковые данные целиком загружаются в память.
    stream (потоки) - это звуковые данные, которые считываются порциями из звуковых файлов или из интернета и тут же передаются на воспроизводящее устройство. Потоковое воспроизведение позволяет проигрывать большие по размеру звуковые файлы и при этом не загружать их целиком в память.
    mod music (музыкальные модули) - это данные, представленные в музыкальных (так называемых "трекерных") форматах. В файлах с трекерной музыкой, как правило, содержатся команды для воспроизводящей программы (например, наподобие нотной записи) и образцы звучания инструментов, которые используются при воспроизведении (синтезе) этого музыкального модуля.

Непосредственное воспроизведение звука происходит через так называемые "каналы", поэтому все виды звуковых данных (sample, stream и mod music) связываются с каналами воспроизведения звука.

Основные функции библиотеки BASS:

Функции управления библиотекой (конфигурирование, инициализация, выгрузка, получение информации и т.д.);

function BASS_Init(device: Integer; freq, flags: DWORD; win: HWND; clsid: PGUID): BOOL; Инициализирует звуковой поток;
Пример использования:
BASS_Init(-1, 44100, 0, handle, nil);

function BASS_Pause(): BOOL; - Останавливает вывод, приостанавливая всю musics/samples/streams. Используйте BASS_Start(), чтобы возобновить вывод и приостановленные каналы.
Пример использования:
BASS_Pause();

function BASS_Stop(): BOOL; - Останавливает вывод, останавливая все musics/samples/streams. Эта функция может использоваться после BASS_Pause(), чтобы остановить приостановленные каналы, так, чтобы они не были продолжены функцией BASS_Start();
Пример использования:
BASS_Stop();

function BASS_Start(): BOOL; - Начала (или продолжение) вывода звука.
Пример использования:
BASS_Start();

function BASS_GetCPU(): float; - Возвращает процент использования центрального процессора.

function BASS_SetVolume(volume: float ):BOOL; - установка громкости в Windovs. Параметр volume можно изменять в пределах от 0 до 1;
Пример использования:
BASS_SetVolume(TrackBar1.Position/10);

function BASS_GetVolume(): float; - Возвращает текущий уровень громкости звука в системе. Функция обратная предидущей.

function BASS_SetDevice(device: DWORD):BOOL; - Установка устройства вывода звукового потока. Параметр device = 0 - нет звука, 1 - вывод звука будет происходить на первое существующее устройство для вывода звука в системе.

function BASS_GetVersion(): DWORD; - Возвращает версию BASS, который загружен;
Пример использования:
// проверка корректности загруженной BASS.DLL
if (HIWORD(BASS_GetVersion) <> BASSVERSION) then
    begin
        MessageBox(0,'Не корректная версия BASS.DLL',nil,MB_ICONERROR);
        Halt;
    end;

function BASS_Free():BOOL; - Освобождает все ресурсы, используемые устройством вывода.
Пример использования:
BASS_Free();

Функции с префиксом BASS_Stream..., предназначенные для работы с streams (загрузка, выгрузка, управление и т.д.);

function BASS_StreamCreateFile(mem: BOOL; f: Pointer; offset: QWORD; length: QWORD; flags: DWORD): HSTREAM; - Создаем звуковой поток из локального файла формата MP3, MP2, MP1, OGG, WAV, AIFF. В случае успешного завершения функция BASS_StreamCreateFileвозвращает дескриптор потока (тип HSTREAM ), который можно использовать в функциях управления каналом воспроизведения вместо дескриптора канала.
Пример использования:
Имя потока := Bass_streamCreateFile(false, PChar('C:\muzic.mp3'),0,0,0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});

function BASS_StreamFree(handle: HSTREAM): BOOL; - Освобождает звуковой поток, в скобках указываем имя потока.

Функции с префиксом BASS_Music..., предназначенные для работы с mod music (загрузка, выгрузка, управление и т.д.);

function BASS_MusicLoad(mem: BOOL; f: Pointer; offset: QWORD; length: DWORD; flags: DWORD; freq: DWORD;): HMUSIC; - Загружает MOD музыкальный файл в форматах
MO3 / IT / XM / S3M / MTM / MOD / UMX. В случае успешного выполнения функция BASS_MusicLoad возвращает дескриптор типа HMUSIC , который можно использовать в функциях управления каналом воспроизведения вместо дескриптора канала.
Пример использования:
Имя потока:= BASS_MusicLoad(False, PChar('C:\test.s3m'), 0, 0, BASS_MUSIC_RAMP {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF}, 0);

function BASS_MusicFree(handle: HMUSIC): BOOL; - Освобождает ресурсы музыки, включая любой sync/DSP/FX. В скобках указываем имя потока.

Функции с префиксом BASS_Sample..., предназначенные для работы с samples (загрузка, управление, выгрузка и т.д.);

function BASS_SampleLoad(mem: BOOL; f: Pointer; offset: QWORD; length: DWORD; max: DWORD; flags: DWORD): HSAMPLE; - Загружает WAV, AIFF, MP3, MP2, MP1, OGG или plugin поддерживает sample. В случае успешного выполнения функция BASS_SampleLoad возвращает дескриптор типа HSAMPLE , который можно использовать в функциях управления каналом воспроизведения вместо дескриптора канала.
Пример использования:
Имя потока:= BASS_SampleLoad(FALSE, PChar('C:\test.wav'), 0, 0, 3, BASS_SAMPLE_OVER_POS {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});

function BASS_SampleFree(handle: HSAMPLE): BOOL; - Освобождает ресурсы Sample. В скобках указываем имя потока.

Функции с префиксом BASS_Channel..., предназначенные для работы с каналами (воспроизведение, остановка, позиционирование, управление громкостью, балансировка каналов и т.д.);

function BASS_ChannelGetLength(handle, mode: DWORD): QWORD; - Узнать длинну звукового потока.
Пример использования:
BASS_ChannelGetLength(Имя потока,0);

function BASS_ChannelPlay(handle: DWORD; restart: BOOL): BOOL; - Начать проигрывать звук.
Пример использования:
Bass_channelPlay(Имя потока, false);

function BASS_ChannelPause(handle: DWORD): BOOL; - Сделать паузу.
Пример использования:
BASS_ChannelPause(Имя потока);

function BASS_ChannelStop(handle: DWORD): BOOL; - Остановить проигрывание звука.
Пример использования:
BASS_ChannelStop(Имя потока);

function BASS_ChannelGetPosition(handle: DWORD; mode: DWORD):QWORD; - Возвращает позицию воспроизведения;
Пример использования:
scrollbar1.Position:=bass_channelGetPosition(Имя потока,0);

function BASS_ChannelSetPosition(handle: DWORD; pos: QWORD; mode: DWORD): BOOL; Установить новую позицию в потоке( необходимио для перемотки) Сдвигает позицию проигрывания на pos вперед.
Пример использования
BASS_ChannelSetPosition(Имя потока, ScrollBar1.Position, 0);

function BASS_ChannelBytes2Seconds(handle: DWORD; pos: QWORD): double; - Переводит текущуюю позицию воспроизведения во время (секунды);
Пример использования:
var TrackPos: Double;
begin
TrackPos:=BASS_ChannelBytes2Seconds(Имя потока,BASS_ChannelGetPosition(Имя потока,0));
end;

function BASS_ChannelGetAttribute(handle, attrib: DWORD; var value: FLOAT): BOOL; - Получает атрибуты канала.

function BASS_ChannelSetAttribute(handle, attrib: DWORD; var value: FLOAT): BOOL; - Устанавливает значение атрибута канала.Параметр value зависит от выбранного атрибута. Например для баланса атрибут (BASS_ATTRIB_PAN), -1 - левый канал, +1 - правый канал, 0 - центр, а для громкости звука атрибут (BASS_ATTRIB_VOL), 0 - нет звука, 1 - максимальная громкость.
Пример использования:
//установка громкости звука
BASS_ChannelSetAttribute(Имя потока,BASS_ATTRIB_VOL,trackBar1.Position/10);
//баланс
BASS_ChannelSetAttribute(Имя потока,BASS_ATTRIB_PAN,Trackbar12.Position/5);

Функции с префиксом BASS_FXS..., предназначенные для создания различных звуковых эффектов;

function BASS_ChannelSetFX(handle: DWORD; type: DWORD; priority: int):HFX; - Устанавливает эффект на поток, MOD музыку, или канал записи.

function BASS_FXSetParameters(handle: HFX; params: Pointer): BOOL; - Устанавливает параметры эффекта.

function BASS_FXGetParameters(handle: HFX; params: Pointer): BOOL; - Возвращает параметры эффекта.

Пример использования:
Создадим трех полосный эквалайзер.
объявляем глобальные переменные:
var
p: BASS_DX8_PARAMEQ;//параметры эквалайзера
fx: array[1..3] of integer;//количество регуляторов для эквалайзера
channel: DWORD;

Далее в процедуре, перед выполнением команды BASS_ChannelPlay(channel, False); - проигрывание потока.
пишем код настроек эквалайзера

    fx[1] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);//задаем эффект для первого регулятора
    fx[2] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);//для второго
    fx[3] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);//для третьего
    //задаем начальные значения параметров эквалайзера
    p.fGain := 0;//задаем усиление можно от -15 до 15. Поумолчанию 12.
    p.fBandwidth := 18;//задаем полосу пропускания можно от 1 до 36. Поумолчанию 12.
    p.fCenter := 125;//задаем центральную частоту регулирования в Гц
    BASS_FXSetParameters(fx[1], @p);//задаем сделанные настройки для первого регулятора
    p.fGain := 0;
    p.fBandwidth := 18;
    p.fCenter := 1000;
    BASS_FXSetParameters(fx[2], @p);//задаем сделанные настройки для второго регулятора
    p.fGain := 0;
    p.fBandwidth := 18;
    p.fCenter := 8000;
    BASS_FXSetParameters(fx[3], @p);//задаем сделанные настройки для третьего регулятора

    BASS_ChannelPlay(channel, False);//начинаем проигрывание

//изменяем параметры усиления с помощью трех регуляторов в виде трекбаров
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
    BASS_FXGetParameters(fx[1], @p);
    p.fgain := 15-TrackBar1.position;
    BASS_FXSetParameters(fx[1], @p);
end;

procedure TForm1.TrackBar2Change(Sender: TObject);
begin
    BASS_FXGetParameters(fx[2], @p);
    p.fgain := 15-TrackBar2.position;
    BASS_FXSetParameters(fx[2], @p);
end;

procedure TForm1.TrackBar3Change(Sender: TObject);
begin
    BASS_FXGetParameters(fx[3], @p);
    p.fgain := 15-TrackBar3.position;
    BASS_FXSetParameters(fx[3], @p);
end;

При написании справки использовались материалы статьи

"Шпаргалка по библиотеке BASS 2.4" с сайта http://delphiexpert.ru/view_lesson.php?id=44

Нравится

Посмотреть пример создания mp3 плеера с использованием данных функции можно здесь.

Анимация на рабочем столе.

xaramamburu — Thu, 30 Jun 2011 13:05:10 GMT

Анимация на рабочем столе.

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

Предлагаю вот такое решения реализации данной задачи. Так как стандартные компоненты Delphi не поддерживают анимированные изображения GIF, мы возьмем любое анимированное изображений и с помощью программ Adobe ImageReady CS и Adobe Photoshop CS разобьем анимацию на слои и сохраним каждый слой в формате BMP c именами 1.BMP, 2.BMP и т.д. Полученные изображения мы будем выводить не на сам рабочий стол, а на форму, дело в том, что мы сделаем форму не видимой, а компонент видимым и получится так, что анимированное изображение находится на рабочем столе. И при этом все папки, ярлыки буду доступны…

Как разбивать анимированное изображение на отдельные кадры с помощью программ Adobe ImageReady CS и Adobe
Photoshop CS, если интересно, то я могу рассказать в следующий раз, а пока скачать уже готовое по кадровое изображение можно здесь.

Давайте запустим Delphi и на форму кинем компонент TImage из вкладки Additional.

В программном модуле unit1 объявляем в разделе var следующие переменные.

var
Form1: TForm1;
i:integer;// количество кадров в изображении
file_name:string;// имя файла кадра изображения
mouse:tmouse;// необходима для определения координат мыши
xn,yn:integer;//начальные координаты мыши при нажатии левой кнопки мыши

Добавим компонент TTimer из вкладки System и свойство Interval ставим 70. Создаём обработчик событий на таймере OnTimer кликаем по нему 2 раза. И пишем следующий код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if i<20 then i:=i+1 else i:=1;
file_name:=inttostr(i);
image1.Picture.LoadFromFile('gif\'+file_name+'.bmp');//Формируем путь и имя файла. У меня картинки с изображениями находятся в папке gif
end;

Для компонента компонент Image1 пропишем еще два события OnMouseDown и OnMouseMove.

Для OnMouseDown пишем:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
yn:=mouse.CursorPos.Y-(form1.Top);//запоминаем координаты мыши
xn:=mouse.CursorPos.X-(form1.left);
end;

Для OnMouseMove пишем:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if ssleft in shift then begin //если нажата
левая кнопка мыши то двигаем форму
form1.Top:=mouse.CursorPos.Y-yn;
form1.left:=mouse.CursorPos.X-xn;
end;
end;

Для события OnCreate формы пропишем:

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=1;//устанавливаем начальный кадр
end;

Дальше сделаем форуму не видимой. Выделяем форму и свойство Color ставим clWhite то есть белый, свойство TransparentColor ставим True, свойство TransparentColorValue ставим clWhite, свойство Position ставим
poMainFormCenter, а свойство BorderStyle ставим bsNone;

Размеры формы (свойства Width - ширина и Height - высота) и размеры компонента Image1 (свойства Width и Height)
устанавливаем равными размерам изображения. Размеры изображения можно посмотреть в свойствах файла изображения, щелкнув по нему правой кнопкой мыши и выбрав пункт Свойства-> подробно. В нашем случае Width=200 и Height=200) запускаем программу.

Ну и на по следок, я покажу как скрыть кнопку с панели задач. Для этого выбираем в меню Project -> View Source и приводим код к следующему виду:

program Project1;
uses
Forms,
windows,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
ShowWindow(Application.Handle,sw_HIDE);//строка скрывает кнопку формы с панели задач
Application.Run;
end.

[b]Код программы[/b]

Внимание закрыть такое приложение можно через диспетчер программ
Windows (процесс Progect1).

Нравится

Скачать исходник.

Начиная с Delphi 2007 в ее поставку входит модуль GifImg, который позволяет проигрывать Gif анимацию.

Ниже привожу пример его использования (Gif анимация в Delphi) :

На форме надо разместить компонент TImage и TButton и в папку с проектом скопировать Gif файл.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, GifImg;

type
TForm1 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;
Gif: TGifImage;

implementation

{$R *.dfm}

//При нажатии на кнопку загружаем анимацию в Image1
procedure TForm1.Button1Click(Sender: TObject);
begin
//создаем объект gif
    Gif := TGifImage.Create;
//загружаем gif файл
    Gif.LoadFromFile('имя файла.gif');
//включаем анимацию
    Gif.Animate := True;
//задаем ширину и высоту объекта Image1 по размерам Gif
    Image1.Width:=Gif.Width;
    Image1.Height:=Gif.Height;
//Подключаем Image1 к Gif
    Image1.Picture.Assign(Gif);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//освобождаем объект Gif
Gif.Free;
end;

end.

Ошибка 'Не выполнена проверка подлинности' при работе с компонентами ADOConnection, ADOTable, ADOQuery… и базой MS Access 2003...

xaramamburu — Sun, 19 Jun 2011 17:03:01 GMT

При подключении базы компьютер ругается: 'Не выполнена проверка подлинности'.

Порой при работе с ADO появляется ошибка: "Не выполнена проверка подлинности". Что значит, эта ошибка и как ее устранить?

Такая ошибка возникает, когда один из компонентов ADOTable, ADOQuery пытается подключиться к базе данных, а само подключение в компоненте ADOConnection еще не активировано.

Дело в том, что соединение с базой данных компонентов ADOTable, ADOQuery и др. , связанных с ADOConnection, происходит, даже если в самом ADOConnection не предпринимается никаких действий для открытия базы данных. Достаточно в компонентах ADOTable, ADOQuery и др. установить свойство Active -> true, и он начнет подключаться к базе данных. При этом свойство Connected компонента ADOConnection, автоматически установиться в true, если в свойстве ConnectionString компонента ADOConnection верно указан путь к базе.

Для устранения данной ошибки:

1. Проверьте, верно, ли указан путь к базе в свойстве ConnectionString компонента ADOConnection, если он задается программно, то правильно ли он задается?
2. Убедитесь, что форма, содержащая компонент ADOConnection загружается раньше других форм использующих данное подключение. Для этого выберите Project->Options->Forms

3. Для всех компонентов ADOTable, ADOQuery и др. установить свойство Active -> false.
4. Просмотрите события OnCreate для всех форм использующих активацию Active -> true для компонентов ADOTable, ADOQuery и др. или открытие таблиц (запросов) например ADOTable.Open, ADOQuery.Open, если такие события есть перенесите их в OnShow или в OnActivate.

Нравится