Работа с MySQL c использование Denwer

В этой статье я хотел бы поговорить как можно использовать базу MySQL из «джентльменского набора» Denwer. Многие знают, что там есть MySQL, так вот, чтобы, например, написать софт с использованием базы MySQL на Delphi не обязательно качать отдельный сервер базы MySQL, а если уже у кого-то установлен Denwer, то можно использовать его, или на крайний случай если есть хостинг, то и его. Только с хостингом могут быть не большие проблемы, например, некоторые хостинги запрещают подключение сторонних клиентов и поэтому дополнительно в вашей панели управления хостингом необходимо поставить галочку, что разрешать подключение, либо поставить фильтр на ip-адресса тех, кто может подключаться к данному хостингу. Ну для начала давайте запустим сам сервер и создадим в MySQL базу данных и пользователя с таблицей. Итак у меня вышли следующие данные

• Сервер — localhost
• Имя пользователя — test
• Пароль — test
• Имя БД — test

Порт указывать тут не требуется, если потребуется на хостинге, то в свойстве Port укажите нужный порт.

Итак, теперь необходимо договориться какие мы компоненты будем использовать для этих целей. Я в своем примере использовал компоненты myDAC. В данном посте я приложу их, но Вы сможете использовать любые другие компоненты, которые нравятся Вам для этих целей.  Здесь мы рассмотрим только как можно подключиться к нашей Базе Данных и сделаем один не большой запрос к ней, чтобы удостовериться, что мы наверняка подключились к нашей БД. Ну, а в следующих постах рассмотрим как можно все запросы и подключения вынести в потоки, всетаки есть хостинги слабые и очень медленно обрабатывают запросы, поэтому чтобы не было никаких «зависаний» программы сделаем обработку в потоках. Итак, для нашего поста нам понадобится два компонента

• TMyConnection
• TMyQuery

С ними работать также как, например, с TAdoQuery, TAdoConnection, почти также. Сразу необходимо связать между собой эти два компонента. В свойстве компонента TMyQuery - Connection выберем компонент — MyConncetion1. Далее на событие OnClick кнопки напишем код подключения к нашей БД, не забываем, что у нас сервер запущен.

Исходный код

procedure TForm1.Button1Click(Sender: TObject);
begin
    MyConnection1.Server:='localhost';
    MyConnection1.Username:='test';
    MyConnection1.Password:='test';
    MyConnection1.Database:='test';
    MyConnection1.Connect;
end;

Все данные о нашей БД мы рассмотрели выше, здесь мы только по ним подключаемся, заметьте здесь порт мы не указываем.

Таблице в нашей БД я создал под названием test_table с 2 полями

• id — уникальный (auto_increment)
• fio — TEXT

Ну и теперь на событие OnClick нашей кнопки делаем запрос в БД на выборку всех записей и выводим их количество

Исходный код

procedure TForm1.Button2Click(Sender: TObject);
begin
    MyQuery1.SQL.Clear;
    MyQuery1.SQL.Add('SELECT * FROM test_table');
    MyQuery1.Execute;
    ShowMessage(IntToStr(MyQuery1.RecordCount));
end;

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

Скачать компоненты можно тут

Скачать исходник статьи можно тут

Автор статьи - Andrey53

Метки: apache, denwer, mysql, БД, хостинг