Как вызвать cdecl-функцию?

[Flora]

Собственно САБЖ. Есть библиотека dll, надо вызвать содержащуюсю в ней функцию, а она требует декларацию cdecl, которую VB не поддерживает. Какие есть обходные варианты? Хорошо бы примерчик. Про callproc.dll - знаю. Но информации очень мало. Поможите кто знает.

[tyomitch]

строится простенький асм-переходник, который будет вызывать нужную функцию и затем чистить стек.
примерный код:

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

mov eax, imm32 ; адрес функции
call eax
ret imm16


соответственно, это будет
B8 XXXXXXXX FF D0 C2 ZZZZ
XXXXXXXX - адрес твоей функции
ZZZZ - четырежды число её параметров

[Flora]

Ой! Спасибо добрый человек. Я только не силен в асме. Можешь "на пальцах" объяснить? Как, где и куда что вставлять.

[tyomitch]

Делаешь байтовый массив:

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

Dim b(0 To 9) As Byte
b(0) = &HB8
b(5) = &HFF
b(6) = &HD0
b(7) = &HC2
CopyMemory b(1), CLng(адрес_функции), 4
CopyMemory b(8), CInt(число_параметров), 2


а как его потом запустить - читай статью и посты GSerg-а.

[BP]

Что за бред. Вызываемая функция сама почистит стек за собой. Ему всего лишь нужно её вызвать.

[tyomitch]

BP, заголовок топика прочитай внимательно.

[BP]

Я внимательно прочитал. А ты?

[tyomitch]

Я - да, а ты прочитай http://msdn.microsoft.com/library/en-us ... ntions.asp , чтобы узнать, чистит ли cdecl-функция стек за собой.

[alibek]

Выыы ещоооо паааа-дееериии-тесь, гооо-ряя-чиее фиии-нскииие пааа-рниии

[GSerg]

Да, видимо всё-таки зря я вырезал поддержку cdecl из CallFunction
Вернуть, что ли...

[Flora]

Код на паскале:


function LoadDriver : Longbool; cdecl;
function LoadDriver; external 'eTransport.dll' name 'LoadDriver';
function HVOn: Longbool;cdecl;
function HVOn; external 'eTransport.dll' name'HVOn';

procedure TForm1.ButtonLoadDriverClick(Sender: TObject);
begin
LoadDriver;
ButtonHVOnClick(nil);
end;

procedure TForm1.ButtonHVOnClick(Sender: TObject);
begin
HVOn;
end;




Код на Визуал Бэйсике:


Public Declare Function LoadDriver Lib "eTransport.dll" () As Boolean
Public Declare Function HVOn Lib "eTransport.dll" () As Boolean

Private Sub Form_Load()
Call LoadDriver
End Sub

Private Sub Command_OnHV_Click()
Call HVOn
End Sub


Так вот: Код на паскале работает, а на VB - не работает. Можно примерчик, а то с асемблером не могу разобраться.

[tyomitch]

Если твои функции и вправду без параметров, то всё должно работать; ошибка в чём-то другом.

[GSerg]

Для справки...
Longbool 4 байта, boolean 2.
Объяви-ка как long.