From: Paul Clement on
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
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
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
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
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)


First  |  Prev  |  Next  |  Last
Pages: 1 2 3 4 5 6
Prev: AS400 OLE DB connection
Next: Visual Basic 3 form load error