Native DLL

[pitbull]

tyomitch, что-то я тупенький какой-то стал
Объясни поподробнее, в каком виде и как передавать/принимать строковые значения в NativeDLL.

[tyomitch]

Принимать как ByVal As Long и для получения из них строки вызывать SysAllocString
Передавать как ByVal StrPtr(stroka)

[pitbull]

Пасиба, сразу все понятна стало

[Mikle]

А на мои вопросы тишина... и мертвые с косами стоят!

[pitbull]

A.A.Z. Дык вот, NativeDll которая на http://dansoftaus.r8.org/ почему-то не хочет компилить....

Вроде бы все установил, выбрал процедуры для экспорта, нажимаю компилить, создается текстовый файл и все. Убираю все галки в экспорте, нажимаю компилить и создается пустая Dll (без ф-ций).

Может кто пояснит?

[GSerg]

NativeDll которая на http://dansoftaus.r8.org/ почему-то не хочет компилить....

Это не наша.

А на мои вопросы тишина...

Дык это... Не знаем мы...

Для меня это был чисто академический интерес - можно ли, и если можно, то как. С форматом PE, опять же, разобраться... Ни для чего серьёзного я это дело не использую, для библиотек дельфи есть и C++.
А грабли наверняка будут, до тех пор, пока мы не поймём, как корректно внедрить инициализацию виртуальной машины в DLLMain...

[pitbull]

GSerg
Дык я знаю, что не ваша, ваша та работает.....
Вашу я еще один из первых скачал
Я хотел ту проверить, мож её тоже кто проверял...

[Mikle]

GSerg
Понял.
Но вещь все равно полезная, даже только для VB. Например я сделал в DLL функцию, которая просто возвращает свой аргумент типа Long, а декларирую ее как Single - в результате получил очень быструю FtoDW. Без DLL мне бейсик таких вольностей не позволял.

[tyomitch]

GSerg
Понял.
Но вещь все равно полезная, даже только для VB. Например я сделал в DLL функцию, которая просто возвращает свой аргумент типа Long, а декларирую ее как Single - в результате получил очень быструю FtoDW. Без DLL мне бейсик таких вольностей не позволял.

Такая функция в msvbvm уже есть. Называется VarPtr.
Объявишь её как Single - получится то же самое что у тебя, только без левых библиотек и ещё быстрее.

[GSerg]

Ага
На всякий случай

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

Option Explicit

Private Declare Function FtoDW Lib "msvbvm60" Alias "VarPtr" (ByVal f As Single) As Long

Private Sub Form_Load()
  Dim d As Long
 
  d = FtoDW(5.5)
  MsgBox d
End Sub

Если нужна скорость, и если нужно избежать затрат на вызов функции бейсиковским способом, можно сделать tlb с маппигом VarPtr. Тогда её вызов будет компилироваться в одну ассемблерную команду.


И вообще, почему, в конце концов, d3drm не сделает себе tlb девятки? С C++ ведь мучается

[Amed]

Тс-с!
Он не боится трудностей и не ищет лёгких путей.

[Mikle]

Amed

и не ищет лёгких путей.

Последний комсомолец!
tyomitch
GSerg
Спасибо! Не знал, что VarPtr можно декларировать.

[fr207]

я зарегистрировался, а не дает

[Mikle]

fr207
В первом посте есть ссылка под словом "тут". Только что проверял - работает.

[keks-n]

Наверное, то, что я сейчас пишу, не совсем в тему, раз топик подняли...
Создаваемые таким образом DLL не Native. Это обычные не ActiveX DLL.
Native DLL можно получить передав link.exe /SUBSYSTEM:NATIVE. Такие DLL(не использующие подсистемы) загрузятся, скорее всего, только в режиме ядра

[tyomitch]

Слово Native DLL имеет несколько значений, в том числе оба из указанных.

DLL без подсистемы загрузятся безо всяких проблем. Указание подсистемы задаёт лишь объём выполняемой Виндой перед запуском инициализации.

ntdll -- DLL без подсистемы, и она прекрасно используется в прогах на VB

[jangle]

Эти DLL не работают с другими средами разработки, пробовал вызывать их из PowerBASIC и С - бесполезно. А значит ф топку весь этот проект..

[keks-n]

Они предназначаются для использования в VB.

[jangle]

Они предназначаются для использования в VB.

Уж лучше тогда писать Native DLL на PowerBASIC, тогда их можно юзать из любой среды разработки и работают они быстрее чем вэбэшные

[keks-n]

Сказано же-из академического интереса. Реально их никто не использует.

[Mikle]

keks-n
Ну не совсем из академического. Иногда проект нельзя компилировать со всеми оптимизациями, а быстродействие терять не хочется, можно вынести в DLL самую тупую, но требовательную к быстродействию часть, а проект компилировать хоть в P-code. При декларации DLL мы не обязаны соблюдать дисциплину типов, что тоже бывает удобно.
jangle

и работают они быстрее чем вэбэшные

Ты проверял?

[keks-n]

DLL на PB работают шустрее далеко не всегда... Например, я написал хитрый поиск по подстроке с доп. условиями... Задействовал инлайн асму... А потом Хакер написал аналогичный код на VB, который в половине случаев работал быстрее.

[jangle]

Mikle - да это проверяно вдоль и поперек кучей юзеров, в среднем VB проигрывает PowerBasic`у от 30% до 200% в быстродействии.

DLL на PB работают шустрее далеко не всегда... Например, я написал хитрый поиск по подстроке с доп. условиями... Задействовал инлайн асму... А потом Хакер написал аналогичный код на VB, который в половине случаев работал быстрее

Может он алгоритм другой использовал?

[keks-n]

ХЗ, какой там алоритм... Но в теории это должно работать тормознее, а на практике не получаетца...

Попробую, на досуге, читать не mov al, [edi], а mov ax, WORD PTR[edi], и соответственно сравнивать al и ah

[yaklit]

хм тема старая НО полездная я давно искал.

[Mikle]

Давайте тут не оффтопить, в холиварах есть тема про быстродействие, можно продолжить там:
http://bbs.vbstreets.ru/viewtopic.php?t=26344

[keks-n]

Не удержался, чтобы не понтануться. DLL, написанная на VB, хитрым образом слинкованная(плагином, который я сейчас пишу, бажный пока) без каких-либо модификаций VB-шного исходника. Работает не только из VB, но и из C++, нормально работает рантайм.

Приложена dll+батничек, вызывающий её через rundll32
http://share.fire-lines.ru/keks-n/ndll.rar

[tyomitch]

Расскажи, как именно ты его линкуешь

[Хакер]

Блин, я проиграл

[keks-n]

tyomitch
Линкую с /DEF: и дополнительным объектником(он эмулирует "обычную" загрузку DLL). Кстати, под вистой не пашет, в связи с чем буду колдовать над директивой IMPORTS в .DEF - мне таки нужна GetProcAddress.
Add:
Адреса API-функций в инициализаторе получаются не вполне законными методами - база kernel32.dll ищется через цепочку SEH, как следствие не работает под вистой. Это сделано из-за того, что линкер не переварил указание дополнительно kernel32.lib - просто всё похерилось, а GetProcAddress жизненно необходим.
Внимание, вопрос - как ещё можно импортировать GetProcAddress, кроме как через .lib?