Delphi2006连接Mysql5.1

2.DBExpress+dbxopenmysql50.dll
可能很多人会奇怪,dbxopenmysql50.dll是什么东东?DBExpress不就是数据库连接组件了吗,为什么还要加上这个东西?这是由于Delphi2006中的DBExpress对Mysql高版本的支持很差,从国外论坛上看到的说法似乎是根本就没实现,所以说虽然TSQLConnection组件中提供了Mysql选项,但直接使用的话是不行的(低版本的mysql可能可以),我遇到的现象是提示“Unable to Load libmysql.dll”,但其实我已经在系统目录System32下、Delphi安装目录的bin中、开发工程项目文件夹中都安放了该文件,还是找不到该dll。
dbxopenmysql50.dll是由老外开发的,而且开源,还是老外好啊,可以到如下网址去下载:
http://www.justsoftwaresolutions.co.uk/delphi/dbexpress_and_mysql_5.html
使用时需要将dbxopenmysql50.dll和libmysql.dll都放到工程文件夹下。顺便提一下,libmysql.dll在mysql安装目录下的\lib\opt目录中。
使用方法有两种,一种是直接修改Borland\BDS\4.0\dbExpress下的dbxdrivers.ini,调整其中关于mysql的各参数。
另一种就是在程序中指定,现在我以这种方式为例说明这种连接方式的开发方法。
在Form上放上TSQLConnection、TSQLQuery、TStringGrid、3个TButton、TLable。界面显示如下图。

在FormCreate事件中:
SQLConnection1 := TSQLConnection.Create(nil);
SQLConnection1.DriverName := 'dbxmysql';
SQLConnection1.GetDriverFunc := 'getSQLDriverMYSQL50';
SQLConnection1.LibraryName := 'dbxopenmysql50.dll';
SQLConnection1.VendorLib := 'libmysql.dll';
SQLConnection1.LoginPrompt := false;
在此设置TSQLConnection的各个具体参数,当然也可以直接在组件属性面板中修改,或者修改dbxdrivers.ini中的对应参数,方法是多种的。
Connect按钮的事件:
SQLConnection1.Params.Append('Database=user');
SQLConnection1.Params.Append('User_Name=mysql');
SQLConnection1.Params.Append('Password=mysql');
SQLConnection1.Params.Append('HostName=localhost');
SQLConnection1.Open;
if SQLConnection1.Connected = true then
Label1.Caption := 'success'
else
Label1.Caption := 'fail';
设置数据库连接的各参数配置后,打开数据库连接,同时显示连接是否成功。
Query按钮的事件:
var
i,j: Integer;
begin
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('SELECT * FROM userinfo');
SQLQuery1.Active := true;
i := 0;
SQLQuery1.First;
while not SQLQuery1.eof do
begin
for j:=0 to SQLQuery1.FieldCount-1 do
StringGrid1.cells[j,i]:=SQLQuery1.Fields[j].AsString;
SQLQuery1.next;
inc(i);
end;
SQLQuery1.Active := false;
查询表数据并在StringGrid中输出。
Disconnect按钮的事件:
if SQLConnection1.Connected = true then
SQLConnection1.Close;
FormDestroy事件:
if SQLConnection1.Connected = true then
SQLConnection1.Close;
SQLConnection1.Free;
运行程序,点击connect按钮,如果数据库连接成功可以看到success提示,然后点击query按钮就能查询到表中的数据。

Delphi的Query控件

