unidac 连接oracle,DELPHI中使用UNIDAC连接ORACLE数据库

最近在DELPHI中使用到UNIDAC连接到oracle数据库，这样可以不要安装oracle客户端，比较方便使用；所以简单学习了一下，主要是用到查询和执行存储过程，其中存储过程我测试了没有返回参数、有返回参数、有多高返回参数、有返回游标等存储过程，没有深入研究，以下就简单的查询和执行存储过程按步骤说一下：

1，执行查询语句：

a)新建一个ORACLECONNECTION。如图所示：

b)双击ORACLECONNECTION,出现下图，按图填写连接ORACLE的相关参数，点击CONNECT就可以连接了。

c)添加一个Tuniquery,编写SQL语句，点击EXECUTE按钮,点击DATA EDITOR...按钮可以获取记录；

d)新建一个TcLIENTDATASET,新建一个TdataSetProider,把新建的TClientDataSet的providernae属性设置为新建的Tdatasetprovider，把新建的tdatasetprovider的dataset属性设置为刚才建好的TUniqry就可以了；

e)使用代码如下：

// IsLIPattern := FData.IsLIPattern;

with UniQryGetAT do//新建的TUNIQUERY

begin

// 获取配置的AT500DID

Close;//关闭

SQL.Text :=//sql语句

'SELECT B.AT_ID, B.AT_IP, C.LINE_NAME, B.AT_POLLING, C.LINE_STAGE ' +

'FROM BD_PC_AT A, BD_AT_INFO B, BD_LINE C ' +

'WHERE UPPER(A.TGS_PC_NAME) = UPPER(''' +

Impack.Net.IPAddress.LocalHostName + ''') AND B.LINE_NO = C.LINE_NO ' +

' AND A.AT_ID = B.AT_ID ORDER BY B.AT_ID ';

OutputDebugString(PChar(SQL.Text));

Open;//打开

// GwCount := RecordCount;

// if GwCount = then Exit;

// 设置二维数组

SetLength(Ary_Gateway, , );

i := ;

j := ;

// 写入IPINDEX文件

with TStringList.Create do

begin

while not Eof do

begin

Inc(i);

while i < FieldValues['AT_ID'] do

begin

Add(IntToStr(i) + ' 4660 0.0.0.0');

Inc(i);

end;

if j > then

SetLength(Ary_Gateway, j + , );

Add(IntToStr(i) + ' 4660 ' + FieldValues['AT_IP']);

Ary_Gateway[j, ] := IntToStr(i);

Ary_Gateway[j, ] := FieldValues['AT_ID'];

Ary_Gateway[j, ] := FieldValues['AT_IP'];

Ary_Gateway[j, ] := FieldValues['LINE_NAME'];

Ary_Gateway[j, ] := 'Kitting';

Ary_Gateway[j, ] := IntToStr(FieldValues['AT_Polling']);

Inc(j);

next;

end;

SaveToFile('ipindex');

Free;

end;

end;

后续会写一篇介绍使用存储过程。