Здравствуйте!
Хочу написать DLL на ASM, но никак не могу понять, как передать ссылку на переменную, если быть точнее, как ею воспользоваться в ASM?
Например, на VB вызываю мою DLL-функцию:

Код

Declare function myFunc lib "myDLL" (ByRef variable as integer) as long ... dim a as integer myFunc(a)

А как этой ссылкой воспользоваться в ASM-ой DLL-процедуре?
Например, присвоить а значение 5?
Покажите, пожалуйста.
Желательно, кодом.
Заранее спасибо.

P.S. Просто я очень мало работал с Win32 на ASM...

зависит как ты длл написал
можно через стек передать
либо через регистры
типа
mov eax,5
call myfunc

или
mov eax,5
push eax
call myfunc

на мойвзгляд удобнее через регистры не надо парится с esp

Сорри, ты немного не понял ( некудышно я объясняю.. )- я хочу из VB передать ссылку (в ASM-вую DLL) на переменную a.
По ссылке изменить a, потом воспользоваться новым a в VB.
Здесь 5 - лишь пример.
Вобщем, вопрос (по ASM-вой библиотеке):
1) достать из стека ссылку на переменную a (сколько байт надо? в переменную какой длинны поместить ссылку из стека)
Типа
pop pTmpVar ; pTmpVar должна быть какого размера, как объявлена? dd? dw?..
2) имея ссылку (pTmpVar), изменить значение a (присвоить a=5)

После этого в VB-проге значение a должно быть равно 5.
Т.е. я хочу изменить VB-шную переменную с помощью ASM-библиотеки.
После вызова DLL-function, print a выведет 5.
Во всяком случае, должен.

Опять же, буду очень рад коду, примеру.

P.S. Наверно, опять очень сумбурно объяснено? Ну, как могу...

значит так
после myfunc(a) на стеке будет лежать адрес возврата и указатель на ячейку памяти с переменной А
если только визуал басик туда еще ченить не пихает
тогда делаем так
mov eax,[esp-4]
mov [eax],byte 5
ret
вообшемто все

Всё верно, oleg1973, но надо результат запихивать перед ret. Функция Long возвращает.
И ещё, чтоб избежать ошибок и не понимания. Функция вызывается stdcall. Т.е. параметры передаются справа налево, из стека из удаляет вызываемая функция (та, что в Dll).

немного не согласенRAN
к примеру стандартная CRTDLL.DLL стек не поправляет
ето уже сам компилятор после
call myfunc(a)
add esp,4 // эту строчку компилер добавит и это вообшем почти для всех внешних длл правильно

oleg1973, IMHO, так паскаль делает. В C (cdecl и stdcall) и в VB за освобождение стека отвечает функция.
Кто рассудит наш спор? А лучше пусть Kurt проверит. Ему всё равно код писать надо.

нетRAN
я пробовал с CRTDLL.DLL обыкновенный printf на асме вызывать
со стеком будут глюки если самому не поправлять
тоже самое касаемо к примеру svgalib и libc в линюхе
никто стек не коректирует

Цитата

А лучше пусть Kurt проверит

Сожусь проверять...
Вариант oleg1973 не подходит сразу - вылетает с ошибкой.
Пытаюсь проверить вариант RAN, кстати, наверняка можно использовать директиву ARG.
Не велетает. Выполняется, но неверно.
Ищу ошибку.

Только результат надо помещать в eax (ПРОВЕРЕНО!!!), а не возвращать в ret.
ret - для очищения стека.

Цитата

кстати, наверняка можно использовать директиву ARG.

Так не парь мозги и используй. Только вопрос, как это происходит технически останется не выясненным.

...
.model flat, stdcall
...
TestProc proc lpValue: LPDWORD
mov esi, [lpValue]
mov byte ptr [esi], 5
ret
TestProc endp
А так катит?
masm32
з.ы. так вы к чему пришли? какая конвенция вызова у басика-то?
з.з.ы код выше прелестно работает в дельфи при stdcall

format PE
include '%include%\win32a.inc'
entry start
start:
invoke printf,msg
add esp,4
ret
msg:
db "hello wolrld",0dh,0ah
data import
include '%include%\import.inc'
include '%include%\import1.inc'
end data
-----------------------------------------------
вот на асме все работает
если убрать add esp,4 то естественно глюк поймаем
так что
---------------
допустим на С ( в линюхе правда)
var=getvideomode();
var через eax возврашается

Это сообщение отредактировал(а) oleg1973 - 18.9.2003, 13:08