blocks|key|3627746|text|您可以使用以下任一选项：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3627747|3627748|TmySQL在2002.|unordered-list-item|offset|length|3627749|mysql.pas上发布的最新版本，可与最新的Delphi版本(从D3到DXE2)+/+MySQL版本3.23、4.0、4.1、5.0、5.1协同工作。|3627750|3627751|entityMap|0|LINK|mutability|MUTABLE|url|http://www.productivity.org/projects/tmysql/|1|http://www.audio-data.de/delphi/mysql/mysql.zip^0|0|0|0|6|0|0|0|9|1|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|V|8|@]|9|@]|A|$]]|$1|C|3|D|5|E|7|W|8|@]|9|@$F|X|G|Y|1|Z]]|A|$]]|$1|H|3|I|5|E|7|10|8|@]|9|@$F|11|G|12|1|13]]|A|$]]|$1|J|3|-4|5|6|7|14|8|@]|9|@]|A|$]]|$1|K|3|-4|5|6|7|15|8|@]|9|@]|A|$]]]|L|$M|$5|N|O|P|A|$Q|R]]|S|$5|N|O|P|A|$Q|T]]]]

You can use either:

<ul>
<li><a href="http://www.productivity.org/projects/tmysql/" rel="nofollow">TmySQL</a> latest version released on 2002.</li>
<li><a href="http://www.audio-data.de/delphi/mysql/mysql.zip" rel="nofollow">mysql.pas</a> which works with recent Delphi version (D3 through DXE2) / MySQL version 3.23, 4.0, 4.1, 5.0, 5.1.</li>
</ul>

blocks|key|25265|text|多年来，我一直在寻找和使用许多免费和付费的工具。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|25266|第一个免费是软弱或困难的，至少你需要太多的代码来做简单的任务，可以在一个或两个功能在付费工具。|25267|付费工具我使用了Devart+MyDAC和MySQL的microOLAP，它们是这一领域排名最高的工具。我使用mydac大约有两年了，但最近由于很多原因，我转而使用用于MySQL的MicroOLAP+DAC作为更好的替代方案。|25268|25269|microlap+mydac更小，更易于维护、安装和使用，mydac的细节更大，其中许多细节和属性在以错误的方式使用时会给出不清楚的错误。由于microolap更小，它几乎没有错误，而且更容易使用。|unordered-list-item|25270|mydac在TmyDump+vcl组件中有一个unicode问题，该问题会在下一次更新中重复出现并修复，并在下一次更新中重新出现，依此类推。这个bug创建了一个包含unicode数据的非unicode备份文件，当用修复的版本恢复时会导致错误的unicode转换和数据的损坏，MicroOLAP工具与其相似的组件和较少的细节没有问题。|25271|我相信简单比复杂好得多，更容易，也没有错误。这是我从MicroOLAP转换为MySQL的主要原因。|25272|25273|对于任何严肃的数据库业务开发人员来说，这是我对这个重要的基础主题的简单体验。|25274|我也尝试了新的FireDAC，我强烈反对使用它，太复杂了，很难处理unicode，很难部署。|25275|祝你好运。|25276|entityMap^0|0|0|0|0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|W|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|X|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|Y|8|@]|9|@]|A|$]]|$1|F|3|-4|5|6|7|Z|8|@]|9|@]|A|$]]|$1|G|3|H|5|I|7|10|8|@]|9|@]|A|$]]|$1|J|3|K|5|I|7|11|8|@]|9|@]|A|$]]|$1|L|3|M|5|I|7|12|8|@]|9|@]|A|$]]|$1|N|3|-4|5|6|7|13|8|@]|9|@]|A|$]]|$1|O|3|P|5|6|7|14|8|@]|9|@]|A|$]]|$1|Q|3|R|5|6|7|15|8|@]|9|@]|A|$]]|$1|S|3|T|5|6|7|16|8|@]|9|@]|A|$]]|$1|U|3|-4|5|6|7|17|8|@]|9|@]|A|$]]]|V|$]]

i have been looking and using for years many tools, free and paid.

1st free is weak or difficult, at least u need too much code to do simple tasks which can be done in one or two functions in paid tools.

Paid tools i have used Devart MyDAC and microOLAP for MySQL which are the top rated tools in this area.
i used mydac for around 2 years, but lately i moved to MicroOLAP DAC for MySQL as a better alternative for many reasons

