vb calling vc's Dll problem, "Bad DLL calling convention" Run-time erroe '49' appears

faithgod

Functions exported using MFC DLL in VC:
void __stdcall PrintPortOut (BYTE data)
{
theApp._outp (0x378, data);
}
And there is output in .def: EXPORTS
    ; Explicit exports can go here
PrintPortOut

Then call in VB:
Declare Function q Lib "PrintPort.dll" Alias ​​"PrintPortOut" _
    (ByVal pSelectAdapter As Byte)

Private Sub Command1_Click ()
Dim c As String
Dim d As Byte
d = CByte (&H0)
c = q (d)
End Sub
But the execution will always error: "Bad DLL calling convention" Run-time erroe '49'?

faithgod

Everyone gives suggestions.

wow_new

See if the array is out of bounds

faithgod

Thank you, there should be no problem with arrays out of bounds?

rsq666

DLL should be regular DLL

faithgod

Thank you, it has been resolved, it is a VB problem.

shuaige1976

Excuse me, what is the problem, I also encountered this problem. . . .
How to solve it. .