用Delphi做过数据库编程的朋友肯定熟悉Query控件,这个控件实现的功能是执行一条SQL语句或一个SQL脚本,在我们进行数据库开发中使用的频率非常高。笔者在多年的使用过程中发现用好这个控件有两点要非常注意。

    第一点是:区分好Query控件的Open方法和ExecSQL方法。这两个方法都可以实现执行SQL语句,但要根据不同情况分别使用。如果这条SQL语句将返回一个结果集,必须使用Open方法,如果不返回一个结果集,则要使用ExecSQL方法。例如:

    ……

    Query1:Tquery

    Query2:Tquery

    ……

    Query1.Close;

    Query1.SQL.Clear;

    Query1.SQL.Add('select * from  AA');

    Query1.Open;

    ……

    Query2.Close;

    Query2.SQL.Clear;

    Query2.SQL.Add('delete  AA');

    Query2.ExecSQL;

    ……

    上述的例子中,Query1所执行的SQL语句将返回一个结果集,因此必须用Open方法;而Query2所执行的是一条删除表记录语句,不返回结果集,因此用ExecSQL方法。

    第二点是:如果Query控件用Open方法执行SQL语句,并且所用的SQL语句访问的是一张或几张频繁使用的表,在执行完SQL语句后,一定要调用SQL的FetchAll方法,能大大地减少死锁发生的概率。例如:

    ……

    Query1:Tquery

    ……

    Query1.Close;

    Query1.SQL.Clear;

    Query1.SQL.Add('select * from  AA');

    Query1.Open;

    Query1.FetchAll;

    ……

在上述的例子中,如果AA是一张被频繁访问的表,在对这个表执行这一条select语句的同时,如果恰好有其他人对这张表执行删除或更新操作,便有可能发生死锁。Query1.FetchAll这条语句实现的功能是释放加在表AA上的锁,这样死锁的发生概率可以大大减少。避免死锁,对我们将来进行大型数据库开发尤为重要。"

连接 mysql 详细步骤

看你是使用什么组件了,现在Delphi连接使用mysql数据库,最简单的就是 Delphi连接mysql的一个三方控件很好用的,,Delphi盒子和很多关于Delphi下载的网站都有下载的

你跟我遇到的问题是一样,我今天才解决了这个问题
用ADOconnection,但是ADO没有mysql的驱动,你要去下载一个mysql.dll,放在bin目录,直接use connection string TADOConnection的ConnectionString = 'DRIVER={MySQL ODBC 3.51
Driver};SERVER=MySQL数据库服务器;DATABASE=数据库名字;USER=用户
名;PASSWORD=密码;OPTION=;'DRIVER={MySQL ODBC 3.51
Driver};SERVER=192.168.1.22;DATABASE=rule;USER=WJH;PASSWORD=;OPTION=; 就可以连上了,我就是这么连上的!

delphi中使用libmysql.dll连接MySQL