<ul>
<li>microlap mydac is much smaller, much easier to maintain and install and to use, mydac is much bigger details and many of these details and properties give unclear errors when used in some wrong way. since microolap is smaller, it is almost error free, and easier to use.</li>
<li>mydac has a unicode issue in TmyDump vcl component, which repeatly appear and fixed in next update and reappear in the next one, fixed in the next and so on. this bug creats a nonunicode backup file containing unicode data, which when restore with the fixed version will cause wrong unicode conversion and damage of data, MicroOLAP tool has no issue with that with its similar component and smaller amount of details.</li>
<li>i believe simplicity is much better than complications, easier, and much bug free. that is main reasons for me to convert to DAC for MySQL from MicroOLAP.</li>
</ul>

that is my simple experiement with this important basic subject for any serious database busniness developer.

i tried also the new FireDAC, i highly discourage to use it, too much complications, difficult unicode handling, difficult to deploy.

Have luck.

blocks|key|3627775|text|您可以使用dbExpress。您唯一需要的是来自5.1.X服务器的libmysql.dll。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3627776|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

You can use dbExpress. The only thing you will need is libmysql.dll from 5.1.X server.

blocks|key|1042654|text|我多年来一直在使用MyDac，它是Delphi中最好的DAC组件之一。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1042655|它是唯一提供直接连接到MySql的原生组件(No+ODBC，No+OLEDB，No+libmysql.dll)。|1042656|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|F|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|G|8|@]|9|@]|A|$]]|$1|D|3|-4|5|6|7|H|8|@]|9|@]|A|$]]]|E|$]]

I have been using MyDac since years, which is one of best DAC components for Delphi.

AFAIK it's the only native component that offer Direct Connection to MySql (No ODBC, No OLEDB, No libmysql.dll).

blocks|key|1045001|text|这是我在Delphi+XE4中使用的(在以前的版本中也适用)。它在运行时创建组件。注意:如果您想创建数据库，则需要使用默认的MySQL数据库'mysql‘。确保检查您是否有权访问它，将try..except..end；放入代码中。是的，它需要将dbxmys.dll和libmysql.dll放在与*.exe相同的文件夹中。这个视频可能会给你一些提示，http://www.youtube.com/watch?v=6mRGAB4LsEE|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1045002|unit+MainUnit;

interface

uses
++System.SysUtils,+System.Types,+System.UITypes,+System.Rtti,+System.Classes,
++System.Variants,+FMX.Types,+FMX.Controls,+FMX.Forms,
++FMX.StdCtrls,+Data.DBXMySQL,+FMX.Edit,+Data.DB,+Data.SqlExpr,+FMX.Dialogs,+Windows,
++Data.FMTBcd,+FMX.Layouts,+FMX.Memo,+FMX.ListBox,+FMX.ListView.Types,
++FMX.ListView;

type
++TForm3+=+class(TForm)
++++Button1:+TButton;
++++Label1:+TLabel;
++++Edit1:+TEdit;
++++Memo1:+TMemo;
++++ListBox1:+TListBox;
++++procedure+Button1Click(Sender:+TObject);
++private
++++{+Private+declarations+}
++public
++++{+Public+declarations+}
++++MySQLConnection:+TSQLConnection;
++++MySQLQuery:+TSQLQuery;
++++Function+ConnectToMySQLDatabase(szHostName,+szUserName,+szPassword,+szDatabaseName:+String):+boolean;
++end;

var
++Form3:+TForm3;

implementation

{$R+*.fmx}


procedure+TForm3.Button1Click(Sender:+TObject);
begin
++if+ConnectToMySQLDatabase('localhost',+'root',+'passw_ord',+'table_name')+=+False+then
++++Caption+:=+'Not+Connected'
++else
++++begin
++++++Caption+:=+'Connected';
++++++try
++++++++MySQLQuery.SQL.Clear;
++++++++{MySQLQuery.SQL.Add('insert+into+table_name(vardas_pavarde,+asmens_kodas,+kodas,+pazym_nr,+registravimo_data,+'%2B
++++++++++'data_nuo_kada_taikomas,+isregistravimo_data,+negalioja_nuo,+paskelbimas_negaliojanciu,+priezastis,+pastabos)+'%2B
++++++++++'values+("Edijs+Test",+"3001000",+"38",+"PazPK122",+"2013.05.03",+"2013.06.01",+NULL,+NULL,+NULL,+"Tuščia",+'%2B
++++++++++'"ąčęėįšįųūž");');}
++++++++MySQLQuery.SQL.Add('select+*+from+table_name+where+vardas_pavarde="edIJS+tEst";');
++++++++MySQLQuery.Open;
++++++++Memo1.Lines.Add(VarToSTr(MySQLQuery['vardas_pavarde']));
++++++++Memo1.Lines.Add(VarToSTr(MySQLQuery['asmens_kodas']));
++++++++Memo1.Lines.Add(VarToSTr(MySQLQuery['pastabos']));
++++++++MySQLQuery.Close;
++++++except
++++++++on+E:+Exception+do
++++++++++++MessageBox(0,+PWideChar(E.Message),+'Error',+MB_ICONERROR);
++++++end;
++++end;
end;

