[comp.windows.ms] some badly behaved toolbook code

i1neal@exnet.iastate.edu (Neal Rauhauser -- ELT Computer Applications Group) (01/07/91)

Here it is, follow the directions in comments and see if it works for
you - it certainly fails on any machine I try it on.

-- this code goes in the script for the book you are
-- going to use
-- don't forget to use the command window to "send enterbook"
-- after you enter this code
-- link the dll's we are going to use for this demo
to handle enterbook

linkdll "TBKFILE.DLL"
      INT fileExists(STRING)
end linkdll

linkdll "TBKDB3.DLL"
    STRING getDBErrorString(INT)
    INT closeDBFile(STRING)
    INT openDBFile(STRING)
end linkdll

end 





-- cleanup after ourselves on exit
to handle leavebook

    unlinkdll "TBKDB3.DLL"
    unlinkdll "tbkfile.dll"
 
end leavebook


--place this code in a button
--
-- try this with and without a dBase file called test.dbf
-- in your root directory
-- content or structure of the dbase file matters not
to handle buttonup

    -- see if the file exists

    get fileExists("c:\test.dbf")

    -- any toolbook return value that doesn't go to a specific
    -- variable is put in the global variable IT
    -- in this case, IT contains the return value of
    -- the above function invocation
    -- fileExists returns a 1 if the file is there

    if IT <> 1
        request "The file does not exist."
    else
        request "The file exists."
    end
    
    
    -- now see what the dBase DLL has to say about this nonexistent
    -- file
    get openDBFile("c:\test.dbf")
    
    -- this shows a popup requestor containing the string returned by
    -- getDBErrorString(). IT contains the error  code returned by
    -- openDBFile()
    
    request getDBErrorString(it)
    
end buttonup