The new version of Bawt also includes a new Oratcl.
I want to use it under Windows and Linux with Tcl/Tk 9.
Windows
Error Message:
Oratcl_Init(): Failed loading oci.dll symbols with error 126
while executing
load C:/Tcl/lib/Oratcl4.6.1/Oratcl461.dll
(package ifneeded Oratcl 4.6.1" script)
invoked from within
package require Oratcl
Cause: The MSVCR120.dll file, which is part of the Visual C++
Redistributable for Visual Studio 2013 package, is missing or corrupted.
My Solution: Install or repair the Microsoft Visual C++ Redistributable
2013 package.
Tcl 9.0
Problem: Oratcl crashes without an error message when parsing an SQL
statement using oraparse.
Cause: An issue with character encoding between Tcl 9.0 and Oratcl.
My Solution: Enable UTF-8 mode using the following command:
oraconfig $sh utfmode 1
This might be self-evident when working with databases (and Tcl/Tk 9).
Linux
Problem: Difficulties with the Oracle Instant Client, Oratcl, and the associated library.
Cause: In oratcl.c, the library path is hardcoded to
"$(ORACLE_HOME)/lib" or "$(ORACLE_LIBRARY)".
My Solution: Set the ORACLE_LIBRARY environment variable to the correct
library path.
A similar issue was already discussed here:
https://www.rocksolidbbs.com/devel/article-flat.php?id=20770&group=comp.lang.tcl#20770
Didn't solve the problem for me
These are not necessarily bugs.
So it works with Tcl/Tk 9
Gregor
#!/usr/bin/env tclsh
# Tcl 8.6.16 and Tcl 9
# MS Windows
# Oratcl_Init(): Failed loading oci.dll symbols with error 126
# while executing
# load C:/Tcl/lib/Oratcl4.6.1/Oratcl461.dll
# (package ifneeded Oratcl 4.6.1" script)
# invoked from within
# package require Oratcl
# The MSVCR120.dll file is part of the Visual C++ Redistributable
# for Visual Studio 2013 package. To fix the issue, reinstall the
# Microsoft Visual C++ Redistributable 2013 package.
# Linux
# problem with instant client ,Oratcl and a lib
# in oratcl.c is hard-wired to ORACLE_HOME)/lib or ORACLE_LIBRARY
# Tcl 9
# crashes without error message when parsing (oraparse).
# Setting oraconfig $sh utfmode 1 resolves the issue.
# Set the path for the Instant Client before using Oratcl
switch $::tcl_platform(platform) {
windows {
set ergPath {C:\\app\\instantclient_19_25}
set ::env(PATH) "[file nativename $ergPath];$::env(PATH)"
}
unix {
set ic "/opt/oracle/instantclient_19_25"
set ::env(ORACLE_LIBRARY) [file join $ic "libclntsh[info sharedlibextension]" ]
}
}
package require Oratcl
# info proc
proc oratclinfo {lh sh {output 1}} {
lappend infoOra "[info nameofexecutable]"
lappend infoOra "package Oratcl: [package provide Oratcl]"
lappend infoOra "tcl_platform: $::tcl_platform(os)"
lappend infoOra "Pointersize (4 -> 32-bit, 8 -> 64-bit): \
$::tcl_platform(pointerSize)"
lappend infoOra "patchlevel [info patchlevel]"
lappend infoOra "orainfo version: [orainfo version]"
lappend infoOra [orainfo server $lh]
lappend infoOra "orainfo status [orainfo status $lh]"
lappend infoOra "logonhandle: [orainfo logonhandle $sh]"
lappend infoOra "orainfo client [orainfo client]"
if {$output} {
puts " Oracle Information"
puts [join $infoOra \n]
puts "\n"
}
return $infoOra
}
# Login handle: $lh
set lh [oralogon "scott/tiger@(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP) (HOST=oralx)(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=XEPDB1)))"]
# Statement handle: $sh
set sh [oraopen $lh]
# Set utfmode; otherwise, Tcl 9.0 crashes without error message
oraconfig $sh utfmode 1
oratclinfo $lh $sh
# SQL Query
set sql {SELECT * FROM v$nls_parameters \
WHERE parameter LIKE '%CHARACTERSET%'}
try {
puts "Parsing start"
oraparse $sh $sql
# Execute statement
oraexec $sh
puts "Exec OK!"
# Fetch results
puts "\nFetching results:"
while {[orafetch $sh -datavariable row] == 0} {
puts $row
}
} on error {errmsg options} {
# Error handling
puts "Error: $errmsg"
puts "Details: $options"
} finally {
# Free resources
if {[info exists sh]} {
puts [oraclose $sh]
}
if {[info exists lh]} {
puts [oralogoff $lh]
}
puts "End"
}
#########
if {0} {
package Oratcl: 4.6.1
tcl_platform: Linux
Pointersize (4 -> 32-bit, 8 -> 64-bit): 8
patchlevel 9.0.1
orainfo version: 4.6.1
Oracle Database 18c Express Edition Release 18.0.0.0.0 - Production
orainfo status 1
logonhandle: oratcl0
orainfo client 19.25.0.0.0
Parsing start
Exec OK!
Fetching results:
NLS_CHARACTERSET AL32UTF8 3
NLS_NCHAR_CHARACTERSET AL16UTF16 3
0
0
End
}
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)