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

type
   TForm30 = class(TForm)
     Image1: TImage;
     Timer1: TTimer;
     procedure Timer1Timer(Sender: TObject);
     procedure FormCreate(Sender: TObject);
   private
     Gif: TGifImage;
   public
     { Public declarations }
   end;

var
   Form30: TForm30;

implementation

{$R *.dfm}

procedure TForm30.FormCreate(Sender: TObject);
begin
   Gif := TGifImage.Create;
   Gif.LoadFromFile(’C:\Xom04.gif’);
   Gif.Animate := True;
   Gif.AnimateLoop := glEnabled;
end;

procedure TForm30.Timer1Timer(Sender: TObject);
begin
   Image1.Picture.Assign(Gif);
end;

end.

Тема на форуме

igh0st:

WebBrowser1.body.Style.overflow := “hidden”;

Тема на форуме

procedure TForm1.FormCreate(Sender : TObject);
var reg : TRegistry;
begin
   reg:=TRegistry.Create;
   Reg.RootKey:=HKEY_CLASSES_ROOT;
   reg.OpenKey(’.txt’, true);
   reg.WriteString(”,’txtfile’);
   reg.CloseKey;
   reg.CreateKey(’txt’+’DeDoK’;
   reg.OpenKey(’txtfile\DefaultIcon’, true);
   reg.WriteString(”,Application.ExeName+’,0′);
   reg.CloseKey;
   reg.OpenKey(’txtfile\shell\open\command’,true);
   reg.WriteString(”,Application.ExeName+’”%1″‘);
   reg.CloseKey;
   reg.Free;
end;

Тема на форуме

Небольшая статья по взаимодействию с СУБД MySQL из программы на C++

автор статьи: psycho-coder
Тема на форуме

Немного теории

Код:
MYSQL mysql; // Дескриптор соединения. Структура, содержащая HANDLE для одного подключения к серверу.
MYSQL_RES *res; // Дескриптор результирующей таблицы
MYSQL_ROW row; // Массив полей текущей строки
MYSQL_FIELD *field; // Структура, которая содержит всю информацию, касающуюся отдельного поля таблицы

Функиции которые нам понабодятся:

Функция инициализации
  MYSQL *mysql_init(MYSQL *mysql);

Где соответственно host — компьютер, на котором запущена СУБД MySQL, user — имя юзера для подключения, passwd — пароль, db — название предполагаемой для использования базы данных, port — порт, unix_socket — сокет или pipe-канал, который необходимо использовать.

MYSQL *mysql_real_connect(MYSQL *mysql, const char *host, const char *user, const char *passwd, const char *db, unsigned int port, const char *unix_socket, unsigned int client_flag)

client_ flag может принимать несколько значений:
CLIENT_COMPRESS — используется сжатие.
CLIENT_FOUND_ROWS — возвращать число найденных строк.
CLIENT_IGNORE_SPACE — делает все имена функций зарезервированными словами.
CLIENT_INTERACTIVE — разрешает interactive_timeout секунд бездействовать (вместо wait_timeout) перед закрытием подключения.
CLIENT_NO_SCHEMA — запрещает синтаксис вида “db_name.tbl_name.col_name” (имя_базы_данных.имя_таблицы.имя_ко лонки). Используется для ODBC.
CLIENT_ODBC — устанавливает то, что это клиент ODBC.
CLIENT_SSL — используется защищенный протокол SSL.

Мы флагами пользоваться не будем.

Функция выполняющая запрос
int mysql_query(MYSQL *mysql, const char *query);

Функция возвращяющая строку с описанием ошибки
Код:

char *mysql_error(MYSQL *mysql);

функция, которая получает все строки результата запроса и хранит их в буфере-клиенте
MYSQL_RES * mysql_store_result(MYSQL *mysql);

Получает количество строк в результате запроса
my_ulonglong mysql_num_rows(MYSQL_RES *res);

Получает количество полей (столбцов) в результате запроса
unsigned int mysql_num_fields(MYSQL_RES *res);

Заполняет массив полей для текущей строки
MYSQL_ROW mysql_fetch_row(MYSQL_RES *result);

Заполняет структуру для текущего поля (fieldnr)
MYSQL_FIELD *mysql_fetch_field_direct(MYSQL_RES *res, unsigned int fieldnr);

Начальная “настройка”

Для работы в Builder необходимо конвертировать libmysql.lib.
Для этого, нужно открыть консоль и набрать там это

C:\>”C:\Program Files\Borland\CBuilder6\Bin\coff2omf.exe”
-lib:st “C:\Program Files\Borland\CBuilder6\Lib\libmysql.lib”
“C:\Program Files\Borland\CBuilder6\Lib\libmysql_.lib”

Здесь “C:\Program Files\Borland\CBuilder6\Lib\libmysq l.lib” оригинальная библиотека,
а “C:\Program Files\Borland\CBuilder6\Lib\libmysq l_.lib” конвертированная

У каждого пути будут свои.
Также в папке с программой (или в “C:\Program Files\Borland\CBuilder6\Lib\”) должны быть libmysql_.lib, а для VS libmysql.dll.
Заголовочные файлы можно бросить в папку с программой или в “C:\Program Files\Borland\CBuilder6\Include\”.
Для VS “C:\Program Files\Microsoft Visual Studio Х.0\VC\include”. Где Х – версия VS.
В среде MS VC++ можно использовать библиотеку без конвертации, т.е. libmysql.lib.
Все заголовочные файлы могут быть в папке с программой, но тогда нужно подключать их локально.

Есть замечания для VC++ WinForms.
Так как типы String^ и char[] несовместимы, то для конвертирования из String^ в char[] можно использовать следующие функции (взято из MySQL++):

private: String^ ToUCS2(const char* utf8)
{
   try
   {
     return gcnew String(utf8, 0, strlen(utf8), System::Text::Encoding::Default);
   }
   catch(…)
   {
     return “”;
   }
}
private: Void ToUTF8(char* pcOut, int nOutLen, String^ sIn)
{
   try
   {
     array^ bytes = System::Text::Encoding::Default->GetBytes(sIn);
     nOutLen = Math::Min(nOutLen – 1, bytes->Length);
     System::Runtime::InteropServices::Marshal::Copy(bytes, 0, IntPtr(pcOut), nOutLen);
     pcOut[nOutLen] = ”;
   }
   catch (…)
   {
     pcOut[nOutLen] = ”;
   }
}

Пример использования
const int buf = 512;
char host[buf];
ToUTF8(host, buf, hostText->Text); // Перевод из String^ в char[]
String ^tmp = ToUCS2(mysql_error(&mysql)); // Перевод из char* в String^

Вот все необходимое для работы:
libmysql_lib.rar 2.5 кб
libmysql.lib.rar 5.1 кб
LibMySQL.dll.rar 447 кб
include.rar 73.7 кб

Вывод в консоль

Вывод таблиц в консоли. Интерфейс правда не супер, но для практики думаю хватит.
В коде есть комментарии. Если будут вопросы задавайте здесь

#define __LCC__ // Объявляем директиву без которой программа не может работать. Можно конечно поключить windows.h, но это будет не красиво

#pragma comment(lib, “libmysql_.lib”) // подключаем библиотеку
#include // Заголовочный файл с описание функций
#include
#include

void mysql(const char query[])
{
   MYSQL mysql; // Дескриптор соединения
   MYSQL_ROW row; // Массив полей текущей строки
   MYSQL_RES *res; // Дескриптор результирующей таблицы

   char host[] = “localhost”; // хост
   char user[] = “admin”; // пользователь
   char passwd[] = “admin”; // пароль
   char db[] = “library”; // название базы данных
   int port = 0; // порт. Если порт у сервера MySQL не по умолчанию (3306), то нужно указывать конкретный номер порта

   mysql_init(&mysql); // Инициализация
   mysql_real_connect(&mysql, host, user, passwd, db, port, NULL, 0); // соединение

   if (mysql_query(&mysql, query) > 0) // запорс. Если ошибок нет, то продолжаем работу
   {

     // Если была ошибка, …
     printf(”%s”, mysql_error(&mysql)); // … вывдем ее
     return; // и завершим работу
   }

   res = mysql_store_result(&mysql); // Берем результат,
   int num_fields = mysql_num_fields(res); // количество полей
   int num_rows = mysql_num_rows(res); // и количество строк.

   for (int i = 0; i < num_fields; i++) // Выводим названия полей
   {
     field = mysql_fetch_field_direct(res, i); // Получение названия текущего поля
     printf(”| %s |”, field->name);
   }

   printf(”\n”);

   for (int i = 0; i < num_rows; i++) // Вывод таблицы
   {
     row = mysql_fetch_row(res); // получаем строку

     for (int l = 0; l < num_fields; l++)
       printf("| %s |", row[l]); // Выводим поля

     printf(”\n”);
   }

   printf(”Count records = %d”, num_rows); // Вывод информации о количестве записей
     mysql_free_result(res); // Очищаем результаты
     mysql_close(&mysql); // Закрываем соединение
}

int main()
{
   mysql(”SELECT * FROM t_mid_author”); // Запрос
   getch(); // Ожидаем нажатие клавиши
   return 0;
}

Графический интерфейс
Очередная статья по взаимодействию с СУБД MySQL из программы на С++
Мутим простейший интерфейс

Кидаем на форму:
TLabel (5 шт.). В свойство Caption пишем хост, порт и т.д.
TEdit (5 шт.). Названия TEdit’ов: hostText, userText, passText, dbText и portText.
TButton (2 шт.). В свойства Caption пишем “Пошел!” и “Закрыть”.
TMemo (1 шт.)
TStringGrid (1 шт.)

Подключаем заголовочные файлы, библиотеку и объявим одну константу
#define __LCC__
#include
#pragma comment(lib, “libmysql_.lib”) // Для Builder 6. Подробней см. в первой статье
#pragma comment(lib, “libmysql.lib”) // Для MS VC++
// Для других сред программирования не пробовал
const int buf = 512;

Обработчик кнопки “Закрыть” думаю понятен

А в обработчик копки “Пошел!” пишем следующее
/* Проверим что все данные были введены? в.ч. и сам запос (Memo1) */
   if (hostText->Text.IsEmpty() || userText->Text.IsEmpty() ||
     passText->Text.IsEmpty() || dbText->Text.IsEmpty() ||
     portText->Text.IsEmpty() || Memo1->Text.IsEmpty())
   {
   MessageBox(this->Handle, “Не все поля заполнены!”, “Ошибка!”,
     MB_OK | MB_ICONERROR);
   return;
   }

// Тут Вам все должно быть знакомо
   MYSQL mysql;
   MYSQL_ROW row;
   MYSQL_RES *res;
   MYSQL_FIELD *field;

/* Объявляем массивы для работы */
   char host[buf];
   char user[buf];
   char passwd[buf];
   char db[buf];
   char query[buf];
   int port = portText->Text.ToInt();
   int num_fields = 0;
   int num_rows = 0;

/* Инициализируем имя хоста, пользователя, пароль и БД */
   strcpy(host, hostText->Text.c_str());
   strcpy(user, userText->Text.c_str());
   strcpy(db, dbText->Text.c_str());
   strcpy(passwd, passText->Text.c_str());
   strcpy(query, Memo1->Text.c_str()); //*/

   mysql_init(&mysql);
   if (!mysql_real_connect(&mysql, host, user, passwd, db, port, NULL, 0))
   { /* Пробуем подключиться, если кдето ошибка то сообщим об этом */
     MessageBox(this->Handle, mysql_error(&mysql), “Error!”,
       MB_OK | MB_ICONERROR);
     return;
   }

   if (mysql_query(&mysql, query) > 0)
   { /* Пробуе выполнить запрос, если запрос не верен то сообщаем об ошибке,
   Выведем ее и выходим
   */
   MessageBox(this->Handle, mysql_error(&mysql), “Error!”,
     MB_OK | MB_ICONERROR);
   return;
   }

// Получаем результат
   res = mysql_store_result(&mysql);

   /* Устанавливаем кол-во строк в таблице и сохраняем кол-во строк */
   StringGrid1->RowCount = num_rows = mysql_num_rows(res);

/* Устанавливаем кол-во полей и сохраняем это кол-во столбцов */
   StringGrid1->ColCount = num_fields = mysql_num_fields(res);
   StringGrid1->FixedRows = 1; // Фиксируем первую строку.

   for (int i = 0; i < num_fields; i++) // Выводим названия полей
   {
     field = mysql_fetch_field_direct(res, i);
     StringGrid1->Cells[0] = field->name; // В первую строку, которую мы зафиксировали
   }

   for (int i = 1; i < num_rows; i++) // Вывод результата запроса
   {
     row = mysql_fetch_row(res); // Получаем строку
     for (int l = 0; l Cells[l] = row[l]; // Выводим строку по ячейкам
   }

   mysql_free_result(res); // Освобождаем память
   mysql_close(&mysql); // Закрываем соединение

Вот и все. пишем запрос и “Пошел!”.

Графический интерфейс. Специальный проект
Теперь напишем “специальный” клиент для базы данных Библиотека
Для начала создадим базу банных

# create.sql
# Создаем базу данных
CREATE database lib;

# Переключаемся на нее
use lib;

# Добавляем пользователя admin с паролем admin и связываем его с базой library
GRANT ALL ON lib.* TO ‘admin’@’%’ IDENTIFIED BY ‘admin’;

# Создаем таблицу книги
CREATE TABLE IF NOT EXISTS t_books
(
ID INT(6) UNSIGNED NOT NULL AUTO_INCREMENT,
Title CHAR(150) NOT NULL,
FIO CHAR(150) NOT NULL,
PRIMARY KEY(ID),
KEY(Title)
);

Интерфейс формы у меня получился такой.

Компоненты:
TLabel и TEdit . по 5 штук, как из предыдущей статьи
ListBox – 1 шт список книг
GroupBox – 1 шт. В нем 2 TLabel и 2 TEdit, название книги и автор
TButton – 5 шт. Их желательно обозвать как у меня (Удалить, Изменить, Добавить, Подключиться, Закрыть).
BitBtn – 1 шт кнопка обновление данных.
TTimer – 1 шт проверка содинения.
Все подробности на скрине.

Объявляем необходимые переменные и подключаем все что нужно…

#define __LCC__
#pragma comment(lib, “libmysql_.lib”)
#include

const int buf = 512; // Буфер
bool connected = false; // Есть соединение или нет
int *arrIDs = NULL; // Массив идентификаторов
int ID = 0; // Идентификатор текущей книги
MYSQL mysql; // Дескриптор соединения
MYSQL_RES *res; // Структура результатов
MYSQL_ROW row; // Массив строк результата

/* Объявляем массивы для работы */
char host[buf];
char user[buf];
char passwd[buf];
char db[buf];
int port = 0;

Настройки таймера:
Enabled := false; // Выключен
Interval := 5000; // 5 секунд

Код обработчика таймера:
if (mysql_ping(&mysql) > 0) // Если соединение разорвано…
{
   connected = false; // ставим флаг дисконнекта
   if (arrIDs) delete []arrIDs; // Очищаем массив
   Timer1->Enabled = false; // … выключаем таймер
   MessageBox(this->Handle, “Соединение с сервером потеряно”, “Ошибка!”,
     MB_OK | MB_ICONERROR); // Выведем сообщение лоб этом
   Button5->Click(); // Запустим повторное соединение
}

Далее обработчики кнопок

Код кнопки “Подключиться”

// Подключение
if (connected) return; // Если уже соединены, то выходим.
/* Проверим, что все данные были введены */
if (hostText->Text.IsEmpty() || userText->Text.IsEmpty() ||
passText->Text.IsEmpty() || dbText->Text.IsEmpty() ||
portText->Text.IsEmpty())
{
MessageBox(this->Handle, “Не все поля заполнены!”, “Ошибка!”,
MB_OK | MB_ICONERROR);
return;
}

/* Инициализируем имя хоста, пользователя, пароль, порт и БД */
strcpy(host, hostText->Text.c_str());
strcpy(user, userText->Text.c_str());
strcpy(db, dbText->Text.c_str());
strcpy(passwd, passText->Text.c_str());
port = portText->Text.ToInt();

mysql_init(&mysql); // Инициализация дескриптора
if (!mysql_real_connect(&mysql, host, user, passwd, db, port, NULL, 0))
{ /* Пробуем подключиться, если кде-то ошибка, то сообщим об этом */
MessageBox(this->Handle, mysql_error(&mysql), “Error!”,
MB_OK | MB_ICONERROR);
return;
}

connected = true; // Соединены
Timer1->Enabled = true; // Порверка соединения каждые 5 сек.
BitBtn1->Click(); // Обновить список

Код кнопки “Обновить” (BitBtn1)

// Обновление списка книг
if (!connected) return; // Если соединения нет, то выходим

/* Так как, мы знаем что нам нужно, то и запрос будет статическим.
Получим названия всех книг и идентификаторов, потом заполним ими ListBox
Сортируем в порядке возрастания по названию книги */
if (mysql_query(&mysql, “SELECT ID, Title FROM t_books ORDER BY Title”) > 0)
{ // Проверка на ошибки
MessageBox(this->Handle, mysql_error(&mysql), “Ошибка!”,
MB_OK | MB_ICONERROR);
return;
}

ListBox1->Clear(); // Очистка списка.
if (arrIDs) delete []arrIDs; // Очистка массива

// Заполняем структуру
res = mysql_store_result(&mysql);
// Получаем количество записей
int count = mysql_num_rows(res); // Получаем количество строк
arrIDs = new int[count]; // Инициализируем массив

for (int i = 0; i < count; i++)
{
// Полчаем строку
row = mysql_fetch_row(res);
// Заполняем массив
arrIDs = StrToInt(row[0]);
// Добавляем в ListBox название книги
ListBox1->Items->Add(row[1]);
}

mysql_free_result(res); // Освобождаем ресурсы

Графический интерфейс. Специальный проект. Продолжение

Код кнопки “Добавить”

// Добавление книг
// Если соединения нет или поля ввода пустые, то выходим
   if (!connected && (bookText->Text.IsEmpty() || authorText->Text.IsEmpty()))
     return;

// Формируем запрос на добавление книги
   AnsiString tmp = “INSERT INTO t_books (ID, Title, FIO) VALUES (NULL,\
     ‘” + bookText->Text + “‘, ‘” + authorText->Text + “‘)”;

   char query[buf]; // Переменная дла запроса
   strcpy(query, tmp.c_str()); // Ковертируем в нужный формат.

// Запрос. Если ошибки есть, то выводим их и выходим из функции
   if (mysql_query(&mysql, query) > 0)
   {
     MessageBox(this->Handle, mysql_error(&mysql), “Ошибка!”,
       MB_OK | MB_ICONERROR);
     return;
   }

   // Вывод сообщения о том, что все хорошо.
   MessageBox(this->Handle, “Книга добавлена!”, “”, MB_OK | MB_ICONINFORMATION);
   bookText->Clear();
   authorText->Clear();
   BitBtn1->Click(); // Обновим данные

Код кнопки “Изменить”

   // Изменение книг
   // Если соединения нет и книга не выбрана, то выходим
   if (!connected && ID < 1) return;

   AnsiString tmp = “UPDATE t_books SET Title = ‘” + bookText->Text +”‘,\
     FIO = ‘” + authorText->Text + “‘ WHERE ID = ” + IntToStr(ID);

   char query[buf];
   strcpy(query, tmp.c_str());

   if (mysql_query(&mysql, query) > 0)
   {
     MessageBox(this->Handle, mysql_error(&mysql), “Ошибка!”,
       MB_OK | MB_ICONERROR);
   return;
   }

   MessageBox(this->Handle, “Информация о книге обновлена”, “”,
     MB_OK | MB_ICONINFORMATION);

Код кнопки “Удалить”

   // Удаление книг
   // Если соединения нет и нет выделенной книги для удаления, то выходим
   if (!connected && ID < 1) return;

   // Подтверждение удаления
   if (MessageBox(this->Handle, “Удалить?”, “Удаление”,
     MB_YESNO | MB_ICONQUESTION) != 6) return;

   // Формируем запрос на удаление
   AnsiString tmp = “DELETE FROM t_books WHERE ID = ” + IntToStr(ID);
   char query[buf];
   // Приводим его
   strcpy(query, tmp.c_str());

   // Выполняем.
   if (mysql_query(&mysql, query) > 0)
   {
     MessageBox(this->Handle, mysql_error(&mysql), “Ошибка!”,
       MB_OK | MB_ICONERROR);
     return;
   }

   MessageBox(this->Handle, “Книга удалена”, “”, MB_OK | MB_ICONINFORMATION);
   BitBtn1->Click();

Выбор книги из ListBox будет производится по двойному щелчку

   // Выбор книги
   // Если соединения нет, то выходим
   if (!connected) return;

   // Тут надеюсь все понятно. Если нет, смотрите “Обновление списка”
   AnsiString tmp = “SELECT FIO FROM t_books WHERE ID = ”
     + IntToStr(arrIDs[ListBox1->ItemIndex]);

   char query[buf];
   strcpy(query, tmp.c_str());

   if (mysql_query(&mysql, query) > 0)
   {
     MessageBox(this->Handle, mysql_error(&mysql), “Ошибка!”,
     MB_OK | MB_ICONERROR);
     return;
   }

   // Получаем результаты
   res = mysql_store_result(&mysql);
   row = mysql_fetch_row(res);

   // Получаем идентификатор книги
   ID = arrIDs[ListBox1->ItemIndex];

   // Выводим название книги
   bookText->Text = ListBox1->Items->Strings[ListBox1->ItemIndex];
   // Выводим автора
   authorText->Text = row[0];
   mysql_free_result(res);

И, по закрытию программы написать

   // Закрытие программы
   // Если соединены, то разрываем соединение.
   if (connected)
   {
     mysql_close(&mysql);
     if (arrIDs) delete []arrIDs;
   }

все исходники статьи и скрипт sql
Вся статья (сделана под форум). В аттаче.
mysql.txt

Обсудить на форуме — Работа с MySQL в C++

[MoNAMur]:

отрыл у себя на компьютере в папке “раритет” эти исходники.

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

программа получает данные о некоторых железках…

Исходник программы
Тема на форуме

Вот мы и подошли к заключительной серии наших уроков по графике в среде DELPHI. Сегодня рассмотрим практическое применение модуля <LoadObjectToBufferMod>, из нашего прошлого материала, на примере работы с движущимися графическими объектами…

Продолжение. Начало цикла смотрите в первом выпуске журнала…

Как работать с графикой на канве в среде Дельфи. Урок 7—8

Владимир Дегтярь

DeKot degvv@mail.ru

Проект с использованием дополнительного универсального модуля. Урок 7

Создайте и сохраните аналогично предыдущим урокам новый проект <Lesson 4>. В разделе uses введем модуль и в разделе var переменные для фона и звездолета ‘ship1 . Сам модуль должен находится в папке проекта (см. листинг 1):

Interface                          ЛИСТИНГ-1

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs,LoadObjectToBufferMod, ExtCtrls;

var

Form1: TForm1;

xf,yf: integer;             //  координаты  вывода  общего буфера  на форму

dyf: integer;               // приращение  изменения  координаты  yf  по вертикали

xS1,yS1: integer;        //  координаты  звездолета  'ship1'

dxS1,dyS1: integer;    // приращение  координат 'ship1' по гориз. и вертик.

xR,yR: integer;           //  координаты  звездолетов  'ship4' ...'ship7'

dyR: integer;              // приращение  координат 'ship2 - 5'

N_kadrS1: byte;          // номер изображения спрайта 'ship1'

implementation

В процедуре OnCreate() формы проведем инициализацию буферов и введем начальные данные для переменных (см. листинг 2):

procedure TForm1.FormCreate(Sender: TObject);          ЛИСТИНГ-2

begin

// инициализация и загрузка битовых образов буфера фона и общего буфера

InitFon(1,2,'data/star1.bmp');

LoadFon(0,0,'data/star1.bmp');

LoadFon(0,540,'data/star2.bmp');

InitBuff;

// начальные значения переменных

xS1:= 250; yS1:= 1006;

dxS1:= 5; dyS1:= 2;

xf:= 0; yf:= -540; dyf:= 2;

end;

Процедура InitFon() вызывается из модуля ‘1‘ – количество используемых файлов фона по ширине, ‘2‘ – по  высоте, ‘data/star1.bmp’ – по этому файлу определяем размеры основного буфера фона BufFon. Далее в процедурах loadFon() загружаем все файлы фона в BufFon. InitBuff() – инициализация буфера Buffer и загрузка в него фона. Движение графических объектов организовано в обработчике таймера (см. листинг 3):

procedure TForm1.Timer1Timer(Sender: TObject);            ЛИСТИНГ-3

begin

//  вывод  движения 'ship1'

N_kadrS1:= InitSprite('data/ship1.bmp',2,1,1,N_kadrS1);

LoadBuff(xS1-dxS1,yS1+dyS1,xS1,yS1,0);

Form1.Canvas.Draw(xf,yf,Buffer);

yf:=yf+dyf;  //  приращения  координат для движ. фона

if yf >= 0 then  // если половина  фона  "прошла" через окно формы

begin

yf:= -540; yS1:= 1006; // возврат к начальным координатам

FreeBuff; // "перезагрузка" фона

end;

yS1:= yS1 - dyS1;  // приращение для 'ship1',обратное приращению фона

end;

Функция InitSprite() возвращает номер следующего кадра (следующий рисунок спрайта ‘ship1’), который при следующем такте таймера опять передается в эту же функцию. В процедуре LoadBuff() предыдущее изображение спрайта перекрывается областью TRect фона и затем выводится новое изображение спрайта.

Когда весь фон проходит через окно формы в процедуре FreeBuff() фон снова перерисовывается в Buffer и возвращаются начальные координаты вывода Buffer на форму. Движение звездолета по горизонтали организовано в обработчике нажатия клавиш (см. листинг 4):

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;     ЛИСТИНГ-4

Shift: TShiftState);

begin

case Key of

VK_Left: begin        //  клавиша "стрелка" - влево

if xS1 <= 0 then EXIT; { если звездолет у левого края формы

xS1 не изменяется}

dxS1:= -5; // движение звездолета влево

xS1:= xS1 + dxS1;

end;

VK_Right: begin       //  клавиша "стрелка" - вправо

if xS1 >= 630 then EXIT; { если звездолет у правого края формы

xS1 не изменяется}

dxS1:= 5; // движение звездолета вправо

xS1:= xS1 + dxS1;

end;

end;

end;

Запустите данный проект. Получим приложение аналогичное проекту <Lesson 3>. Сравнив коды этих проектов, заметно преимущество применения модуля. Сам проект приведен в папке <Lesson 4_1> (см. ресурсы к статье). Мы же продолжим создание проекта <Lesson 4> далее, введя еще один движущийся

графический объект (звездолет из файлов ‘ship4’ … ‘ship7’). Эти файлы имеют разный размер и разное количество рисунков).

