VB3/4 control problem
in [Visual Basic]
|
From: Paul Clement on 26 May 2006 08:02 On Fri, 26 May 2006 02:21:26 +0100, Tym <no_spam(a)ictis.net> wrote: ? On Thu, 25 May 2006 22:04:56 +0100, Tym <no_spam(a)ictis.net> wrote: ? ? >On Thu, 25 May 2006 11:52:05 -0500, Paul Clement ? ><UseAdddressAtEndofMessage(a)swspectrum.com> wrote: ? > ? >>Set gv1326 = OpenDatabase(gv0B1E & "xyz.mdb") ? > ? >Funny how the obvious slips you by isn't it ? > ? >This seems to have made a difference - will keep you posted ? ? ? OK - here we go again.... ? ? Got one version of the program working fin in the IDE in VB6. Looks ? very 16bit but, there you go! ? ? ? Newer version invludes the following: ? ? Declare Function extfn02BD Lib "sspvbas1.dll" Alias "RNBOsproActivate" ? () As Integer ? Declare Function extfn02A8 Lib "sspvbas1.dll" Alias ? "RNBOsproDecrement" () As Integer ? Declare Function extfn026A Lib "sspvbas1.dll" Alias ? "RNBOsproExtendedRead" () As Integer ? Declare Function extfn0229 Lib "sspvbas1.dll" Alias ? "RNBOsproFindFirstUnit" (p1 As Variant, ByVal p2%) As Integer ? Declare Function extfn0242 Lib "sspvbas1.dll" Alias ? "RNBOsproFindNextUnit" () As Integer ? Declare Function extfn01F6 Lib "sspvbas1.dll" Alias ? "RNBOsproGetExtendedStatus" () As Integer ? Declare Function extfn0213 Lib "sspvbas1.dll" Alias ? "RNBOsproGetVersion" () As Integer ? Declare Function extfn01E0 Lib "sspvbas1.dll" Alias ? "RNBOsproInitialize" (p1 As Variant) As Integer ? Declare Function extfn0293 Lib "sspvbas1.dll" Alias ? "RNBOsproOverwrite" () As Integer ? Declare Function extfn02D1 Lib "sspvbas1.dll" Alias "RNBOsproQuery" ? (p1 As Variant, ByVal p2%, p3$, p4$, p5&, ByVal p6%) As Integer ? Declare Function extfn025A Lib "sspvbas1.dll" Alias "RNBOsproRead" () ? As Integer ? Declare Function extfn0282 Lib "sspvbas1.dll" Alias "RNBOsproWrite" () ? As Integer ? ? ? WHeneer any of these "functions" are called, I get the error message ? "Runtime Error 48: File not found: sspvbas1.dll" ? ? I've put a copy of it in the c:\windows\system dir and it astll can't ? find it - it wont let me add it as a reference either.... what's going ? on? ? I was going to suggest placing it in the System32 directory instead. Paul ~~~~ Microsoft MVP (Visual Basic)
From: Paul Clement on 26 May 2006 08:07 On Fri, 26 May 2006 09:23:14 +0100, Tym <no_spam(a)ictis.net> wrote: ? On Thu, 25 May 2006 22:06:30 -0500, "Ralph" ? <nt_consulting64(a)yahoo.com> wrote: ? ? >The error doesn't indicate anything is wrong with the signature, it appears ? >the app can't find it. Try providing a fullpath for the dll in the declare ? >statement. Locating it in the app folder, or in the System32 folder. ? ? ? It *can* find it. I think the problem is the parameter being passed. ? I've re-visited the code and "corrected" something I'd inadvertantly ? muffed up ? ? ? Declare Function extfn01E0 Lib "c:\windows\system\Sspvbas1.dll" Alias ? "RNBOsproInitialize" (p1 As Variant) As Integer ? ? ? ? Type T73CE ? M73DB As String * 630 ? End Type ? ? Global gv06C0 As T73CE ? ^^^^^ I'd originally changed this to variant ? (String doesn't work either!) ? ? I've never used custom types before, so I'm not too sure how to track ? this bug. ? ? ? l00AE% = extfn01E0%(gv06C0) ? ? ? I'd changed it to variant because of the Declare line. ? ? As it stands, I get "Compile Error: Only user-defined type defined in ? public object modules can be coerced or form a variant or late-bound ? functions" Do you have any doc on what sort of parameters this function accepts. I sincerely doubt that Variant is what you need. Paul ~~~~ Microsoft MVP (Visual Basic)
From: Steve Barnett on 26 May 2006 08:18 I may be completely wrong with this comment but, if DLL this came with the VB3 program, it's probably a 16-bit dll... I wouldn't have thought that worked in VB6 which is 32-bit no matter how you specify the declare. Also, it might not be this dll that it can't find, but one of it's dependant DLL's. Have you tried running depends against it and checking that the dependant dll's are present? Steve "Tym" <no_spam(a)ictis.net> wrote in message news:g0mc72555ipd8dl6rrjrbfjil3410kgl7o(a)4ax.com... > On Thu, 25 May 2006 22:04:56 +0100, Tym <no_spam(a)ictis.net> wrote: > >>On Thu, 25 May 2006 11:52:05 -0500, Paul Clement >><UseAdddressAtEndofMessage(a)swspectrum.com> wrote: >> >>>Set gv1326 = OpenDatabase(gv0B1E & "xyz.mdb") >> >>Funny how the obvious slips you by isn't it >> >>This seems to have made a difference - will keep you posted > > > OK - here we go again.... > > Got one version of the program working fin in the IDE in VB6. Looks > very 16bit but, there you go! > > > Newer version invludes the following: > > Declare Function extfn02BD Lib "sspvbas1.dll" Alias "RNBOsproActivate" > () As Integer > Declare Function extfn02A8 Lib "sspvbas1.dll" Alias > "RNBOsproDecrement" () As Integer > Declare Function extfn026A Lib "sspvbas1.dll" Alias > "RNBOsproExtendedRead" () As Integer > Declare Function extfn0229 Lib "sspvbas1.dll" Alias > "RNBOsproFindFirstUnit" (p1 As Variant, ByVal p2%) As Integer > Declare Function extfn0242 Lib "sspvbas1.dll" Alias > "RNBOsproFindNextUnit" () As Integer > Declare Function extfn01F6 Lib "sspvbas1.dll" Alias > "RNBOsproGetExtendedStatus" () As Integer > Declare Function extfn0213 Lib "sspvbas1.dll" Alias > "RNBOsproGetVersion" () As Integer > Declare Function extfn01E0 Lib "sspvbas1.dll" Alias > "RNBOsproInitialize" (p1 As Variant) As Integer > Declare Function extfn0293 Lib "sspvbas1.dll" Alias > "RNBOsproOverwrite" () As Integer > Declare Function extfn02D1 Lib "sspvbas1.dll" Alias "RNBOsproQuery" > (p1 As Variant, ByVal p2%, p3$, p4$, p5&, ByVal p6%) As Integer > Declare Function extfn025A Lib "sspvbas1.dll" Alias "RNBOsproRead" () > As Integer > Declare Function extfn0282 Lib "sspvbas1.dll" Alias "RNBOsproWrite" () > As Integer > > > WHeneer any of these "functions" are called, I get the error message > "Runtime Error 48: File not found: sspvbas1.dll" > > I've put a copy of it in the c:\windows\system dir and it astll can't > find it - it wont let me add it as a reference either.... what's going > on? > > I think i t may be to do with the fact that the parapeter it is > passing is empty: > > Declare Function extfn01E0 Lib "sspvbas1.dll" Alias > "RNBOsproInitialize" (p1 As Variant) As Integer > > Would that affect it? > > Tym > > ~There's no place like 127.0.0.1~
From: Paul Clement on 26 May 2006 23:01 On Fri, 26 May 2006 13:18:27 +0100, "Steve Barnett" <noname(a)nodomain.com> wrote: ? I may be completely wrong with this comment but, if DLL this came with the ? VB3 program, it's probably a 16-bit dll... I wouldn't have thought that ? worked in VB6 which is 32-bit no matter how you specify the declare. ? Good point. I had considered that as well although I would have expected a different error message. Perhaps the tip-off is the fact that the installation folder is supposed to be System instead of System32. If appears to be from a product called Sentinel SuperPro, although I have no idea which version is being used. Paul ~~~~ Microsoft MVP (Visual Basic)
From: Steve Barnett on 27 May 2006 06:23
I used a Sentinel dongle many years ago and found the following definitions, if they help. The SDK was free when I applied for it from Rainbow; it might still be. However, these are the calls I made to the 32-bit library. Private Type APIPACKET data(4096) As Byte End Type Private Const ERROR_KEY_NOT_INITIALISED = 1000 Private Const ERROR_INSUFFICIENT_TOKENS = 1001 Private Const ERROR_KEY_NOT_AVAILABLE = 1002 Private Const ERROR_READ_KEY_ERROR = 1003 Private Const ERROR_WRITE_KEY_ERROR = 1004 Private Const ERROR_INVALID_KEY = 1005 Private Declare Function RNBOsproFormatPacket% Lib "sx32w.dll" (ApiPack As APIPACKET, ByVal ApiPackSize%) Private Declare Function RNBOsproInitialize% Lib "sx32w.dll" (ApiPack As APIPACKET) Private Declare Function RNBOsproGetFullStatus% Lib "sx32w.dll" (ApiPack As APIPACKET) Private Declare Function RNBOsproGetVersion% Lib "sx32w.dll" (ApiPack As APIPACKET, majv%, minv%, rev%, ostype%) Private Declare Function RNBOsproFindFirstUnit% Lib "sx32w.dll" (ApiPack As APIPACKET, ByVal DEVELOPERID%) Private Declare Function RNBOsproFindNextUnit% Lib "sx32w.dll" (ApiPack As APIPACKET) Private Declare Function RNBOsproRead% Lib "sx32w.dll" (ApiPack As APIPACKET, ByVal address%, Datum%) Private Declare Function RNBOsproExtendedRead% Lib "sx32w.dll" (ApiPack As APIPACKET, ByVal address%, Datum%, accessCode%) Private Declare Function RNBOsproWrite% Lib "sx32w.dll" (ApiPack As APIPACKET, ByVal wPass%, ByVal address%, ByVal Datum%, ByVal accessCode%) Private Declare Function RNBOsproOverwrite% Lib "sx32w.dll" (ApiPack As APIPACKET, ByVal wPass%, ByVal oPass1%, ByVal oPass2&, ByVal address&, ByVal Datum%, ByVal accessCode%) Private Declare Function RNBOsproDecrement% Lib "sx32w.dll" (ApiPack As APIPACKET, ByVal wPass%, ByVal address%) Private Declare Function RNBOsproActivate% Lib "sx32w.dll" (ApiPack As APIPACKET, ByVal wPass%, ByVal aPass1%, ByVal aPass2%, ByVal address%) Private Declare Function RNBOsproQuery% Lib "sx32w.dll" (ApiPack As APIPACKET, ByVal address%, ByVal qStr$, ByVal qResp$, unused As Long, ByVal length&) Public iLastError As Integer Public iLastKeyError As Integer Public bKeyInitialised As Boolean Private lvApiPack As APIPACKET I suppose the key bit of code was the initialisation stuff, which consisted of: rc = RNBOsproFormatPacket(lvApiPack, 4096) rc = RNBOsproInitialize(lvApiPack) Where "rc" was an integer. Distribution required only the "sx32w.dll". However, you did have to install the Sentinel drivers on the PC before you ran your app and that was a program that Rainbow provided. Hope that's vaguely useful. Steve "Paul Clement" <UseAdddressAtEndofMessage(a)swspectrum.com> wrote in message news:a4gf725lbpvhv7q03solnd85nkuou6ffvt(a)4ax.com... > On Fri, 26 May 2006 13:18:27 +0100, "Steve Barnett" <noname(a)nodomain.com> > wrote: > > ? I may be completely wrong with this comment but, if DLL this came with > the > ? VB3 program, it's probably a 16-bit dll... I wouldn't have thought that > ? worked in VB6 which is 32-bit no matter how you specify the declare. > ? > > Good point. I had considered that as well although I would have expected a > different error message. Perhaps the tip-off is the fact that the > installation > folder is supposed to be System instead of System32. > > If appears to be from a product called Sentinel SuperPro, although I have > no > idea which version is being used. > > Paul > ~~~~ > Microsoft MVP (Visual Basic) |