forum.boolean.name - Импорт библиотеки из PureBasic-а

forum.boolean.name (http://forum.boolean.name/index.php)

- Blitz3D (http://forum.boolean.name/forumdisplay.php?f=45)

- - Импорт библиотеки из PureBasic-а (http://forum.boolean.name/showthread.php?t=18681)

Devilox

07.11.2013 10:21

Импорт библиотеки из PureBasic-а

Blitz постоянно ругается, CallDLL работать не хочет. Что я не так делаю?

PureBasic:

Код:

ProcedureDLL Sum(a,b)

  ProcedureReturn a + b

EndProcedure

Blitz:

Код:

Sum(a,b) = CallDLL("test.dll","Sum")



c = Sum(5,7)



Print c



Input()

impersonalis

07.11.2013 10:48

Ответ: Импорт библиотеки из PureBasic-а

Цитата:

CallDLL( dll_name$, proc_name$[,in_bank,out_bank] )

Код:

;poke input parameters into in_bank 

result=CallDLL( "mydll","my_dll_func",bank1,bank2 )

Devilox

07.11.2013 17:54

Ответ: Импорт библиотеки из PureBasic-а

Я не пойму, какие параметры загоняются в банк? Как вообще объявлять функцию?

Код:

Function Sum(a#,b#)

        bankIN = CreateBank(12)

        bankOUT = CreateBank(12)



        PokeFloat(bankIN,0,a#)

        PokeFloat(bankIN,3,b#)



        CallDLL("awd.dll","Sum",bankIN,bankOUT)



        result# = PeekFloat(bankOUT,0)



        FreeBank bankIN

        FreeBank bankOUT



        Return result

End Function



num# = Sum(5,7)



Print num



WaitKey()

MadMedic

07.11.2013 20:31

Re: Импорт библиотеки из PureBasic-а

Создание_своей_dll_для_Blitz3d_в_PureBasic
http://blitzetc.ru/index.php/С...074;_PureBasic

Devilox

07.11.2013 20:42

Ответ: Импорт библиотеки из PureBasic-а

Работает! Спасибо)

Часовой пояс GMT +4, время: 16:21.