LIBMYSQL.DLL------------You can also access a MySQL server using the libmysql.dll library. Thisfile doesn't come with the standard MySQL installation, but you candownload it from: http://www.fichtner.net/delphi/mysql.delphi.phtmlYou should also download the mysql.pas file which is a Delphi a unitthat contains the type declarations for using this library. You need toinclude this unit in the uses clause of any unit from which you want tocall the functions contained in the library.The following example opens a connection to MySql server, opens adatabase, performs a query and stores the result in a StringGrid, andfinally closes the connection. uses ..., mysql; procedure TForm1.Button1Click(Sender: TObject); var mysqlcon: TMySQL; // MySQL-connection structure presults: pmysql_res; // Pointer to a results structure prow: pmysql_row; // Pointer to a row structure pfields: PMYSQL_FIELDS; // Pointer to a fields array i, j: Integer; // Counters begin // Connect to the server mysql_connect(@mysqlcon, 'localhost', 'root', ''); if mysqlcon.net.last_errno <> 0 then begin ShowMessage (Trim(mysqlcon.net.last_error)); exit; end; // Open the mysql database if mysql_select_db(@mysqlcon, 'mysql') <> 0 then begin mysql_close(@mysqlcon); // Disconnect ShowMessage('Couldn''t open mysql database'); exit; end; presults:= nil; try // Send the query to the server and get the results mysql_query(@mysqlcon, 'SELECT * FROM user'); presults := mysql_store_result(@mysqlcon); // Set the size of the grid StringGrid1.ColCount := presults^.field_count; StringGrid1.RowCount := presults^.row_count + 1; // Fill the grid header with the fields' names pfields := presults^.fields; for j :=  to presults^.field_count - do StringGrid1.Cells[j, ] := pfields^[j].name; // Fill the grid for i := 1 to presults^.row_count do begin prow := mysql_fetch_row(presults); for j := 0 to presults^.field_count -1 do StringGrid1.Cells[j, i]:= prow^[j]; end; finally mysql_free_result(presults); // Release memory mysql_close(@mysqlcon); // Disconnect end; end;As you can see, it's quite complicated, and this constitutes the main(and I would say only, but very important) disadvantage of using thelibmysql.dll library. The advantages are that you have full control,that it's faster than using ODBC, and that it doesn't requiere the BDE.It would be nice to have a TDataset descendant that encapsulates thelibmysql.dll API...
LIBMYSQL.DLL -----------您也可以访问MySQL服务器使用的libmysql.dll库。 Thisfile不标准的MySQL安装,但你candownload从http://www.fichtner.net/delphi/mysql.delphi.phtmlYou还应该下载mysql.pas的文件,这是一个Delphi一个unitthat的包含使用这个库的类型声明。您需要toinclude,这个单位的使用条款,任何单位要从其中tocall包含的功能库。下面的例子中,打开一个连接到MySQL服务器,打开adatabase,执行查询和存储的StringGrid的结果在,andfinally关闭连接。用途,mysql的程序TForm1.Button1Click(发件人TObject的)VAR mysqlcon:TMySQL的的/ / MySQL的连接结构presults:pmysql_res; / /指针业绩结构船头:pmysql_row / /行结构的指针如果mysqlcon.net.last_errno的,J:整数pfields:PMYSQL_FIELDS; / /指针的领域阵列I / /计数器开始/ /连接到服务器MYSQL_CONNECT(@ mysqlcon,'localhost'的'根',''); <> 0,然后开始'绂诲紑镞堕棿搴斿ぇ浜庡叆浣忔椂闂达紒(修剪(mysqlcon.net.last_error));退出;结束; / /打开mysql数据库mysql_select_db(@ mysqlcon,'mysql的')<> 0,则mysql_close(@ mysqlcon); / /开始不能公开的mysql数据库'断开'绂诲紑镞堕棿搴斿ぇ浜庡叆浣忔椂闂达紒()退出;结束; presults:=零; / /查询发送到服务器,并得到的结果,请求mysql_query(@ mysqlcon,“SELECT * FROM用户); presults = mysql_store_result(@ mysqlcon); / /设置电网StringGrid1.ColCount的大小:= presults ^。field_count的StringGrid1.RowCount:= presults ^。ROW_COUNT + 1 / /填充的网格头字段的名称pfields的:对于j = presults ^领域;:= 0到presults ^ -1。field_count的做的StringGrid1.Cells [J,0]:= pfields ^ [J]。名; / /填充i的网格:= 1 presults的^。ROW_COUNT开始船头:= mysql_fetch_row的(presults)在J:= 0到presults ^ -1。field_count的做StringGrid1.Cells,[J]:=船头^ [J];结束;终于了mysql_free_result(presults); / /释放内存则mysql_close(@ mysqlcon)在/ /断开年底结束,正如你可以看到,它是相当复杂,这构成了主要的(我会说,但很重要的)的缺点使用thelibmysql.dll库的。其优点是可以完全控制它的速度比使用ODBC,,它不requiere的BDE.It将是不错的一个封装thelibmysql.dll API的的TDataSet的传人,...

在delphi中设计mysql的数据连接

