Logo Host-telecom.com — профессиональный хостинг в Европе! Море(!) аналитической информации!
IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware
VPS с гибкой конфигурацией: за 1€

Мощные выделенные сервера: от 25€

Собственный Дата-Центр
Поддержка 24/7

Бесплатный конструктор сайтов и Landing Page

Хостинг с DDoS защитой от 2.5$ + Бесплатный SSL и Домен

SSD VPS в Нидерландах под различные задачи от 2.6$

ATLEX Выделенные серверы: в Европе / в России.

Виртуальные серверы: в Европе / в России.

Партнерская программа

Ваш сайт в 8 раз быстрее конкурентов. Хостинг от $2.95

VPS: SSD, KVM, бесплатные бэкапы и администрирование

Все необходимое для вашего сайта и лучшая техподдержка 24/7

2004 г
Алексей Паутов,

MySQL: Руководство разработчика. Версия 1.0. 20 апреля 2004 г.

Алексей Паутов,
Все о MySQL на русском: http://www.botik.ru/~rldp/mysql.htm, ftp://ftp.botik.ru/rented/rldp/www/pub
Russian LDP: http://www.botik.ru/~rldp, ftp://ftp.botik.ru/rented/rldp

содержание

6.5 Пакет TmySQL 1.0.0.99XXXX
6.5.1 Введение

TmySQL представляет собой набор классов, которые могут использоваться в delphi наряду с файлом libmysql.dll. Это альтернативный интерфейс, заменяющий собой описанный выше.

6.5.2 Установка

Просто распакуйте архив в любой удобный Вам каталог и включите его в соответствующий проект для Delphi.

Требуемый файл libmysql.dll включен в архив (Version 3.22.14-gamma, ее стоит заменить более свежей).

6.5.3 Интерфейс
unit MySql;

interface
uses classes, dialogs, sysutils;

type
  TField = class
  public
    Name: String;
    FieldType: String;
    Constructor Create(aName: String);
  end;

  TFields = class
  public
    Constructor Create(res: pmysql_res);
    Destructor Destroy; override;
    Function Count: Integer;
    Property Fields[Index: Integer]: TField read getField; default;
    Procedure Add(Value: TField);
  end;

  TTable = class
  public
    Name: String;
    Fields: TFields;
    Constructor Create(aMySql: pmysql; aName: String);
    Destructor Destroy; override;
  end;

  TTables = class
  public
    Constructor Create(aMySql: pmysql; aName: String);
    Destructor Destroy; override;
    Function Count: Integer;
    Property Tables[Index: Integer]: TTable read getTable; default;
    Procedure Add(Value: TTable);
  end;

  TDatabase = class
  public
    Name: String;
    Selected: Boolean;
    Tables: TTables;
    Constructor Create(aMySql: pmysql; aName: String);
    Destructor Destroy; override;
    Function Select: Boolean;
  end;

  TDatabases = class
  public
    Constructor Create(aMySql: pmysql);
    Destructor Destroy; override;
    Function Count: Integer;
    Property Databases[Index: Integer]: TDatabase
             read getDatabase; default;
    Procedure Add(Value: TDatabase);
  end;

  TRow = class
  public
    Constructor Create(aRow: TStringList);
    Destructor Destroy; override;
    Function Count: Integer;
    Property Databases[Index: Integer]: String read getValue; default;
    Procedure Add(Value: String);
  end;

  TRows = class
  public
    Constructor Create(res: pmysql_res; Count: Integer);
    Destructor Destroy; override;
    Function Count: Integer;
    Property Rows[Index: Integer]: TRow read getRow; default;
    Procedure Add(Value: TRow);
  end;

  TResult = class
  public
    Rows: TRows;
    Fields: TFields;
    AffectedRows: Integer;
    Constructor Create(res: pmysql_res; aMySql: pmysql);
    Destructor Destroy; override;
    Function lastError: String;
  end;

  TMySql = class
  public
    class function ClientVersion: String;
    constructor CreateConnect(aHost, aUser, aPassword: String;
                              aPort: Integer);
    destructor Destroy; override;
    function Connect: Boolean;
    function Disconnect: Boolean;
    function Connected: boolean;
    Property Name: String read getName write setName;
    Property Host: String read getHost write setHost;
    Property User: String read getUser write setUser;
    Property Password: String read getPassword write setPassword;
    Property Port: Integer read getPort write setPort;
    function getVersion: String;
    function getHostInfo: String;
    function getProtocolVersion: Integer;
    function getThreadId: Longint;
    function getStat: String;
    function getProcesses: TResult;
    function getDatabases: TDatabases;
    function Query(sql: String): TResult;
    function SelectDb(d: String): Boolean;
    function CreateDb(name: String): Boolean;
    function DeleteDb(name: String): Boolean;
    function RefreshGrants: Boolean;
  end;
6.5.4 Использование

Единственный класс, который должен когда-либо создаваться пользователем: TmySQL. Другие будут созданы и разрушены автоматически.

Чтобы создать TmySQL, используйте Create или CreateConnect, который пробует соединиться сразу же.

TmySQL.getDatabases возвращает: TDatabases, TDatabase, TTables, TTable, TFields, TField.

TmySQL.Query и TmySQL.getProcesses возвращают: TResult, TFields, TField, TRows, TRow, String.

6.5.5 Copyright и распространение

Эта программа имеет статус freeware, for personal use.

Для коммерческого использования пакет стоит US$ 20 за лицензию. К тому же, к ней будут приложены все исходные тексты интерфейсного пакета.

С разработчиком можно связаться по адресу:

Hillware I/S
Dennis Thrys°e
Solvangsvej 6, st, th
DK-9000 Aalborg
mailto:qabi@mindless.com
http://members.xoom.com/qabi

This product is:
Copyright о 1999 by Hillware I/S, Dennis Thrysøe

содержание       назад       вперед

хостинг сайтов ГиперХост — хостинг сайтов который Вы искали.

Виртуальный хостинг, Аренда VPS серверов, рация доменных имен, SSL сертификаты

💰 Самые низкие цены на домены

🔒 Отличный хостинг на SSD c бесплатными SSL

💻 Огромнейший выбор dedicated выделенных серверов

Виртуальные VPS серверы в РФ и ЕС

Dedicated серверы в РФ и ЕС

По промокоду CITFORUM скидка 30% на заказ VPS\VDS

VDS хостинг Облачный сервер в Нидерландах и Украине

Аренда виртуального сервера от $7.91

Партнёрская программа
$20 за клиента

Wildcard сертификаты от $74,97 в год.

Дешевые ssl сертификаты для домена

Sectigo сертификаты от $7,67 в год.

хостинг Украина Виртуальный хостинг для сайта от $4,87

Регистрация домена от $2 в год

Партнерская программа – $20 за клиента

Новости мира IT:

Архив новостей

Последние комментарии:

IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware

Информация для рекламодателей PR-акции, размещение рекламы — adv@citforum.ru,
тел. +7 495 7861149
Пресс-релизы — pr@citforum.ru
Обратная связь
Информация для авторов
Rambler's Top100 TopList liveinternet.ru: показано число просмотров за 24 часа, посетителей за 24 часа и за сегодня This Web server launched on February 24, 1997
Copyright © 1997-2000 CIT, © 2001-2019 CIT Forum
Внимание! Любой из материалов, опубликованных на этом сервере, не может быть воспроизведен в какой бы то ни было форме и какими бы то ни было средствами без письменного разрешения владельцев авторских прав. Подробнее...