Как создать экспорт в exe-шке?

[0xy]

Собственно вопрос: как поместить ссылку на свою функцию в таблицу экспорта?

[jangle]

Собственно вопрос: как поместить ссылку на свою функцию в таблицу экспорта?

Экспорта чего? EXE, DLL ? Может ты экспорт с импортом перепутал?

[_ae_]

0xy
У линкера link.exe есть параметр /def:имя_файла
Думаю, если сначала заменить vb-шный линкер своей программой, которая будет вызывать настоящий линкер с этим параметром и передавать свой def-файл, то все будет ok.

Может ты экспорт с импортом перепутал?

Не он, скорее ты)

[Viper]

А начать надо с вопроса зачем?

[alibek]

Ну мало ли зачем. Хочет человек не ActiveX, а Native DLL сделать. Либо просто для интереса.

[jangle]

Не он, скорее ты)

Это почему?

[Viper]

jangle
Если человек хочет действительн написать Native DLL, то ему надо вписацца в таблицу экспорта естественно. Зачем ему импорт то?

Сделать это возможно как написано в посте _ae_. можно на эту тему почитать стать GSerg на http://www.vbstreets.ru или посмотреть на [url]forum/sources.ru[/url] в разделе по VB. Было там подобное обсуждение...

Но проблем с реализацией будет немерянно


З.Ы. почто в названии топика упоминается exe-шник? Автор опечатался?

[jangle]

У линкера link.exe есть параметр /def:имя_файла
Думаю, если сначала заменить vb-шный линкер своей программой, которая будет вызывать настоящий линкер с этим параметром и передавать свой def-файл, то все будет ok.

Да велика у наших людей страсть к мазохизму! Ты забыл еще добавить, что скомпилированную таким образом DLL можно вызвать только из VB. Из любого друго компилятора - не получится, значит пользователи Дельфи и VC++ идут лесом.

Ну мало ли зачем. Хочет человек не ActiveX, а Native DLL сделать. Либо просто для интереса.

Если надо создать Native DLL, лучше юзать PowerBASIC. Библа будет работать с любыми компиляторами, а не только с VB.
Вот пример простейшей Native DLL, после компиляции получаем test.dll объемом 6 кбайт:

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

#Compile Dll "test.dll"

Function ExportFunction Alias "ExportFunction" (ByVal p As String) Export As String
     MsgBox p
End Function

Пример вызова этой библы из VB:

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

Private Declare Function ExportFunction Lib "test.dll" Alias "ExportFunction" (ByVal p As String) As String   

[tyomitch]

Да велика у наших людей страсть к мазохизму! Ты забыл еще добавить, что скомпилированную таким образом DLL можно вызвать только из VB. Из любого друго компилятора - не получится, значит пользователи Дельфи и VC++ идут лесом.

Сомнительно. Я даже пример CPL на VB6 видел.


Топики про создание нативных DLL на этом форуме уже были. И линкер подменяли, и что угодно. Эка невидаль...

[jangle]

Топики про создание нативных DLL на этом форуме уже были. И линкер подменяли, и что угодно. Эка невидаль...

я знаю эти топики, и пытался использовать этот механизм компиляции в Native DLL столкнулся с граблями, что DLL работает только с VB. Дельфи и VC при вызове выбрасывают GPF, там какая-то нестыковка VB рантайма и механизма загрузки Windows DLL. Короче не предназначен VB для создания Native dll, вот и не работает

З.Ы. почто в названии топика упоминается exe-шник? Автор опечатался?

А что разве в экзешнике не может быть экспорта?

[Viper]

Может, но зачем экзешнику эспорт? Вопрос конечно риторический, но все же лучше экспортируемые функции в DLL помещать. Они для того и предназначены.

Насчет мазохизма... Оно конечно да, но вот тут проблема создания Native DLL очень подробно обсуждена и многие подводные камни успешно ликвидированы. Так что все можно сотворить

[tyomitch]

Насчет мазохизма... Оно конечно да, но вот тут проблема создания Native DLL очень подробно обсуждена и многие подводные камни успешно ликвидированы. Так что все можно сотворить

Прочитал первую страницу, там сплошной бред.
Дальше читать не стал.

[Viper]

там дальше бред постепенно исчезал по мере уменьшения наивности

[jangle]

Может, но зачем экзешнику эспорт?

Во многих случаях это просто необходимо. Например приложение-сервер, дабл кликом запускается как обычный экзешник, но в то-же время можно использовать его как DLL библиотеку. Подключаешь хедер к с описанием функций, и юзаешь EXE как компонент твоей проги. Не нужно передавать параметры через командную строку, а потом ловить консольный вывод. Очень удобно!

Насчет мазохизма... Оно конечно да, но вот тут проблема создания Native DLL очень подробно обсуждена и многие подводные камни успешно ликвидированы. Так что все можно сотворить

Ради интереса скачал, скомпилировал пример DLL. Попытался вызвать ее из PowerBASIC. Результат - GPF, деббагер проваливается куда-то в недра MSVBVM60.DLL.
Не работало в 2004 году, не работает и сейчас...

[jangle]

Кстати, с секций экспорта в EXE возможен интересный изврат:

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

#Compile Exe "test.exe"
#Dim All

Declare Function Msg  Lib "test.exe" Alias "F1"  (ByVal p As String) As Long 'Импортируем функцию F1 из test.exe

Function F1 Alias "F1" (ByVal p As String) Export As Long
    MsgBox p
End Function

Function PBMain () As Long
    Msg "HELLO" 'Вызываем собственную функцию через секцию экспорта
End Function
                         

Это пример на PB. Здесь функция F1 (заалиасенная Msg) вызывается через секцию экспорта собственного экзешника. Нафиг это нужно, мне непонятно. Но все работает. Может майкрософт сделала эту фичу для каких-то малопонятных системных целей?

[tyomitch]

В стародавние времена (Win10 и, кажется, Win2x) длл-ек не было совсем, и функции экспортировались из обычных ехе, которые при запуске говорили "не кликай по мне, я не прога". Потом договорились переименовывать незапускаемые проги в .длл, чтобы юзеры в них почём зря не тыкали. Разницы между ехе и длл как не было, так и нет.

[Twister]

И для полноты картины (точнее, для просвещения автора) дам линк на доки по PE-формату. Имхо легче самому сделать то, что нужно, чем не имея должного опыта, ковырять чужие коды...

[0xy]

Я спросил, существует ли в VB аналоп делфового

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

procedure [ProcName]
begin
...................
end;
EXPORTS
   [ProcName];


[ANDLL]

0xy
Да. Прям берешь, создаешь DEF-файл и пишешь там свои EXPORTS. А потом подменяешь аргументы линкеры и усе.