DLL :(

[GoGosha]

У маня DLL на С++

#include <windows.h>
#include <stdio.h>

#define CCONV _stdcall

__int16 CCONV Ret(__int16 value)
{
return value;
}

LIBRARY DllTest

EXPORTS
Ret @1

И код на VB

Код: Выделить всё

Private Declare Function Ret Lib "C:\Program Files\Microsoft Visual Studio\MyProjects\DllTest\Debug\DllTest.dll" (Res As Integer) As Integer

Private Sub Form_Load()
    MsgBox Ret(CInt(10))
End Sub


Так вот MsgBox возвращает -1968 это значит, что параметры передаются НЕ ПРАВИЛЬНО. в чем дело и как исправить.

[Sebas]

Может ByVal

[GoGosha]

Может ByVal

СПАСИБО уже сам до этого дошел

[GoGosha]

Но всё равно глюки

Объявление функции:

Код: Выделить всё

int CCONV AlphaDraw(BITMAP *bmpCage, BITMAP *bmpSrc, __int16 x, __int16 y,__int16 cx, __int16 cy, __int16 width, __int16 height, __int16 AlphaProc, BYTE TransR, BYTE TransG, BYTE TransB)
{

CCONV - макрос: Define CCONV _stdcall

на vb она так объявляется:

Код: Выделить всё

Private Declare Function AlphaDraw Lib "Alpha.dll" _
( _
    ByRef bmpCage As BITMAP, _
    ByRef bmpSrc As BITMAP, _
    ByVal x As Integer, _
    ByVal y As Integer, _
    ByVal cx As Integer, _
    ByVal cy As Integer, _
    ByVal width As Integer, _
    ByVal height As Integer, _
    ByVal AlphaProc As Integer, _
    ByVal TransR As Byte, _
    ByVal TransG As Byte)  ', _
    ByVal TransB As Byte _
)

Проблема: первый параметр остаётся ПУСТЫМ, а остальные сдвигаются на один. т.е при вызове
AlphaDraw bmp1, bmp2, 1, 2, 3, 4, 141, 141, 50, 0, 0
bmp1 у меня равно 0
bmp2 = bmp1
x = bmp2
y = x
cx = y
cy=cx
и т.д.
А АОСЛЕДНИЙ ПАРАМЕТР ВООБЩЕ ЛИШНИЙ

[Санёк]

Добавь as long в конце объявления.

И ещё:
Зачем использовать __int16. Используй short.
Не советую использовать int, он может быть разным на рызных системах