用FireDAC连接oracle(接近直连)

转自：http://blog.youkuaiyun.com/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

1. con1.Params.Add('DriverID=Ora');  
2. con1.Params.Add('Database=(DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = OraSrv)(PORT = 1521)))(CONNECT_DATA = (SERVER = DEDICATED)(SERVICE_NAME = orcl)))');  
3. con1.Params.Add('User_Name=scott');  
4. con1.Params.Add('Password=tiger');  
5. con1.Params.Add('CharacterSet=UTF8');  //否则中文乱码  
6. con1.Connected := True;  
7. fdqry1.Open('select * from emp');  

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