Вызов stdcall функции из dll написанной на Delphi.

[Gogic]

Доброго времени суток. Хочу спросить, правильно ли осуществляю вызов.

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

'Function GetErrorText: PChar; stdcall;
Public Declare Function GetErrorText Lib "CscLink.dll" () As Long
 
'Function Login( AUser, APsw: PChar ): BOOL; stdcall;
Public Declare Function Login Lib "CscLink.dll" (ByVal AUser As Long, ByVal APsw As Long) As Boolean

Теперь форма

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

Dim tmpptr As Long
Dim tmpstring As String

Dim mBuff As String

mBuff = Space(100)


lgn = "user"
pwd = "1"

If Login(StrPtr(lgn), StrPtr(pwd)) = False Then
tmpptr = GetErrorText
mBuff = StrFromPtrA(tmpptr, 100)
Debug.Print mBuff
End If

Интересует, собственно вызов функции Login.
PChar в Delphi - указатель на строку.

[Mikle]

Насколько помню, BOOL в дельфи 32-битный, и True равно 1, а не -1, как в VB6, то есть Function Login должна быть As Long

[Qwertiy]

Насколько помню, BOOL в дельфи 32-битный, и True равно 1, а не -1, как в VB6

А разве VB'шный вызов не приведёт 1 к VB'шному Boolean?

[Gogic]

Это не суть, интересует, как библиотека обработает vb-шные стринги. Может ей юникод нужен или вообще байт-массив...

[Vi]

Сначала сделай проще, чтобы было понятно:

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

'Function GetErrorText: PChar; stdcall;
Public Declare Function GetErrorText Lib "CscLink.dll" () As String

'Function Login( AUser, APsw: PChar ): BOOL; stdcall;
Public Declare Function Login Lib "CscLink.dll" (ByVal AUser As String, ByVal APsw As String) As Boolean
...
If Login(lgn, pwd) = False Then
   tmpptr = GetErrorText
...


и, только если не сработает, делать всякие хаки с бубнами.