|
|
Проблема: Нужно настроить подключение к базе данных MySQL с Delphi.
Инструментарий: Delphi 2010, Компоненты ZEOSDBO — 7.0.0 — alpha
Решение:
Все намного проще чем многие думают. Для подключения к базе данных (БД) MySQL я буду использовать компоненты ZEOS. Недавно я описывал как установить компоненты ZEOS в Delphi 2010.
При написании и создании проекта я использовал Delphi 2010. Думаю если вы используете другую версии Delphi — ничего страшного (разве что компоненты не поддерживаются вашей версией).
Перед тем как приступать что то делать я первоначально создал БД, таблицу и заполнил таблицу произвольными данными. Все это проделал с помощью альтернативного редактора, их сейчас хватает.
Так вот, после того как компоненты установлены у нас на палитре инструментов должна появится панель из названием Zeos Access (Рис. 1.)
Direct Mysql Objects v.1.1 for Delphi 1, 2, 3, 4, 5, 6 & 7
Я полагаю, что у вас уже установлен Delphi и все работает замечательно. Чтобы база MySQL была доступна из Delphi, я рекомендую скачать и установить объекты, которые упростят работу с этой базой. На самом деле, в пакете Delphi 7 уже есть некоторые компоненты, в закладке Internet, но те, которые я использую — намного удобнее.
Библиотека доступна по этому адресу: http://prdownloads.sourceforge.net/directsql/DirectMysqlObjects.zip?download
или демо версия:
http://prdownloads.sourceforge.net/directsql/DemoObjectsWin.zip?download
Чтобы установить эти компоненты, вам нужно будет разархивировать ZIP файл в директорию {$Delphi}/lib/.
Чтобы использовать эти компоненты, добавьте интерфейсные коды:
uMySqlVio, uMysqlCT, uMysqlClient, uMysqlHelpers
Вот и все, что нужно для установки.
Подробнее: MySQL и Delphi: с чего начать? Delphi 7
Всем привет, когда я рассматривал тему, про то, как можно работать с MySQL в Delphi, то в ней я приводил название компонентов, через которые осуществлялся доступ к БД и таблицам БД. Данный компонент, для доступа к MySQL, который я упоминал раньше, носит название — MyDAC. Если честно, то я не вкурсе развивается он сейчас, доступен ли он для новых версий Delphi, но зато я знаю, что компоненты ADO, уже установлены почти во всех версиях Delphi и что с помощью них, можно осуществлять доступ к БД MySQL. Один, у них, есть небольшой минус, то, что не все драйверы БД установлены сразу, некоторые приходится искать и устанавливать самому, вручную. Но, легче, ведь, скачать драйвер БД, чем компонент, который возможно не станет на Вашу версию Delphi, тем более, еще может быть и платный.
Подробнее: Подключение к MySQL через ADO
Баг… не переводит когда 0 часов....
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
Подробнее: *Settime с багом ))
// if GetCursorPos(p)=true then
// begin
SetCursorPos(0, 600);
sleep(700);
SetCursorPos(20, 590);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
sleep(300);
SetCursorPos(20, 580);
sleep(300);
SetCursorPos(20, 560);
sleep(300);
SetCursorPos(20, 540);
sleep(100);
SetCursorPos(20, 520);
sleep(100);
SetCursorPos(20, 500);
sleep(100);
SetCursorPos(20, 480);
sleep(100);
SetCursorPos(20, 460);
sleep(100);
SetCursorPos(20, 400);
sleep(100);
SetCursorPos(20, 385);
sleep(1200);
SetCursorPos(260, 420);
sleep(700);
SetCursorPos(520, 380);
sleep(500);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
sleep(100);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);
sleep(4000);
SetCursorPos(270, 30);
|
|
|
|