如何在delphi中设计mysql的数据连接
-- :使用delphi连接mysql做成一个二级服务管理系统应该是中小数据管理模式的一种比较理想的应用,
.使用delphi的客户端用户界面比采用浏览器方式的界面更可以增强客户端的易用性,功能更全面,
.使用mysql的服务器端软件可以节约开支(对不能使用盗版软件而言),功能也较强大,是现在流行的 数据库管理软件,会使用的人很多。 由于delphi本身提供的mysql连接方式只能支持mysql3.以下版本的mysql,故对于现在普遍使用的5.以 上的版本无法提供支持,在使用进将会得到“unable to load libmysql”的错误提示。 对于该问题的解决有几种方式,目前我使用的是一种用dbxopenmysql50.dll替换掉delphi本身自带的 dbexpmysql.dll。 进行替换的两种方式
1。直接将下载的dbxopenmysql50.dll改名为dbexpmysql.dll存到C:\Program Files\Borland\Delphi7 \Bin,对原文件进行替换,然后在程序设计中还要修改connction下的的GetDriverFunc改为 getSQLDriverMYSQL50。 .将dbxopenmysql50.dll拷贝到用户设计目录,然后在程序设计中将connection下的libraryname改为 dbxopenmysql50.dll,GetDriverFunc改为getSQLDriverMYSQL50。 示例程序及源代码:
先在程序中添加控件simpledataset1、datasource1、dbgrid1
edit1 输入入主机名
edit2 输入端口(此外此功能无效,因为无法对端口进行更改)
edit3 数据库名
edit4 连接mysql数据库的用户名
edit5 连接mysql数据库的密码
edit6 表名 设置button1 的caption为退出
设置button2 的caption为连接
设置datasource1的dataset为simpledataset1
设置dbgrid1的datasource为datasource1 双击连接button2输入以下代码
with simpledataset1.Connection do
begin
DriverName := 'dbxmysql';
GetDriverFunc := 'getSQLDriverMYSQL50';
LibraryName := 'dbxopenmysql50.dll';
VendorLib := 'libmysql.dll';
Params.Append('HostName=localhost'); // Params.Append('HostName='+edit1.Text+':'+edit2.Text);
// Params.Append('port='+edit2.Text );
Params.Append('Database='+edit3.Text );
Params.Append('User_Name='+edit4.Text );
Params.Append('Password='+edit5.Text ); end;
simpledataset1.DataSet.CommandText :='select * from '+edit6.Text ;
simpledataset1.Open;
双击退出button1输入以下代码
simpledataset1.close;
close; 完成后的程序代码总清单为: unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBXpress, FMTBcd, DB, Grids, DBGrids, SqlExpr, DBClient,
SimpleDS, StdCtrls; type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
SimpleDataSet1: TSimpleDataSet;
DataSource1: TDataSource;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button2: TButton;
Label5: TLabel;
Edit5: TEdit;
Edit6: TEdit;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1;
Connection: TSQLConnection;
implementation {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject);
begin
with simpledataset1.Connection do
begin
DriverName := 'dbxmysql';
GetDriverFunc := 'getSQLDriverMYSQL50';
LibraryName := 'dbxopenmysql50.dll';
VendorLib := 'libmysql.dll';
Params.Append('HostName=localhost'); // Params.Append('HostName='+edit1.Text+':'+edit2.Text);
// Params.Append('port='+edit2.Text );
Params.Append('Database='+edit3.Text );
Params.Append('User_Name='+edit4.Text );
Params.Append('Password='+edit5.Text ); end;
simpledataset1.DataSet.CommandText :='select * from '+edit6.Text ;
simpledataset1.Open;
end; procedure TForm1.Button1Click(Sender: TObject);
begin
simpledataset1.close;
close; end;
procedure TForm1.FormCreate(Sender: TObject);
begin end; end. 转载请注作者:nathen.zhang Email:nathen.zhang@gmail.com

访问mysql,using libmysql.dll ; mysql.pas从哪里下载

http://www.audio-data.de/mysql.html