Function+TForm3.ConnectToMySQLDatabase(szHostName,+szUserName,+szPassword,+szDatabaseName:+String):+boolean;
begin
++MySQLConnection+:=+FindComponent('MySQLConnection')+as+TSQLConnection;
++if+not+Assigned(MySQLConnection)+then
++++MySQLConnection+:=+TSQLConnection.Create(Self);
++MySQLConnection.DriverName+:=+'MySQL';
++MySQLConnection.GetDriverFunc+:=+'getSQLDriverMYSQL';
++MySQLConnection.LibraryName+:=+'dbxmys.dll';
++MySQLConnection.VendorLib+:=+'LIBMYSQL.dll';
++MySQLConnection.Params.Values['HostName']+:=+szHostName;
++MySQLConnection.Params.Values['Database']+:=+szDatabaseName;
++MySQLConnection.Params.Values['User_Name']+:=+szUserName;
++MySQLConnection.Params.Values['Password']+:=+szPassword;
++MySQLConnection.Params.Values['ServerCharSet']+:=+'utf8';
++MySQLConnection.LoginPrompt+:=+False;
++try
++++MySQLConnection.Connected+:=+True;
++++MySQLQuery+:=+FindComponent('MySQLQuery')+as+TSQLQuery;
++++if+not+Assigned(MySQLQuery)+then
++++++MySQLQuery+:=+TSQLQuery.Create(Self);
++++MySQLQuery.SQLConnection+:=+MySQLConnection;
++++Result+:=+True;
++except
++++on+E:+Exception+do
++++begina
++++++MessageBox(0,+PWideChar(E.Message),+'Error',+MB_ICONERROR);
++++++Result+:=+False;
++++end;
++end;
end;

end.|code-block|syntax|javascript|1045003|entityMap|0|LINK|mutability|MUTABLE|url|http://www.youtube.com/watch?v=6mRGAB4LsEE^0|4V|16|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@$A|R|B|S|1|T]]|C|$]]|$1|D|3|E|5|F|7|U|8|@]|9|@]|C|$G|H]]|$1|I|3|-4|5|6|7|V|8|@]|9|@]|C|$]]]|J|$K|$5|L|M|N|C|$O|P]]]]

This is what I use in Delphi XE4 (works in previous versions too). It creates components during runtime. Note: if you want to create databases, the default MySQL database 'mysql' needs to be used. Make sure you check if you have access to it, put try..except..end; in your code. And yes, it requires having dbxmys.dll and libmysql.dll in the same folder as your *.exe. This video might give you some hints <a href="http://www.youtube.com/watch?v=6mRGAB4LsEE" rel="nofollow">http://www.youtube.com/watch?v=6mRGAB4LsEE</a>

<pre><code>unit MainUnit;

interface

uses
 System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes,
 System.Variants, FMX.Types, FMX.Controls, FMX.Forms,
 FMX.StdCtrls, Data.DBXMySQL, FMX.Edit, Data.DB, Data.SqlExpr, FMX.Dialogs, Windows,
 Data.FMTBcd, FMX.Layouts, FMX.Memo, FMX.ListBox, FMX.ListView.Types,
 FMX.ListView;

type
 TForm3 = class(TForm)
 Button1: TButton;
 Label1: TLabel;
 Edit1: TEdit;
 Memo1: TMemo;
 ListBox1: TListBox;
 procedure Button1Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 MySQLConnection: TSQLConnection;
 MySQLQuery: TSQLQuery;
 Function ConnectToMySQLDatabase(szHostName, szUserName, szPassword, szDatabaseName: String): boolean;
 end;

var
 Form3: TForm3;

implementation

{$R *.fmx}


