OpenEuphoria

RE: TBrowse

• Posted by Matthew Lewis <matthewwalkerlewis at YAHOO.COM> Jan 13, 2003
• 458 views

Actually, let me elaborate.  Here's the code at the top of tbrowse:

void = open_dll( "tlbinf32.dll" )
if not void then
    void = moveFile( "_tlbinf32.dll", "c:\\windows\\system\\tlbinf32.dll")
    void = open_dll( "tlbinf32.dll" )
    void = define_c_proc( void, "DLLRegisterServer", {} )
    c_proc( void, {} )
end if

Make sure that "_tlbinf32.dll" is in the same folder as tbrowse, and change
the line to:
    void = moveFile( "_tlbinf32.dll", "c:\\winnt\\system32\\tlbinf32.dll")
[assuming that winnt\\system32 is the correct directory for your system.

Matt Lewis 

-----Original Message-----
From: ShelbySue at granbury.com [mailto:ShelbySue at granbury.com]
Sent: Saturday, January 11, 2003 5:00 PM
To: EUforum
Subject: TBrowse



I am attempting to run tbrowse and encountering the following ex.err file.
I have read some list emails that mention errors but they appearred old and
no real resolutions.

I have downloaded the 2.0 zip file from Mr. Lewis' web site.  (Actually has
1.3 in the eucom.ew file)

I finally found print.zip from RDS site.  I have tried the 55 win32lib and
the bleeding edge version.

I was attempting to do the modification to run MSAccess97 (msacc8.olb wrap)
but was derailed before I began. I am very new at this.  Perhaps you all
have already seen this error and know exactly what I don't have right?  

BTW - my .chm file also crashes and won't run....


TOP OF EX.ERR FILE
C:\EuphoriaProgramming\com\EuCOM.ew:506 in function call_interface() 
subscript value 0 is out of bounds, reading from a sequence of length 0 
    obj_ix = 0
    iid = 2
    iid_func = 5
    args = {7741600,7741636,1,1003,7741696}
    iid_ix = 2
    ci_ix = <no value>
    vtbl = <no value>
    this = <no value>

... called from C:\EuphoriaProgramming\com\tlbinf32.ew:145 in function
getidsofnames()  
    obj_ix = 0
    dispnames = {{67'C',108'l',97'a',115's',115's',73'I',110'n',102'f',
111'o',70'F',114'r',111'o',109'm',79'O',98'b',106'j',101'e',99'c',116't'}}
    c = 1
    rgszNames = 7741636
    rgDispId = 7741696
    mset = 7741620
    ok = <no value>
    dispid = <no value>
    i = 1

... called from C:\EuphoriaProgramming\com\tlbinf32.ew:179 in procedure
init_tliapplication()  
    obj_ix = 0

TRACE PORTION OF EX.ERR FILE
C:\EuphoriaProgramming\com\EuCOM.ew:1144     ppv = acquire_mem( mset, 4 )
C:\EuphoriaProgramming\com\EuCOM.ew:1145     rclsid = acquire_mem( mset,
clsid_table[CLSID_BYTES][clsid_ix] )
C:\EuphoriaProgramming\com\EuCOM.ew:1146     riid = acquire_mem( mset,
iid_table[IID_BYTES][1] )
C:\EuphoriaProgramming\com\EuCOM.ew:1148     ok = c_func( CoCreateInstance,
{ rclsid, 0 , 5, riid, ppv } )
C:\EuphoriaProgramming\com\EuCOM.ew:1150     if not ok then
C:\EuphoriaProgramming\com\EuCOM.ew:1153         print_com_error( sprintf(
"CoCreateInstance Error: %x\n",ok))
C:\EuphoriaProgramming\com\EuCOM.ew:1154         obj_ix = 0
C:\EuphoriaProgramming\com\EuCOM.ew:1157     release_mem( mset )
C:\EuphoriaProgramming\com\EuCOM.ew:1158     return obj_ix
C:\EuphoriaProgramming\com\EuCOM.ew:1143     mset = new_memset()
C:\EuphoriaProgramming\com\EuCOM.ew:1144     ppv = acquire_mem( mset, 4 )
C:\EuphoriaProgramming\com\EuCOM.ew:1145     rclsid = acquire_mem( mset,
clsid_table[CLSID_BYTES][clsid_ix] )
C:\EuphoriaProgramming\com\EuCOM.ew:1146     riid = acquire_mem( mset,
iid_table[IID_BYTES][1] )
C:\EuphoriaProgramming\com\EuCOM.ew:1148     ok = c_func( CoCreateInstance,
{ rclsid, 0 , 5, riid, ppv } )
C:\EuphoriaProgramming\com\EuCOM.ew:1150     if not ok then
C:\EuphoriaProgramming\com\EuCOM.ew:1153         print_com_error( sprintf(
"CoCreateInstance Error: %x\n",ok))
C:\EuphoriaProgramming\com\EuCOM.ew:1154         obj_ix = 0
C:\EuphoriaProgramming\com\EuCOM.ew:1157     release_mem( mset )
C:\EuphoriaProgramming\com\EuCOM.ew:1158     return obj_ix
C:\EuphoriaProgramming\com\tlbinf32.ew:174     if tliapplication_init then
C:\EuphoriaProgramming\com\tlbinf32.ew:177     tliapplication_init = 1
C:\EuphoriaProgramming\com\tlbinf32.ew:179     tiam_ClassInfoFromObject =
getidsofnames( obj_ix, { "ClassInfoFromObject" } )
C:\EuphoriaProgramming\com\EuCOM.ew:496     if sequence( iid ) then
C:\EuphoriaProgramming\com\EuCOM.ew:502         iid_ix = iid
C:\EuphoriaProgramming\com\EuCOM.ew:506     ci_ix =
obj_table[OBJ_CLSID_IX][obj_ix]



Joe and Audrey Phillips 
Granbury, TX 
            


TOPICA - Start your own email discussion group. FREE!