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
}

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
> }

Am 06.01.25 um 18:32 schrieb Harald Oehlmann:
> 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
>
>
Hi Harald,
my mistake.
My post came across incorrectly.
Oratcl 4.6.1 works for me with Tcl 9.

The source code and development are active at:

https://github.com/sm-shaw/Oratcl

There is also a very good precompiled library and source code available
at BAWT.
(I can compile it myself by now as well.)

In hindsight, I have also found good descriptions about the Oracle
Instant Client with Oratcl.
https://www.hammerdb.com/docs/ch01s10.html#d0e678

I’m just struggling a bit to get scripts running correctly under Tcl 8.6
and Tcl 9.0 due to UTF-8, CP1252,
umlauts and file formats—especially regarding the correct file format
of the script files for editing under Linux and Windows.

There is nothing that speaks against switching to Tcl 9.

Thanks for the continued development of Tcl/Tk and libraries like Oratcl!

best regards
Gregor

Great news, Gregor.

I allowed my to put this information here:

https://wiki.tcl-lang.org/page/Oratcl?V=75

Please feel free to revise the wiki page and remove any information what
is not ok any more.

Thanks for all,
Harald

Am 06.01.2025 um 19:56 schrieb greg:
> Oratcl 4.6.1 works for me with Tcl 9.
>
> The source code and development are active at:
>
> https://github.com/sm-shaw/Oratcl
>
> There is also a very good precompiled library and source code available
> at BAWT.
> (I can compile it myself by now as well.)
>
> In hindsight, I have also found good descriptions about the Oracle
> Instant Client with Oratcl.
> https://www.hammerdb.com/docs/ch01s10.html#d0e678
>
> I’m just struggling a bit to get scripts running correctly under Tcl 8.6
> and Tcl 9.0 due to UTF-8, CP1252,
> umlauts  and file formats—especially regarding the correct file format
> of the script files for editing under Linux and Windows.
>
> There is nothing that speaks against switching to Tcl 9.
>
> Thanks for the continued development of Tcl/Tk and libraries like Oratcl!
>
> best regards
> Gregor