Re: Issues with Oratcl 4.6.1 Using Tcl 8.6 and 9.0

Hi Greg,
I suppose, this is a project without maintainer:
https://sourceforge.net/projects/oratcl/
So the typical guys like Christian Werner or Paul Obermeier do something and revised versions may be found there.
It is alos sad, that tdbc has no oracle module.
The only think you may currently do is to leave a ticket at the project.
Sorry,
Harald
Am 01.01.2025 um 23:32 schrieb greg:

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
}