VB3/4 control problem
in [Visual Basic]
|
From: Tym on 25 May 2006 17:04 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 Tym ~There's no place like 127.0.0.1~
From: Tym on 25 May 2006 21:21 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: Tym on 25 May 2006 21:23 On Fri, 26 May 2006 02:21:26 +0100, Tym <no_spam(a)ictis.net> wrote: > >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? Apologies for the typos - its way too late to be posting! Tym ~There's no place like 127.0.0.1~
From: Ralph on 25 May 2006 23:06 "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~ If it is accessed thru a "Declare" directive it means it is a regular 'WinAPI' dll, thus would not be registered as an ActiveX dll would be. 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. -ralph
From: Tym on 26 May 2006 04:23
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" Googling the error message talks about class mdules which I've never used before so don't understand what's going on :-( Tym ~There's no place like 127.0.0.1~ |