В разделе var введем переменные для нового графического объекта:

var

N_kadrR: byte;           // номер изображения спрайта 'ship4' ... 'ship7'

ns: byte = 5;               //  номер файла  спрайтов

Nspr: byte = 2;           //  кол-во изображений  в  строке файла  спрайтов

Добавим начальные значения новых этих переменных:

xs1 := 250; ys1 := 1006;      // начальные значения переменных-

dxs1:= 4;   dys1:= 2;

xf  := 0;   yf  := -540;      dyf:= 2;

xr := 50;         yr:= 450;

dyr:= 3;

Randomize;

В обработчике таймера для нового объекта повторно вызовем методы вывода изображений спрайтов (см. листинг 6):

// вывод движения ‘ship4-ship7’    ЛИСТИНГ-6

N_kadrR:= InitSprite(‘data/ship’ + inttostr(ns) + ‘.bmp’, Nspr, 1, 1, N, N_kadR);

LoadBuf(xR, yR – dyR, xR, yR, 0);

Form1.canvas.draw(xf, yf, Buffer);

yR:= yR + dyR; // приращение для ‘ship4-ship7’

if yR >= yS1 + 100 then // проход ‘ship4-ship7’ через окно формы

begin

xR:= random(600);

yR:= yS1 – 600;

ns:= random(4) + 4;

