Вызываю dll (написанную на vc++2008) из Fasm. Через 40 секунд вылет из программы.Без вызова dll из Fasm программа не вылетает.

@ronniko · Регистрация: 13.11.2009

Author24 — интернет-сервис помощи студентам

Программа на vc++2008:

C++

#include "MathFuncsDll.h"
 
#include <stdexcept>
 
using namespace std;
 
namespace MathFuncs
{
    double MyMathFuncs::Add(double a, double b)
    {
        return 0;
    }
}

В Fasm-е:
invoke MyFunc,0,0
и в цикле пока не нажмем ESCAPE.
Точно знаю что библиотека подключается и вызываеться(делал в vc++2008 dll MessageBox). Вызов из Fasm выводит этот MessageBox.
Если не делаю в Fasme invoke MyFunc,0,0 то нет вылетов.

Добавлено через 2 минуты
Может ли переполняться стек. И из-за этого вылетает. Смотрел Debugerom когда вызываеться invoke MyFunc,0,0 то esp уменьшаеться на 8 (так как делаеться 2 push при вызове invoke ).И так каждый раз после вызова esp становиться меньше на 8.

@vital792 · 17.03.2011, 11:13

ronniko, во первых ты вызываешь функцию с соглашением вызова __cdecl, соответственно стек должен чистить вручную, либо использовать cinvoke вместо invoke (или лучше ccall)
Во вторых ты не верно передаешь параметры в функцию. Так как у тебя отсутствует тело функции то ты не заметишь разницы, но если появится, то будет ошибка.

Сообщение от ronniko

invoke MyFunc,0,0

ты передаешь таким образом тока первый параметр, т.к. double 8 байт.
Вот код:

Assembler

format PE GUI 4.0
entry start
 
include 'include\win32a.inc'
 
section '.text' code readable executable
start:
    invoke  GetModuleHandle,0
 
    sub esp, 8
    fld qword [b]
    fstp    qword [esp]
    sub esp, 8
    fld qword [a]
    fstp    qword [esp]
    call    myadd
    add esp, 16
 
    invoke  ExitProcess, 0
 
proc myadd c, a:qword, b:qword
fld qword [a]
fadd qword [b]
ret
endp
 
section '.data' data readable writeable
 
a dq 2.0
b dq 3.0
 
section '.idata' import data readable writeable
 
library kernel32,'KERNEL32.DLL',\
      user32,'USER32.DLL'
 
include 'include\api\kernel32.inc'
include 'include\api\user32.inc'

попробуй заменить в нем функцию myadd своей импортируемой, должно работать

Добавлено через 1 час 22 минуты
можно проще

Assembler

;   sub esp, 8
;   fld qword [b]
;   fstp    qword [esp]
;   sub esp, 8
;   fld qword [a]
;   fstp    qword [esp]
    push    dword [b+4]
    push    dword [b]
    push    dword [a+4]
    push    dword [a]
    call    myadd
    add esp, 16

	17.03.2011, 11:13

Опции темы