self.con1.ConnectionString:='Provider=MSDAORA.1;User ID=system;Data Source="(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=127.0.0.1)(PORT=1521)))(CONNECT_DATA=(SID=orcl)))";Password=Gogogo123;ConnectTimeout=3';
self.con1.Open;
if self.con1.Connected then
begin
ShowMessage('ok');
end;
转载于:https://my.oschina.net/u/1777508/blog/322916