if ns = 7 then Nspr:= 4

else Nspr:= 2

end

end

Здесь, в функции InitSprite() переменная Nspr означает количество изображений в файле спрайтов и определяется по значению ns – номера файла нового объекта, который в свою очередь определяется функцией random() после каждого прохождения новым графическим объектом окна формы. Причем, движение ‘ship1’ аналогично предыдущим примерам в процедуре FormKeyDown(). Полностью проект приведен в папке <Lesson 4> (см. ресурсы к статье).

Развитие проекта Lesson 4. Урок 8

Продолжим наш проект <Lesson 4>, превратив его в небольшой «шутер» или попросту в «стрелялку».  Добавим также возможность стрельбы ракетами для ‘ship1’ по встречным звездолетам и эффект взрыва при попадании. Соответствующие графические файлы ракеты (bullet) и взрыва (explo) находятся в папке <data>. Сделаем это новым проектом с использованием проекта <Lesson 4>.

Итак, приступим… Создайте новую папку и присвойте ей имя <Lesson 5>. Скопируйте в нее все файлы

проекта <Lesson 4> и затем откройте проект в Delphi. Переименуем проект – File => Save Project as … и в диалоговом окне “Введите имя файла” – введите Lesson5 и сохраните проект под новым именем. Теперь снова откройте проект <Lesson 5> и добавьте переменные для новых объектов:

