Интересный глюк на fasm.Приколитесь.

Коротенький пример простейшей программки типа хелло ворд.
Если закоментировать бессмысленую строку:
; invoke SQLDisconnect, [hDlg]
то ссука перестает запускаться. В принципе похрену.
Нехай будет та строка, мать ее.

Но рациональное объяснение очень хотелось бы услышать.

Код (Text):

1. format PE GUI 4.0
2. entry start
3. include '%fasminc%\win32a.inc'
4. section '.data' data readable writeable
5. hInstance dd ?
6. section '.code' code readable executable
7. start:
8.   invoke GetModuleHandle, NULL
9.   mov [hInstance],eax
10.   invoke DialogBoxParam,[hInstance],100,0,DlgProc,0
11.   invoke ExitProcess,eax
12. proc DlgProc  hDlg,uMsg, wParam, lParam
13.   cmp [uMsg],WM_CLOSE
14.       je WMCLOSE
15.     mov eax,FALSE
16.     ret
17.    WMCLOSE:
18.     invoke EndDialog,[hDlg], 0
19.   mov eax,TRUE
20.   ret
21.   invoke SQLDisconnect, [hDlg]
22. endp
23. section '.idata' import data readable writeable
24.   library kernel32,'KERNEL32.DLL',\
25.           user32,'USER32.DLL',\
26.           odbc32,'odbc32.DLL'
27.   include '%fasminc%\apia\kernel32.inc'
28.   include '%fasminc%\apia\user32.inc'
29.   import odbc32,SQLDisconnect,'SQLDisconnect'
30. section '.rsrc' resource data readable
31.     SSS   equ   'Достал!'
32.     directory RT_DIALOG,dialogs
33.     resource dialogs,100,25+1,suka
34.     dialog suka,SSS,0, 0, 100, 40 ,DS_MODALFRAME+DS_CENTER + WS_SYSMENU,0,0,'Arial',10
35.        dialogitem 'SysListView32','List1',1000,7,7,80,20,WS_BORDER + WS_TABSTOP+WS_VISIBLE
36.     enddialog

 

у меня запускается и так и так. но возможно дело в том что нада подзагрузить COMCTL32.dll можно просто вызывать заглушку InitCommonControls . но не факт что в этом дело.

 

вероятнее всего..
odbc32.dll импортирует comctl32. Под XP все равно, а под 2k диалог перестанет создаваться.

 

Почему это всё равно. Отнюдь.

 

Код (Text):

1. include '%fasminc%\encoding\win1251.inc'

также не помешает для ресурсов на русском языке

 

следующий глюк у тебя будет "не найдена метка", потому что внутри proc/endp метки нужно делать локальные (не WMCLOSE, а .WMCLOSE)

 

to shoo
Какая "не найдена метка"?
Ты, читать умеешь?
Все нормально работает.
********
А про InitCommonControls в общем правильно.

 

а сам ты читать умеешь? я написал "следующий глюк", т.е. "в будущем"

 

И с чего это он будет в будущем.
Нахрена мне 2 или три метки WMCLOSE?

 

to shoo
Эй умник!
Примеры по fasm посмотри.
Где там точки в метках внутри процедуры диалога?

 

Код (Text):

1. Эй умник!

спасибо! я в курсе

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

 

5555
Спокойнее.

 

По синтаксису FASM'a по-моему метка без предварительной точки считается как глобальная метка.

 

5555

если у тебя только один диалог - то не нужно, но если у тебя разные оконные процедуры для разных диалоговых окон, то дублирование глобальных меток ни к чему
в принципе, когда тебе дают совет, то лучше подумать, чем он тебе может пригодиться и в каком случае он имеет смысл, а не отрицать очевидное

в любом случае тебе стоит знать, что в фасме, в отличие от масма, метки без точки в начале - глобальные. на всякий случай.

 

Метки с двумя точками вначале также глобальны

 

метки с одной точкой в начале автоматически дописываются к текущей глобальной метке - этим обеспечивается их "видимость" только в области до следующей текущей глобальной метки.
разница в том, что глобальная метка (метка без точек в начале) создает новую текущую глобальную метку, а с двумя точками - нет. т.е. грубо:

Код (Text):

1.      jmp .next
2.     ...
3. here:
4.     ...
5. .next:

- здесь переход не сработает,

Код (Text):

1.      jmp .next
2.     ...
3. ..here:
4.     ...
5. .next:

- а здесь - сработает.
это очень важно, когда используются локальные метки в макросах. если они без точки (или двух) в начале - то они обрывают видимость текщей глобальной метки, поэтому рекомендую локальные метки в макросах предварять точками. например:
:

Код (Text):

1. macro test_d {
2.      local lbl
3.      test eax,eax
4.      jnz lbl
5.      test edx,edx
6. lbl:
7. }
8.  
9.      jmp .next
10.     ...
11.     test_d
12.     ...
13. .next:

- здесь переход не сработает, хотя метка lbl снаружи не будет видна. но если ее предварить точками - все будет нормально.

 

to Shoo
Ты, читать умеешь?
Я написал:
"Коротенький пример простейшей программки типа хелло ворд."
Не будет в этом примере никогда никаких диалогов кроме одного. И меток тоже не будет. Ни с точками ни без.
**************
А весь смысл вопроса почему если использовать в диалоге контрол SysListView32 то проблема, а если только едиты и баттоны то нахрен comctl32 не нужен все запускается и так.
**************
Хотя и так понятно: "Патамушто надо подгружать библиотеку."
А зачем так? - "А хрен его знает - патамушто."

 

to Jupiter
Спасибо, но я знаю про локальные и глобальные метки.

 

5555
ты грубый невоспитанный мальчик, я с тобой не разговариваю я разговаривал с другими. кстати, уметь читать полезно - можно, например, прочитать зачем нужна библиотека comctl32 - это очень просто.

 

shoo

не обижайся на него. потом он поймёт, что был не прав.