forum.boolean.name - Как приделать к BlitzMax DLL

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

- 2D-программирование (http://forum.boolean.name/forumdisplay.php?f=109)

- - Как приделать к BlitzMax DLL (http://forum.boolean.name/showthread.php?t=8431)

Как приделать к BlitzMax DLL

Хочу приделать Dll к BlitzMax судя по статье Blitz Et Cetera, где я черпал инфу по данному вопросу выяснилось что это делается вот так:

Код:

SuperStrict



Module тратата.тратата

Import brl.blitz

        

Const DLL:String= "НацНац.dll"



Extern "win32"

        Function FindWindowA%(class%,title$z)

        Function LoadLibraryA(lib$z)

        Function GetProcAddress:Byte Ptr(lib%,fname$z) 

End Extern





        Global Привет(x%,y%) "win"

        Global Пока  (x%,y%) "win"







Global lib%=LoadLibraryA()

If lib% Then

        Привет(x%,y%) =GetProcAddress(lib,"Preved")

        Пока  (x%,y%) =GetProcAddress(lib,"GoodPoka")

Else

        RuntimeError("Не не не, Девид Блейн!  " + DLL) 

        End

End If

Но не канает. :э(
Очевидно в ковычках в GetProcAddress(lib,"Preved") помимо названия фции должны быть
ещё и её параметры, но как их там указывать я пока не понял.
Ктонибуть может помочь?
А поможет?

Ответ: Как приделать к BlitzMax DLL

Скорее так:

Код:

SuperStrict



Module тратата.тратата

Import brl.blitz

    

Const DLL:String= "НацНац.dll"



Extern "win32"

    Function FindWindowA%(class%,title$z)

    Function LoadLibraryA(lib$z)

    Function GetProcAddress:Byte Ptr(lib%,fname$z) 

End Extern





    Global Привет(x%,y%) "win32"

    Global Пока  (x%,y%) "win32"







Global lib%=LoadLibraryA()

If lib% Then

    Привет =GetProcAddress(lib,"Preved@8")

    Пока    =GetProcAddress(lib,"GoodPoka@8")

Else

    RuntimeError("Не не не, Девид Блейн!  " + DLL) 

    End

End If

Ответ: Как приделать к BlitzMax DLL

8 байт входных аругментов в функции (4+4 [2 int т.е.])

Ответ: Как приделать к BlitzMax DLL

Если у DLLки имееться статическая библиотека, то задача упроститься.

Ответ: Как приделать к BlitzMax DLL

Цитата:

Сообщение от impersonalis (Сообщение 106713)

8 байт входных аругментов в функции (4+4 [2 int т.е.])

по-моему там не важно int это или byte, просто (4 * кол-во параметров)

скоро моё юбилейное сообщение, ждите :)

Ответ: Как приделать к BlitzMax DLL

Ну да, в основном в win32 все входные параметры dll это 4х байтовые целые или дробные.

Ответ: Как приделать к BlitzMax DLL

Цитата:

Сообщение от Diablo1909 (Сообщение 106734)

Если у DLLки имееться статическая библиотека, то задача упроститься.

Статитческая библиотека?

Эксперементы ставлю на AStar.dll

Ответ: Как приделать к BlitzMax DLL

Цитата:

Сообщение от Randomize (Сообщение 106793)

Статитческая библиотека?

Эксперементы ставлю на AStar.dll

ага...они компиляться вместе с DLL. В этих файлах храняться интерфейсы к DLL. Что то типа "готового хидера". Многие разрабы кладут их вместе с СДК.

Поищи в папочках, может найдешь....либо мелкосовтовский AStar.lib либо gcc-шный AStar.a

В Блиц-максе просто импортируй его : Import AStar.lib, после этого тебе останеться только обьявить эти функции в БМаксе (Extern::EndExtern)

Насчет AStar.dll - это случайно не мой Астар для Блиц3Д ? Могу дать lib-файл.

Ответ: Как приделать к BlitzMax DLL

Именно! Та самая AStar.dll )
От lib не откажусь, заранее спасибо!

Ответ: Как приделать к BlitzMax DLL

Итог эксперементов:

Код:

Strict

Module Subject.AStar

Import Pub.Win32



Private

Local lib%



Public



lib = LoadLibraryA("AStar.dll")



Global AStar_INIT(xMap%,yMap%) = GetProcAddress(lib, "AStar_INIT")

Global EstimateHcost%(a%,b%,targetx%,targety%) = GetProcAddress(lib, "EstimateHcost")

Global FindPath%(pathfinderID%,mapWidth%,mapHeight%,startX%,startY%,targetX%,targetY%,stepBystep%) = GetProcAddress(lib, "FindPath")

Global ReadPathX%(pathfinderID%,pathLocation%) = GetProcAddress(lib, "ReadPathX")

Global ReadPathY%(pathfinderID%,pathLocation%) = GetProcAddress(lib, "ReadPathY")

Global ReadPath%(pathfinderID%) = GetProcAddress(lib, "ReadPath")

Global Get_walkability%(x%,y%) = GetProcAddress(lib, "Get_walkability")

Global Set_walkability(x%,y%,param%) = GetProcAddress(lib, "Set_walkability")

Global Get_listArray%(x%,y%) = GetProcAddress(lib, "Get_listArray")

Global Set_listArray(x%,y%,param%) = GetProcAddress(lib, "Set_listArray")

Global Get_parentX%(x%,y%) = GetProcAddress(lib, "Get_parentX")

Global Get_parentY%(x%,y%) = GetProcAddress(lib, "Get_parentY")

Global Get_Fcost%(x%,y%) = GetProcAddress(lib, "Get_Fcost")

Global Get_Gcost%(x%,y%) = GetProcAddress(lib, "Get_Gcost")

Global Get_Hcost%(x%,y%) = GetProcAddress(lib, "Get_Hcost")

Global CheckForIsland(x%,y%) = GetProcAddress(lib, "CheckForIsland")



lib = 0

Но вот Shimatta!!!!
Никак не хочет блиц его вкушивать.
Путь: BlitzMax\mod\subject.mod\AStar.mod\AStar.bmx
Тамже и DLL обитает...
MinGW есть.
Скомпилил.

Код:

Building test

Compiling:test.bmx

Compile Error: Can't find interface for module 'subject.astar'

[C:/Documents and Settings/Администратор/Рабочий стол/astar/test.bmx;1;1]

Build Error: failed to compile C:/Documents and Settings/Администратор/Рабочий стол/astar/test.bmx

Process complete

Wtf???

Ответ: Как приделать к BlitzMax DLL

БМ не может найти модуль. Ты его скомпилил вообще?
и где лежат сорцы, напиши полный путь к папке.

П.С. штука парни, это - 1000 :)

Ответ: Как приделать к BlitzMax DLL

Ну я помоему всё что можно расписал...

Ответ: Как приделать к BlitzMax DLL

а скомпилил ты под дебаг и под релиз? может кинешь архив проекта.

Ответ: Как приделать к BlitzMax DLL

Цитата:

Сообщение от dimanche13 (Сообщение 107151)

а скомпилил ты под дебаг и под релиз? может кинешь архив проекта.

Спасибо, но проблема уже решена.
Как ни странно но виной всему проклятые вирусы, после того как восстановил с образа винч всё стало работать как положено.
Зря я шум поднял, прошу прощения.