xb, yb: integer;        // координаты ракеты

dyb: integer;           // приращение координат ракеты

n_kadrb: byte;          // номер изображения ракеты

n_kadre: byte;          // номер изображения взрыва

vistrel,flag_s: boolean;

Флаги vistrel и flag_S типа Boolean необходимы для управления выводом изображения при выстреле ракетой. Случайный выбор звездолетов ‘ship4’ … ‘ship7’ выделим в отдельную процедуру, так как выбор в программе осуществляется несколько раз после прохождения звездолетом нижней границы окна формы, после попадания ракеты, а значит и уничтожения звездолета (см. листинг 7):

procedure randomship;            ЛИСТИНГ-7

begin

xr:= random(600);

yr:= ys1 – 600;

ns:= random(4) + 4;

if ns = 7 then nspr:= 4

else nspr:= 2

end;

В процедуре FormKeyDown() добавим обработку клавиши ”пробел” – пуск ракеты (см. листинг 8):

vk_space: // пробел – выстрел ЛИСТИНГ-8

if not vistrel then begin

xb:= xs1 +  22;

yb:= ys1 – 30;

dyb:= 20;

vistrel:= true

end;

В обработчике таймера выводим движение ракеты при произведенном пуске – флаг (см. листинг 9):

if yr >= ys1 + 100 then              ЛИСТИНГ-9

