Error: GetProcAddress on Win32API.new

[joaoneto]

Guys, I made a dll in VB, and i have some problems. When i declare her in the Win32API.new, like this:
@var = Win32API.new('cnn_dll','make_conn',%w(p), 'b')
Made this error:
GetProcAddress : make_conn or make_connA
What i'm do to make this error??
This is the Dll. Please helping me.
Thanx.

 

[linkz0r]

This happens when you call an inexistent function inside the DLL. Strange, i discovered that by accident, and i´m sure it could give a better description of that error xD

Well, check if the name of the function is correct, and try not to use underlines. I advice you to use MS´s convention to name your DLL functions to avoid problems (capitalize the first letter of each word, no spaces, no underlines and first word may be a verb).

 

[joaoneto]

Man i correct all of that and... Nothing...

 

[vgvgf]

Is your dll in the Windows/System32 folder?
If not, that's the problem.

 

[linkz0r]

Put it in your Game folder, and if it doesn´t solve, put it in Windows/System32.

 

[joaoneto]

Guys, put it in Windows/System32 results the same thing. Nothing...
Here's the code used in de DLL. Is VB6.0.
#################################################
Option Explicit

Public CnnConn As New ADODB.Connection
Public CnnCmd As New ADODB.Command
Public CnnSel As New ADODB.Recordset

Public Function TakeConnectionA(ByVal cnnline As String)
CnnConn.Open cnnline
Do While Not CnnConn.State = 1
Loop
End Function
', campos As Integer
Public Function QueryA(ByVal SQL As String) As String
Dim comp As String, filds As String
Dim i As Integer, j As Integer
Dim aSQL As String
aSQL = SQL
With CnnCmd
.ActiveConnection = CnnConn
.CommandType = adCmdText
.CommandText = aSQL
Set CnnSel = .Execute
End With
With CnnSel
If .BOF And .EOF Then
QueryA = ""
Exit Function
Else
.MoveFirst
While Not .EOF
For j = 0 To .Fields.Count - 1
If j = 0 Then
filds = .Fields(j) & ";"
Else
filds = filds & .Fields(j) & ";"
End If
Next
filds = Mid(filds, 1, Len(filds) - 1)
If i = 0 Then
comp = filds & "\"
i = 1
Else
comp = comp & filds & "\"
End If
.MoveNext
Wend
comp = Mid(comp, 1, Len(comp) - 1)
End If
End With
QueryA = comp
'select_db = "OK"
End Function
Public Function InsertA(ByVal SQL As String)
With CnnCmd
.ActiveConnection = CnnConn
.CommandType = adCmdText
.CommandText = SQL
.Execute
End With
End Function
####################################################
Thanx for your help guys.

 

[rpgmaker]

Guys, put it in Windows/System32 results the same thing. Nothing...
Here's the code used in de DLL. Is VB6.0.
#################################################
Option Explicit

Public CnnConn As New ADODB.Connection
Public CnnCmd As New ADODB.Command
Public CnnSel As New ADODB.Recordset

Public Function TakeConnectionA(ByVal cnnline As String)
CnnConn.Open cnnline
Do While Not CnnConn.State = 1
Loop
End Function
', campos As Integer
Public Function QueryA(ByVal SQL As String) As String
Dim comp As String, filds As String
Dim i As Integer, j As Integer
Dim aSQL As String
aSQL = SQL
With CnnCmd
.ActiveConnection = CnnConn
.CommandType = adCmdText
.CommandText = aSQL
Set CnnSel = .Execute
End With
With CnnSel
If .BOF And .EOF Then
QueryA = ""
Exit Function
Else
.MoveFirst
While Not .EOF
For j = 0 To .Fields.Count - 1
If j = 0 Then
filds = .Fields(j) & ";"
Else
filds = filds & .Fields(j) & ";"
End If
Next
filds = Mid(filds, 1, Len(filds) - 1)
If i = 0 Then
comp = filds & "\"
i = 1
Else
comp = comp & filds & "\"
End If
.MoveNext
Wend
comp = Mid(comp, 1, Len(comp) - 1)
End If
End With
QueryA = comp
'select_db = "OK"
End Function
Public Function InsertA(ByVal SQL As String)
With CnnCmd
.ActiveConnection = CnnConn
.CommandType = adCmdText
.CommandText = SQL
.Execute
End With
End Function
####################################################
Thanx for your help guys.

make a C++ dll and it will work

 

[joaoneto]

sorry, but i don't know this language. Thanx guys.

 

[linkz0r]

I hate VB... xD

 

[joaoneto]

i found it:

"This is because VB dll's are ActiveX dlls; they adhere to the COM binary
specification, and do not export their functions via the C calling
convention (cdecl). "

Make a dll for me please, with this functions, in c++. Thanx.