procedure TForm3.Button1Click(Sender: TObject);
begin
 if ConnectToMySQLDatabase('localhost', 'root', 'passw_ord', 'table_name') = False then
 Caption := 'Not Connected'
 else
 begin
 Caption := 'Connected';
 try
 MySQLQuery.SQL.Clear;
 {MySQLQuery.SQL.Add('insert into table_name(vardas_pavarde, asmens_kodas, kodas, pazym_nr, registravimo_data, '+
 'data_nuo_kada_taikomas, isregistravimo_data, negalioja_nuo, paskelbimas_negaliojanciu, priezastis, pastabos) '+
 'values ("Edijs Test", "3001000", "38", "PazPK122", "2013.05.03", "2013.06.01", NULL, NULL, NULL, "Tuščia", '+
 '"ąčęėįšįųūž");');}
 MySQLQuery.SQL.Add('select * from table_name where vardas_pavarde="edIJS tEst";');
 MySQLQuery.Open;
 Memo1.Lines.Add(VarToSTr(MySQLQuery['vardas_pavarde']));
 Memo1.Lines.Add(VarToSTr(MySQLQuery['asmens_kodas']));
 Memo1.Lines.Add(VarToSTr(MySQLQuery['pastabos']));
 MySQLQuery.Close;
 except
 on E: Exception do
 MessageBox(0, PWideChar(E.Message), 'Error', MB_ICONERROR);
 end;
 end;
end;

Function TForm3.ConnectToMySQLDatabase(szHostName, szUserName, szPassword, szDatabaseName: String): boolean;
begin
 MySQLConnection := FindComponent('MySQLConnection') as TSQLConnection;
 if not Assigned(MySQLConnection) then
 MySQLConnection := TSQLConnection.Create(Self);
 MySQLConnection.DriverName := 'MySQL';
 MySQLConnection.GetDriverFunc := 'getSQLDriverMYSQL';
 MySQLConnection.LibraryName := 'dbxmys.dll';
 MySQLConnection.VendorLib := 'LIBMYSQL.dll';
 MySQLConnection.Params.Values['HostName'] := szHostName;
 MySQLConnection.Params.Values['Database'] := szDatabaseName;
 MySQLConnection.Params.Values['User_Name'] := szUserName;
 MySQLConnection.Params.Values['Password'] := szPassword;
 MySQLConnection.Params.Values['ServerCharSet'] := 'utf8';
 MySQLConnection.LoginPrompt := False;
 try
 MySQLConnection.Connected := True;
 MySQLQuery := FindComponent('MySQLQuery') as TSQLQuery;
 if not Assigned(MySQLQuery) then
 MySQLQuery := TSQLQuery.Create(Self);
 MySQLQuery.SQLConnection := MySQLConnection;
 Result := True;
 except
 on E: Exception do
 begina
 MessageBox(0, PWideChar(E.Message), 'Error', MB_ICONERROR);
 Result := False;
 end;
 end;
end;

end.
</code></pre>

blocks|key|1042687|text|在Delphi7中将DB+Express与MySQL+5.x一起使用请参阅此链接|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1042688|http://www.justsoftwaresolutions.co.uk/delphi/dbexpress_and_mysql_5.html|offset|length|1042689|entityMap|0|LINK|mutability|MUTABLE|url^0|0|0|20|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|N|8|@]|9|@$D|O|E|P|1|Q]]|A|$]]|$1|F|3|-4|5|6|7|R|8|@]|9|@]|A|$]]]|G|$H|$5|I|J|K|A|$L|C]]]]

Use DB Express with MySQL 5.x in Delphi 7
See this link

<a href="http://www.justsoftwaresolutions.co.uk/delphi/dbexpress_and_mysql_5.html" rel="nofollow">http://www.justsoftwaresolutions.co.uk/delphi/dbexpress_and_mysql_5.html</a>

I am looking into a free solution to connect delphi with a mysql database but without using ODBC.Is there such a component ?

Thanks.

MySql and Delphi direct connection

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

教程

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

EdgeOne AI 安全实战专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

聚焦“写作效率、视觉美观与运行性能”三方面进行全面升级，为您提供更高效、稳定的创作环境

社区富文本&Markdown编辑器全新改版上线，欢迎大家体验!

诚挚邀请您参与本次调研，分享您的真实使用感受与建议。您的反馈至关重要，感谢您的支持与参与！

社区新版编辑器体验调研

我正在寻找一个免费的解决方案来连接delphi和mysql数据库，但是没有使用ODBC.Is，有这样一个组件吗？谢谢。

问MySql与Delphi直连
EN

回答 6

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问MySql与Delphi直连EN

回答 6

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问MySql与Delphi直连
EN