Не понятно что не так с DLL

[spolyr]

Все привет!
Подскажите почему, имею пустышку type.dll, вызываю из программы e.exe, путем invoke invoke Type, DROB, [asd],

В библиотеке есть строка SetLastError, 0 --- если снять комментарий то работает, без нее не работает, выдает ошибку windows -ошибочный образ.

============= файл a.asm (exe)===================
format PE CONSOLE			         ;пишем консоль под Win32     
entry start				         ;укажем транслятору точку входа в код
include 'd:\fasm\include\win32a.inc'

section '.PUT' data readable writable	         ;собственно секция данных	  
		    
                    DROB  DB  'testing DLL',0     
                      asd DD 0

section '.code' code readable executable         ;начало секции кода
start:	
 mov [asd],1

;процедура вызывается из своей DLL, Type.DLL
;передаем параметры 

 invoke Type, DROB, [asd]

;Выход в Windows
 invoke ExitProcess, 0

 section '.idata' import data readable writeable
 library kernel32,'KERNEL32.DLL',\
	   userl32,'USER32.DLL',\
	   Type,'Type.DLL'     

 include 'd:\fasm\include\api\kernel32.inc'
 include 'd:\fasm\include\api\user32.inc'
 import Type,\
	   Type,'Type'

============= конец a.asm ======================

============= файл type.asm (dll)==================
format PE GUI 4.0 DLL
entry DllEntryPoint

include 'd:\fasm\include\win32a.inc'

;section '.data' data readable writable

section '.text' code readable executable

;ИНИЦИАЛИЗАЦИЯ DLL
proc DllEntryPoint hinstDLL,fdwReason,lpvReserved
        mov eax,TRUE
  	ret
endp

;собственная процедура

proc Type A,B 
 mov eax,[A]
 mov eax,[B]

;эту штуку не убирать, иначе происходит ошибка в Windows 7, DLL
; invoke SetLastError, 0

 ret
endp

section '.idata' import data readable writeable
    library kernel32,'KERNEL32.DLL'
    include 'd:\fasm\include\api\kernel32.inc'

section '.edata' export data readable
    export 'Type.DLL',\
               	  Type,'Type'

section '.reloc' fixups data discardable

======== конец файла type.asm (dll)===================

[R71MT]

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

В библиотеке есть строка SetLastError, 0 --- если снять комментарий то работает, без нее - ошибочный образ.

SetLastError, 0 означает - не обращать внимание на последнюю ошибку. Ищи глюк в коде..
В папке фасма есть пример длл'ок - открой и сравни со-своим кодом

[Vapaamies]

Чтобы никто не подумал, что тема никому не интересна, отпишусь. Я попытался поиграться с FASM с предложенными исходниками, получил ту же ошибку, но найти причину так и не смог. Предполагаю, что это хитрый наведенный эффект от слишком короткой библиотеки, что-то там в секциях не согласуется.

[spolyr]

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

Чтобы никто не подумал, что тема никому не интересна, отпишусь. Я попытался поиграться с FASM с предложенными исходниками, получил ту же ошибку, но найти причину так и не смог. Предполагаю, что это хитрый наведенный эффект от слишком короткой библиотеки, что-то там в секциях не согласуется.

Да, прикольная штука с секциями, мне ответили на другом форуме, дело в секции
section '.reloc' fixups data discardable
сказали нельзя чтоб она была пуста, там таблица релокенов корректируется во время загрузки библиотеки,
пишем ниже
if $ = $$
dd 0 , 8
end if

и библиотека будет работать, но на 95 и 98 не пойдет

[spolyr]

Еще можно секцию section '.reloc' fixups data discardable
удалить, а в секция данных дописать

data fixups
end data

[spolyr]

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

Еще можно секцию section '.reloc' fixups data discardable
удалить, а в секция данных дописать

data fixups
end data

Ошибся, не в секции данных, а в секции export
вот в конце как работает
пример:

export 'q1.dll',\
string_size_byte_null,'string_size_ byte_null'

data fixups
end data

[Vapaamies]

А кто формирует эти самые данные перемещения, сам FASM или программист? То ли плохо смотрел, то ли в доке FASM реально об этом не написано.

[spolyr]

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

А кто формирует эти самые данные перемещения, сам FASM или программист? То ли плохо смотрел, то ли в доке FASM реально об этом не написано.

мне написали такой текст
"spolyr

Quote:
the example included with fasm, there is also a section is empty?


В примерах эта секция оказывается непуста, потому что fasm в неё помещает таблицу фиксапов/релокаций, т.е. таблицу адресов, которые нужно исправить при загрузке, если образ будет загружен не по базовому адресу. Эта таблица генерируется автоматически благодаря слову fixups в объявлении секции. Так вот вызов импортируемой функции является таким местом, которое нужно исправлять. И в Вашем примере единственным. Соответственно, если этот вызов убрать, то таблица окажется пуста. И соответственно вся секция окажется пустой, из-за чего образ не принимается загрузчиком.

Quote:
and all was fine, although do not understand what it


Этот пример добавляет в таблицу заголовок пустого блока таблицы. Соответственно секция оказывается непустой. Недостатком этого решения по сравнению с тем, что я привёл в предыдущем посте, является увеличение объёма образа на 512 байт. В моём примере таблица релокаций определяется отдельно от заголовка секции, а в секцию добавляются неинициализированные данные. Поэтому секция оказывается непустой, но на размер образа это не влияет. Недостатком этого решения является то, что на системах линейки 95-98-ME образ не загрузится, т.к. там загрузчику требуется, чтобы непустой была не секция, а сама таблица релокаций. "


вот моя пустая DLL , первый вариант, второй вариант убираем секцию .reloc совсем, и раскомментируем то что в секции export

format PE GUI 4.0 DLL

include 'd:\fasm\include\win32ax.inc'

section '.text' code readable executable

proc DllEntryPoint hinstDLL,fdwReason,lpvReserved;
mov eax,TRUE
ret
endp

proc string_size_byte_null, the_string

ret
endp

section '.idata' import data readable writeable
library kernel32,'KERNEL32.DLL'
include 'd:\fasm\include\api\kernel32.inc'

section '.edata' export data readable

export 'q1.dll',\
string_size_byte_null,'string_size_ byte_null'

;data fixups
;end data
section '.reloc' data readable discardable
data fixups
end data
rb 4


проверял, работает

[Vapaamies]

Спасибо, с таким объяснением всё встало на свои места. Пока не приходилось DLL на FASM писать, до таких глубин не дошел.