Code: Select all
---------------------------
Error
---------------------------
SQL Error: OCI_ERROR: ORA-12170: TNS:Connect timeout occurred
.
---------------------------
OK Details >>
---------------------------
Code: Select all
//object ConOracle: TZConnection
// ControlsCodePage = cCP_UTF16
// Catalog = 'testing' // <-- my SID / ServiceName
// Properties.Strings = (
// 'controls_cp=CP_UTF16')
// AutoCommit = False
// UseMetadata = False
// TransactIsolationLevel = tiReadCommitted
// HostName = '192.168.101.38'
// Port = 1521
// Database = 'testing'
// User = 'testing'
// Password = 'testing'
// Protocol = 'oracle'
// LibraryLocation = 'C:\Oracle\instantclient_11_2\oci.dll'
// Left = 24
// Top = 16
//end
var
ConOracle: TZConnection;
ConOracle := TZConnection.Create(nil);
with ConOracle do
begin
Name := 'ConOracle';
ControlsCodePage := cCP_UTF16;
Catalog := 'apora';
Properties.Clear;
Properties.Add('controls_cp=CP_UTF16');
AutoCommit := False;
UseMetadata := False;
TransactIsolationLevel := tiReadCommitted;
HostName := '192.168.101.38';
Port := 1521;
Database := 'testing';
User := 'testing';
Password := 'testing';
Protocol := 'oracle';
LibraryLocation := 'C:\Oracle\instantclient_11_2\oci.dll';
end;
ConOracle.Free;