用FireDAC连接oracle(接近直连)

转自：http://blog.csdn.net/rznice/article/details/39479611

环境：delphi XE7。OS：Win8.1 UP1 64bit  DATABASE:oracle 64bit client

新建一个工程。将TFDConnection，TFDQuery，TFDGUIxWaitCursor，TDataSource，TDBGrid控件拖入到一个form中。把oracle的以下几个dll文件放到windows的path路径下。

oci.dll

oraocci11.dll

oraociei11.dll

orasql11.dll

在form的create事件中：

[delphi] view
plain copy

con1.Params.Add('DriverID=Ora');  

con1.Params.Add('Database=(DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = OraSrv)(PORT = 1521)))(CONNECT_DATA = (SERVER = DEDICATED)(SERVICE_NAME = orcl)))');  

con1.Params.Add('User_Name=scott');  

con1.Params.Add('Password=tiger');  

con1.Params.Add('CharacterSet=UTF8');  //否则中文乱码  

con1.Connected := True;  

fdqry1.Open('select * from emp');  

参考：http://docwiki.embarcadero.com/RADStudio/XE7/en/Connect_to_Oracle_Server_(FireDAC)