Deutsch
mysql.pas (Version --)
Client API for MySQL AB`s SQL Database Server using LibMySql.dll or LibMySqld.dll (Embeeded MYSQL Server). It is a Pascal translation of mysql.h and some other C header files needed for writing clients for the MySQL database server.
The unit is tested with:
Delphi Versions: (), (), , , , , .
LibMySql.dll Versions: 3.23, 4.0, 4.1, 5.0, 5.1, 6.0
MySQL-Server Versions: 3.23, 4.0, 4.1, 5.0, 5.1 Download mysql.pas The contents of the file mysql.pas are used with permission, subject to the Mozilla Public License Version 1.1 (the "License"); you may not use this file except in compliance with the License. You may obtain a copy of the License at http://www.mozilla.org/MPL/MPL-1.1.html
Other components: SimpleXML Change log -- (so) Page created -- (so) Demo application -- (so) Improved dynamic loading -- (so) Demo Delphi Added functions: mysql_autocommit, mysql_set_character_set,
mysql_commit, mysql_rollback, mysql_set_server_option,
mysql_sqlstate, mysql_warning_count, MySql_StrLen,
CharSetNameToCodepage, CodepageToCharSetName, MySqlToUTF16,
UTF16ToMySql -- (so) Added functions: mysql_server_init, mysql_server_end,
Support for prepared statements -- (so) Added records: TNET501, TMYSQL501 -- (so) Added functions mysql_thread_init, mysql_thread_end -- (so) Added functions mysql_more_results, mysql_next_result, FormatIdentifier -- (so) Added functions EscapeString, EscapeForLike, QuoteString, FullFieldname
Change FormatIdentifier to QuoteName -- (so) Bug in GetVersion fixed -- (so) ThreadDemo added LIBMYSQL.DLL ------------ You can also access a MySQL server using the libmysql.dll library. This file doesn't come with the standard MySQL installation, but you can download it from: http://www.dlldll.com/libmysql.dll_download.html You should also download the mysql.pas file which is a Delphi a unit that contains the type declarations for using this library. You need to include this unit in the uses clause of any unit from which you want to call the functions contained in the library. The following example opens a connection to MySql server, opens a database, performs a query and stores the result in a StringGrid, and finally closes the connection. uses ..., mysql; procedure TForm1.Button1Click(Sender: TObject); var mysqlcon: TMySQL; // MySQL-connection structure presults: pmysql_res; // Pointer to a results structure prow: pmysql_row; // Pointer to a row structure pfields: PMYSQL_FIELDS; // Pointer to a fields array i, j: Integer; // Counters begin // Connect to the server mysql_connect(@mysqlcon, 'localhost', 'root', ''); if mysqlcon.net.last_errno <> 0 then begin ShowMessage (Trim(mysqlcon.net.last_error)); exit; end; // Open the mysql database if mysql_select_db(@mysqlcon, 'mysql') <> 0 then begin mysql_close(@mysqlcon); // Disconnect ShowMessage('Couldn''t open mysql database'); exit; end; presults:= nil; try // Send the query to the server and get the results mysql_query(@mysqlcon, 'SELECT * FROM user'); presults := mysql_store_result(@mysqlcon); // Set the size of the grid StringGrid1.ColCount := presults^.field_count; StringGrid1.RowCount := presults^.row_count + 1; // Fill the grid header with the fields' names pfields := presults^.fields; for j := to presults^.field_count - do StringGrid1.Cells[j, ] := pfields^[j].name; // Fill the grid for i := 1 to presults^.row_count do begin prow := mysql_fetch_row(presults); for j := 0 to presults^.field_count -1 do StringGrid1.Cells[j, i]:= prow^[j]; end; finally mysql_free_result(presults); // Release memory mysql_close(@mysqlcon); // Disconnect end; end; As you can see, it's quite complicated, and this constitutes the main (and I would say only, but very important) disadvantage of using the libmysql.dll library. The advantages are that you have full control, that it's faster than using ODBC, and that it doesn't requiere the BDE. It would be nice to have a TDataset descendant that encapsulates the libmysql.dll API...

delphi mysql的更多相关文章

  1. Delphi+MySQL:TADOQuery使用插入中文乱码解决方法

    Delphi+MySQL:TADOQuery使用插入中文乱码解决方法 with adoquery dobeginclose;sql.clear;sql.text:=' insert into test ...

  2. delphi+mysql做的图书管理系统,怎么把mysql数据库也一起打包进去?我用的是delphi的Express组件。

    sqlconnection,sqlquery1这些组件,我连接数据库的时候是用对象编辑器里的属性进行连接的,在sqlconnection中指定了字符集utf8,有些人做的方法是利用代码连接的数据库,如 ...

  3. Delphi连接MySql(待测试验证,使用mysql.pas未通过)

    要在一个Delphi程序中调用Mysql数据库,查到有个资料如下,待验证,验证后会给出结果.暂时做个标记 已经验证,验证日期:2018.6.18 验证结果:不可行 验证工具:XE7,mysql5.5. ...

  4. Delphi 7连接MySql 5.5.15

    原文:http://blog.csdn.net/akof1314/article/details/6822902/ 网上有很多关于Delphi连接MySql数据库的文章,在这里,我只记录下自己测试过的 ...

  5. delphi 连接mysql

    Delphi连接MySQL真麻烦,研究了一天,从网上找了无数文章,下载了无数插件都没解决.最后返璞归真,老老实实用ADO来连接,发现也不是很顺利,但最终还是连接成功了.多少有点心得:ADO各个组件的作 ...

  6. Delphi FireMonkey使用UniDAC 连接MySQL

    首次用Delphi XE6 开发安卓程序,并没有在网上找到连接远程MySQL服务器的文档,自己摸索一番,发现UniDAC控件新版本也已支持了FireMonkey下的开发.遂记下连接方法和大家分享. 1 ...

  7. Delphi能通过SSH登录Linux,连接MYSQL取数么?像Navicat一样

    百度随时就能搜,你就懒得搜下.http://tieba.baidu.com/p/671327617 Ssh tunnel通常能实现3种功能1) 加密网络传输2) 绕过防火墙3) 让位于广域网的机器连接 ...

  8. Delphi XE中使用dbExpress连接MySQL数据库疑难问题解决(对三层的例子配置有帮助)

    Delphi IDE中包含一个Data Explorer的组件,如下图所示: 该组件基于dbExpress(包含TSQLConnection.TSQLDataSet.TSQLQuery.TSQLSto ...

  9. Delphi 7连接MySql 5.5.15(转)

    网上有很多关于Delphi连接MySql数据库的文章,在这里,我只记录下自己测试过的方法,以备所需.系统环境:Windows XP SP3软件环境:Delphi 7 .mysql-installer- ...

随机推荐

  1. loj2064[HAOI2016]找相同字符

    题意:给你两个字符串,问其中各取一个子串,有多少对相同?n<=20W. 标程: #include<bits/stdc++.h> using namespace std; typede ...

  2. 二进制搭建一个完整的K8S集群部署文档

    服务器规划 角色 IP 组件 k8s-master1 192.168.31.63 kube-apiserver kube-controller-manager kube-scheduler etcd ...

  3. Collections 工具类常见方法

    Collections 工具类常用方法: 排序 查找,替换操作 同步控制(不推荐,需要线程安全的集合类型时请考虑使用 JUC 包下的并发集合) 排序操作 void reverse(List list) ...

  4. C/C++ GBK和UTF8之间的转换

    { 关于GBK和UTF-8之间的转换,很多初学者会很迷茫. 一般来说GBK和UTF-8是文字的编码方式,其对应的内码是不一样的,所以GBK和UTF-8的转换需要对内码进行一一映射,然后进行转换. 对于 ...

  5. Android Studio奇淫巧技

    目录 3.1 Android Studio使用初探 Project面板 Stucture面板 Android Monitor Keymap Tip of the Day 快速查找 Search Act ...

  6. 半途而废的Java爬虫学习经历

    最近在面试,发现Java爬虫对于小数据量数据的爬取的应用还是比较广,抽空周末学习一手,留下学习笔记 Java网络爬虫 简单介绍 爬虫我相信大家都应该知道什么,有什么用,主要的用途就是通过程序自动的去获 ...

  7. 树分基础 bzoj 1468

    我们对于一棵树,我们找一个根,然后统计过这个点的路径有多少符合要求.怎么搞呢?我们可以先维护一个数据结构,然后把先把根作为一个距离自己为0的点放进去,然后对于每一棵子树,先找出所有的与之前的数据结构的 ...

  8. 「ZJOI2019」线段树 解题报告

    「ZJOI2019」线段树 听说有人喷这个题简单,然后我就跑去做,然后自闭感++,rp++(雾) 理性分析一波,可以发现最后形成的\(2^k\)个线段树,对应的操作的一个子集,按时间顺序作用到这颗线段 ...

  9. python内置模块-random

    print(random.randint(1,10)) 生成随机整数,下限必须小于上限print(random.randrange(1,10)) 生成随机整数,参数为([start],stop,[st ...

  10. [7.18NOIP模拟测试5]砍树 题解(数论分块)

    题面(加密) 又考没学的姿势……不带这么玩的…… 考场上打了个模拟 骗到30分滚粗了 稍加思考(滑稽)可将题面转化为: 求一个最大的$d$,使得 $\sum \limits _{i=1}^n {(\l ...