randomShip; // проход ship4-7 через окно формы

if (vistrel) and (not flag_s) then begin // если произведен выстрел, то

// вывод изображения ракеты

n_kadrb:= initSprite(‘data/bullet.bmp’, 1, 1, 1, n_kadrb);

loadBuff(xb, yb + dyb, yb, 0);

yb:= yb – dyb;

if yb <= ys1 – 510 then begin           // ракета вышла за пределы окна формы

vistrel:= false;

freeBuff                               // ПЕРЕЗАГРУЗКА фона

end

end;

и также вводим “эффект взрыва” при попадании ракеты в цель (см. листинг 10):

if (yb <= yr) and  ЛИСТИНГ-10

(xb >= xr) and

(xb <= xr+100) and

(vistrel) then begin

flag_s:= true;

dyb:= 0;

n_kadre:= initSprite(‘data/explo.bmp’, 8, 1, 1, n_kadre);

loadBuff(xb-54, yb + 2, xb-54, 0);

form1.canvas.draw(0, yf, buffer);

if n_kadre = 0 then begin // конец эффекта взрыва

vistrel:= false;

flag_s:= false;

freeBuff;

randomShip

end

end;

И собственно то, чего добивались. Скомпилируем и запустим наш проект (см. рисунок):

Заключение

На этом мы закончим рассмотрение простейших приемов работы с движущимися графическими объектами. Предложу еще самостоятельно разобрать метод вывода на канву текстовой графики. Добавьте в код последнего приложения счетчики количества пусков ракет и попаданий в цель (например: count1, count2) и используя свойства Font(Size,Style,Color) и метод TextOut(X,Y, IntToStr(count..) введите статистику в приложении. Будем считать это домашним заданием…

Рассматриваемые в данной статье проекты полностью приведены в ресурсах к статье на http://www.programmersforum.ru в разделе «Журнал клуба программистов. Четвертый выпуск» (папка Lesson5*).

* Комментарий автора

Перед запуском в среде Дельфи скопируйте в папку с проектом папку data с графическими файлами.

Статья из четвертого выпуска журнала “ПРОграммист”.
Скачать этот номер можно по ссылке.
Ознакомиться со всеми номерами журнала.

Обсудить на форуме — Как работать с графикой на канве в среде Дельфи. Урок 7-8

От ведущего рассылки.

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

(читать всё…)

var
   X, Y: LongInt;
begin
   Y := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);
   X := Memo1.Perform(EM_LINEINDEX, Y, 0);
   inc(Y);
   X := Memo1.SelStart – X + 1;
   Form1.Caption := ‘X = ‘ + IntToStr(X) + ‘ : ‘ + ‘Y = ‘ + IntToStr(Y);
end;

тема на форуме

100 компонентов Delphi

stenl1:

На комп можно ставить любую операционную систему 32 или 64 бита.У меня всегда стояла 32 битная .Могу я теперь поставить 64 битную , и в чем у них разница.

В этой теме участники клуба рассказывают в чём отличие этих двух ОС. Присоединится к обсуждению