Subversion Repositories Kolibri OS

Rev

Rev 6314 | Rev 8262 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
4994 IgorA 1
use32
2
	org 0x0
3
	db 'MENUET01' ;идентиф. исполняемого файла всегда 8 байт
6313 IgorA 4
	dd 1, start, i_end, mem, stacktop, 0, sys_path
4994 IgorA 5
 
6
include '../../../../macros.inc'
7
include '../../../../proc32.inc'
6313 IgorA 8
include '../../../../KOSfuncs.inc'
9
include '../../../../load_img.inc'
4994 IgorA 10
include '../../../../develop/libraries/box_lib/trunk/box_lib.mac'
11
 
12
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
6322 IgorA 13
caption db 'Просмотр информации Exif 11.03.16',0 ;подпись окна
4994 IgorA 14
 
15
run_file_70 FileInfoBlock
16
 
17
fn_toolbar db 'toolbar.png',0
18
IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3
19
image_data_toolbar dd 0
20
 
21
memory_file_size dd 512*1024 ;размер памяти для открытия файлов (в начале 512 Kb, но может увеличиватся при необходимости)
22
 
23
align 4
24
start:
25
	load_libraries l_libs_start,l_libs_end
26
	;проверка на сколько удачно загузилась библиотека
27
	mov	ebp,lib_0
28
	cmp	dword [ebp+ll_struc_size-4],0
29
	jz	@f
6313 IgorA 30
		mcall SF_TERMINATE_PROCESS
4994 IgorA 31
	@@:
6313 IgorA 32
	mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors
33
	mcall SF_SET_EVENTS_MASK,0xC0000027
4994 IgorA 34
	stdcall [OpenDialog_Init],OpenDialog_data ;подготовка диалога
35
 
36
	stdcall [buf2d_create], buf_0 ;создание буфера
6313 IgorA 37
	stdcall [buf2d_create], buf_thumb
4994 IgorA 38
 
6313 IgorA 39
	load_image_file 'font8x9.bmp', image_data_toolbar
4994 IgorA 40
	stdcall [buf2d_create_f_img], buf_1,[image_data_toolbar] ;создаем буфер
41
	stdcall mem.Free,[image_data_toolbar] ;освобождаем память
42
	stdcall [buf2d_conv_24_to_8], buf_1,1 ;делаем буфер прозрачности 8 бит
43
	stdcall [buf2d_convert_text_matrix], buf_1
44
 
6313 IgorA 45
	load_image_file fn_toolbar, image_data_toolbar
4994 IgorA 46
 
47
	stdcall mem.Alloc,[memory_file_size]
48
	mov dword[open_file],eax
49
 
50
	call but_new_file
51
 
52
align 4
53
red_win:
54
	call draw_window
55
 
56
align 4
57
still:
6313 IgorA 58
	mcall SF_WAIT_EVENT
4994 IgorA 59
 
60
	cmp al,1
61
	jz red_win
62
	cmp al,2
63
	jz key
64
	cmp al,3
65
	jz button
66
	cmp al,6 ;мышь
67
	jne @f
68
		jmp mouse
69
	@@:
70
	jmp still
71
 
72
align 4
73
draw_window:
74
pushad
6313 IgorA 75
	mcall SF_REDRAW,SSF_BEGIN_DRAW
4994 IgorA 76
 
77
	; *** рисование главного окна (выполняется 1 раз при запуске) ***
78
	mov edx,[sc.work]
5007 IgorA 79
	or  edx,(3 shl 24)+0x30000000
4994 IgorA 80
	mov edi,caption
6313 IgorA 81
	mcall SF_CREATE_WINDOW, (20 shl 16)+590, (20 shl 16)+540
4994 IgorA 82
 
83
	; *** создание кнопок на панель ***
84
	mov esi,[sc.work_button]
6313 IgorA 85
	mcall SF_DEFINE_BUTTON, (5 shl 16)+20, (5 shl 16)+20, 3
4994 IgorA 86
 
87
	mov ebx,(30 shl 16)+20
88
	mov edx,4
89
	int 0x40
90
 
91
	mov ebx,(55 shl 16)+20
92
	mov edx,5
93
	int 0x40
94
 
95
	mov ebx,(85 shl 16)+20
96
	mov edx,6
97
	int 0x40
98
 
99
	mov ebx,(110 shl 16)+20
100
	mov edx,7
101
	int 0x40
102
 
5007 IgorA 103
	mov ebx,(135 shl 16)+20
104
	mov edx,8
105
	int 0x40
106
 
6313 IgorA 107
	mov ebx,(160 shl 16)+20
108
	mov edx,9
4994 IgorA 109
	int 0x40
110
 
6313 IgorA 111
	; *** рисование иконок на кнопках ***
112
	mcall SF_PUT_IMAGE, [image_data_toolbar], (16 shl 16)+16, (7 shl 16)+7 ;icon new
113
 
4994 IgorA 114
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
115
	add edx,(25 shl 16) ;icon open
116
	int 0x40
117
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
118
	add edx,(25 shl 16) ;icon save
119
	int 0x40
120
 
121
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
6313 IgorA 122
	add edx,(30 shl 16) ;app1 text
4994 IgorA 123
	int 0x40
124
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
6313 IgorA 125
	add edx,(25 shl 16) ;app1 gps
4994 IgorA 126
	int 0x40
6313 IgorA 127
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
128
	add edx,(25 shl 16) ;app2 text
129
	int 0x40
130
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
131
	add edx,(25 shl 16) ;app2 thumbnail
132
	int 0x40
4994 IgorA 133
 
134
	; *** рисование буфера ***
135
	stdcall [buf2d_draw], buf_0
136
 
6313 IgorA 137
	mcall SF_REDRAW,SSF_END_DRAW
4994 IgorA 138
popad
139
	ret
140
 
141
align 4
142
key:
6313 IgorA 143
	mcall SF_GET_KEY
4994 IgorA 144
	jmp still
145
 
146
align 4
147
mouse:
148
 
149
	jmp still
150
 
151
align 4
152
button:
6313 IgorA 153
	mcall SF_GET_BUTTON
4994 IgorA 154
	cmp ah,3
155
	jne @f
156
		call but_new_file
157
	@@:
158
	cmp ah,4
159
	jne @f
160
		call but_open_file
161
	@@:
162
	cmp ah,5
163
	jne @f
164
		call but_save_file
165
	@@:
166
	cmp ah,6
167
	jne @f
6314 IgorA 168
		call draw_file_1 ;основная информация
4994 IgorA 169
	@@:
170
	cmp ah,7
171
	jne @f
6314 IgorA 172
		call draw_file_2 ;информация по GPS
4994 IgorA 173
	@@:
5007 IgorA 174
	cmp ah,8
175
	jne @f
6314 IgorA 176
		call draw_file_3 ;информация app2
5007 IgorA 177
	@@:
6313 IgorA 178
	cmp ah,9
179
	jne @f
6314 IgorA 180
		call draw_file_4
6313 IgorA 181
	@@:
4994 IgorA 182
	cmp ah,1
183
	jne still
184
.exit:
185
	stdcall [buf2d_delete],buf_0
186
	stdcall [buf2d_delete],buf_1 ;удаляем буфер
6313 IgorA 187
	stdcall [buf2d_delete],buf_thumb
4994 IgorA 188
	stdcall mem.Free,[image_data_toolbar]
189
	stdcall mem.Free,[open_file]
6313 IgorA 190
	mcall SF_TERMINATE_PROCESS
4994 IgorA 191
 
192
 
193
align 4
194
but_new_file:
195
	mov dword[open_file_size],0
5007 IgorA 196
	call draw_file_1
4994 IgorA 197
	ret
198
 
199
align 4
200
open_file dd 0 ;указатель на память для открытия файлов
201
open_file_size dd 0 ;размер открытого файла (должен быть не больше memory_file_size)
202
 
203
align 4
204
but_open_file:
205
	pushad
206
	copy_path open_dialog_name,communication_area_default_path,file_name,0
207
	mov [OpenDialog_data.type],0
208
	stdcall [OpenDialog_Start],OpenDialog_data
209
	cmp [OpenDialog_data.status],2
210
	je .end_open_file
211
	;код при удачном открытии диалога
212
 
6313 IgorA 213
	mov [run_file_70.Function], SSF_GET_INFO
4994 IgorA 214
	mov [run_file_70.Position], 0
215
	mov [run_file_70.Flags], 0
216
	mov dword[run_file_70.Count], 0
217
	m2m [run_file_70.Buffer], [open_file]
218
	mov byte[run_file_70+20], 0
219
	mov dword[run_file_70.FileName], openfile_path
6313 IgorA 220
	mcall SF_FILE,run_file_70
4994 IgorA 221
	cmp eax,0
222
	jne .end_open_file
223
 
224
	mov eax,[open_file]
6314 IgorA 225
	mov ebx,[eax+32] ;dword[eax+32] - размер открываемого файла
226
	mov [open_file_size],ebx ;ebx - размер открываемого файла
4994 IgorA 227
	;memory_file_size - размер выделенной памяти для файла
6314 IgorA 228
	cmp [memory_file_size],ebx
4994 IgorA 229
	jge @f
230
		;увеличиваем память если не хватило
6314 IgorA 231
		mov [memory_file_size],ebx
232
		stdcall mem.ReAlloc, [open_file],ebx
233
		mov [open_file],eax
4994 IgorA 234
	@@:
235
 
6313 IgorA 236
	mov [run_file_70.Function], SSF_READ_FILE
4994 IgorA 237
	mov [run_file_70.Position], 0
238
	mov [run_file_70.Flags], 0
239
	m2m dword[run_file_70.Count], dword[open_file_size]
240
	m2m dword[run_file_70.Buffer],dword[open_file]
241
	mov byte[run_file_70+20], 0
242
	mov dword[run_file_70.FileName], openfile_path
6313 IgorA 243
	mcall SF_FILE,run_file_70 ;загружаем файл изображения
4994 IgorA 244
	cmp ebx,0xffffffff
245
	je .end_open_file
246
 
247
	mov [open_file_size],ebx
248
	;add ebx,dword[open_file]
249
	;mov byte[ebx],0 ;на случай если ранее был открыт файл большего размера чистим конец буфера с файлом
250
	stdcall [exif_get_app1], [open_file],h_app1
6313 IgorA 251
	mcall SF_SET_CAPTION,1,openfile_path
4994 IgorA 252
 
5007 IgorA 253
	call draw_file_1
4994 IgorA 254
	.end_open_file:
255
	popad
256
	ret
257
 
6313 IgorA 258
;description:
259
; информация exif из app1
260
; текстовые и числовые данные
4994 IgorA 261
align 4
5007 IgorA 262
draw_file_1:
4994 IgorA 263
pushad
264
	stdcall [buf2d_clear], buf_0, [buf_0.color]
265
	cmp dword[open_file_size],0
266
	je .open_file
267
 
268
	mov eax,1
5002 IgorA 269
	mov ebx,1
4994 IgorA 270
	.cycle_0:
6322 IgorA 271
		stdcall [exif_get_tag], h_app1,eax,txt_buf,80
5002 IgorA 272
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_buf,3,ebx,0xb0
4994 IgorA 273
		inc eax
274
		add ebx,10
275
		cmp byte[txt_buf],0
276
		jne .cycle_0
277
 
5002 IgorA 278
	;считываем дочерние теги для 0x8769
6322 IgorA 279
	stdcall [exif_get_child], h_app1,h_child,0x8769
5002 IgorA 280
	cmp dword[h_child],0
5007 IgorA 281
	je .no_found_child
5002 IgorA 282
 
283
	mov eax,1
284
	sub ebx,5
285
	.cycle_1:
6322 IgorA 286
		stdcall [exif_get_tag], h_child,eax,txt_buf,80
5002 IgorA 287
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_buf,3,ebx,0xb00000
288
		inc eax
289
		add ebx,10
290
		cmp byte[txt_buf],0
291
		jne .cycle_1
292
 
4994 IgorA 293
	jmp @f
5007 IgorA 294
	.no_found_child:
295
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_nochild,3,ebx,0xb000
296
		jmp @f
4994 IgorA 297
	.open_file:
298
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_openfile,3,3,0xb000
299
	@@:
300
	stdcall [buf2d_draw], buf_0
301
popad
302
	ret
303
 
6313 IgorA 304
;description:
305
; информация exif из app1
306
; данные о gps
4994 IgorA 307
align 4
5007 IgorA 308
draw_file_2:
309
pushad
310
	stdcall [buf2d_clear], buf_0, [buf_0.color]
311
	cmp dword[open_file_size],0
312
	je .open_file
313
 
314
	mov eax,1
315
	mov ebx,1
316
	.cycle_0:
6322 IgorA 317
		stdcall [exif_get_tag], h_app1,eax,txt_buf,80
5007 IgorA 318
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_buf,3,ebx,0xb0
319
		inc eax
320
		add ebx,10
321
		cmp byte[txt_buf],0
322
		jne .cycle_0
323
 
324
	;считываем дочерние теги для 0x8825
6322 IgorA 325
	stdcall [exif_get_child], h_app1,h_child,0x8825
5007 IgorA 326
	cmp dword[h_child],0
327
	je .no_found_child
328
 
329
	mov eax,1
330
	sub ebx,5
331
	.cycle_1:
6322 IgorA 332
		stdcall [exif_get_tag], h_child,eax,txt_buf,80
5007 IgorA 333
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_buf,3,ebx,0xb00000
334
		inc eax
335
		add ebx,10
336
		cmp byte[txt_buf],0
337
		jne .cycle_1
338
 
339
	jmp @f
340
	.no_found_child:
341
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_nochild,3,ebx,0xb000
342
		jmp @f
343
	.open_file:
344
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_openfile,3,3,0xb000
345
	@@:
346
	stdcall [buf2d_draw], buf_0
347
popad
348
	ret
349
 
6313 IgorA 350
;description:
351
; информация exif из app2
352
; текстовые и числовые данные
5007 IgorA 353
align 4
354
draw_file_3:
355
pushad
356
	stdcall [buf2d_clear], buf_0, [buf_0.color]
357
	cmp dword[open_file_size],0
358
	je .open_file
359
 
360
	mov eax,1
361
	mov ebx,1
362
	.cycle_0:
6322 IgorA 363
		stdcall [exif_get_tag], h_app1,eax,txt_buf,80
5007 IgorA 364
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_buf,3,ebx,0xb0
365
		inc eax
366
		add ebx,10
367
		cmp byte[txt_buf],0
368
		jne .cycle_0
369
 
5010 IgorA 370
	;находим app2
5009 IgorA 371
	stdcall [exif_get_app2], h_app1,h_child
5007 IgorA 372
	cmp dword[h_child],0
373
	je .no_found_child
5010 IgorA 374
 
6313 IgorA 375
	mov eax,1 ;25
5007 IgorA 376
	sub ebx,5
377
	.cycle_1:
6322 IgorA 378
		stdcall [exif_get_tag], h_child,eax,txt_buf,80
5007 IgorA 379
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_buf,3,ebx,0xb00000
380
		inc eax
381
		add ebx,10
382
		cmp byte[txt_buf],0
383
		jne .cycle_1
384
 
385
	jmp @f
386
	.no_found_child:
387
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_nochild,3,ebx,0xb000
388
		jmp @f
389
	.open_file:
390
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_openfile,3,3,0xb000
391
	@@:
392
	stdcall [buf2d_draw], buf_0
393
popad
394
	ret
395
 
6313 IgorA 396
;description:
397
; информация exif из app2
398
; картинка для камер Nikon
5007 IgorA 399
align 4
6313 IgorA 400
draw_file_4:
401
pushad
402
	stdcall [buf2d_clear], buf_0, [buf_0.color]
403
	cmp dword[open_file_size],0
404
	je .open_file
405
 
6322 IgorA 406
	;выводим общую информацию по снимку:
407
	;0x010f - Manufacturer of digicam
408
	;0x0110 - Model
409
	;0x0132 - Modify date
410
	mov ebx,3
411
	stdcall [exif_get_tag_id], h_app1,0x010f,txt_buf,80
412
	stdcall [buf2d_draw_text], buf_0, buf_1,txt_buf,3,ebx,0xb0
413
	add ebx,10
414
	stdcall [exif_get_tag_id], h_app1,0x0110,txt_buf,80
415
	stdcall [buf2d_draw_text], buf_0, buf_1,txt_buf,3,ebx,0xb0
416
	add ebx,10
417
	stdcall [exif_get_tag_id], h_app1,0x0132,txt_buf,80
418
	stdcall [buf2d_draw_text], buf_0, buf_1,txt_buf,3,ebx,0xb0
419
	add ebx,20
6313 IgorA 420
 
421
	;находим app2
422
	stdcall [exif_get_app2], h_app1,h_child
423
	cmp dword[h_child],0
424
	je .no_found_child
6322 IgorA 425
 
6313 IgorA 426
	;считываем дочерние теги
6322 IgorA 427
	;0x0011 - Preview IFD
428
	stdcall [exif_get_child], h_child,h_child,0x0011
6313 IgorA 429
	cmp dword[h_child],0
430
	je .no_found_child
431
 
6322 IgorA 432
	;0x0202 - Preview Image Length
433
	stdcall [exif_get_child], h_child,h_child_siz,0x0202
6313 IgorA 434
	cmp dword[h_child_siz],0
435
	je .no_found_child
436
 
6322 IgorA 437
	;0x0201 - Preview Image Start
438
	stdcall [exif_get_child], h_child,h_child,0x0201
6313 IgorA 439
	cmp dword[h_child],0
440
	je .no_found_child
441
 
442
	stdcall [img_decode],dword[h_child],dword[h_child_siz],0
443
	cmp dword[eax+4],1
444
	jl .no_found_child
445
	cmp dword[eax+8],1
446
	jl .no_found_child
447
	mov ebx,eax
448
	stdcall [buf2d_resize],buf_thumb,[eax+4],[eax+8],1
449
	;преобразуем изображение к формату rgb
450
	stdcall [img_to_rgb2],ebx,[buf_thumb]
6322 IgorA 451
	stdcall [img_destroy],ebx ;удаляем временный буфер ebx
6313 IgorA 452
 
6322 IgorA 453
	mov ebx,43
454
	stdcall [buf2d_draw_text], buf_0, buf_1,txt_thumb,3,ebx,0xb000
455
	add ebx,10
456
	stdcall [buf2d_bit_blt], buf_0, 0,ebx, buf_thumb ;рисуем изображение
6313 IgorA 457
	jmp @f
458
 
459
	.no_found_child:
6322 IgorA 460
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_nochild,3,ebx,0xb000
6313 IgorA 461
		jmp @f
462
	.open_file:
463
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_openfile,3,3,0xb000
464
	@@:
465
	stdcall [buf2d_draw], buf_0
466
popad
467
	ret
468
 
469
align 4
4994 IgorA 470
but_save_file:
471
	pushad
472
	copy_path open_dialog_name,communication_area_default_path,file_name,0
473
	mov [OpenDialog_data.type],1
474
	stdcall [OpenDialog_Start],OpenDialog_data
475
	cmp [OpenDialog_data.status],2
476
	je .end_save_file
477
	;код при удачном открытии диалога
478
 
6313 IgorA 479
	mov [run_file_70.Function], SSF_CREATE_FILE
4994 IgorA 480
	mov [run_file_70.Position], 0
481
	mov [run_file_70.Flags], 0
6313 IgorA 482
 
483
if 1 ;ставим 1 если сохраняется все изображение
4994 IgorA 484
	mov ebx, dword[open_file]
485
	mov [run_file_70.Buffer], ebx
486
	mov ebx,[open_file_size]
6313 IgorA 487
end if
488
if 0 ;ставим 1 если сохраняется эскиз изображения
489
	;находим app2
490
	stdcall [exif_get_app2], h_app1,h_child
491
	cmp dword[h_child],0
492
	je .end_save_file
493
	;считываем дочерние теги
6322 IgorA 494
	stdcall [exif_get_child], h_child,h_child,0x0011
6313 IgorA 495
	cmp dword[h_child],0
496
	je .end_save_file
6322 IgorA 497
	stdcall [exif_get_child], h_child,h_child,0x0201
6313 IgorA 498
	cmp dword[h_child],0
499
	je .end_save_file
500
 
501
	mov ebx,dword[h_child] ;dword[open_file]
502
	mov [run_file_70.Buffer], ebx
6314 IgorA 503
	mov ebx,dword[h_child_siz] ;размер эскиза изображения
6313 IgorA 504
end if
4994 IgorA 505
	mov dword[run_file_70.Count], ebx ;размер файла
506
	mov byte[run_file_70+20], 0
507
	mov dword[run_file_70.FileName], openfile_path
6313 IgorA 508
	mcall SF_FILE,run_file_70 ;сохраняем файл
4994 IgorA 509
	;cmp ebx,0xffffffff
510
	;je .end_save_file
511
	; ... сообщение о неудачном сохранении ...
512
 
513
	.end_save_file:
514
	popad
515
	ret
516
 
517
;данные для диалога открытия файлов
518
align 4
519
OpenDialog_data:
520
.type			dd 0 ;0 - открыть, 1 - сохранить, 2 - выбрать дтректорию
521
.procinfo		dd procinfo	;+4
522
.com_area_name		dd communication_area_name	;+8
523
.com_area		dd 0	;+12
524
.opendir_path		dd plugin_path	;+16
525
.dir_default_path	dd default_dir ;+20
526
.start_path		dd file_name ;+24 путь к диалогу открытия файлов
527
.draw_window		dd draw_window	;+28
528
.status 		dd 0	;+32
529
.openfile_path		dd openfile_path	;+36 путь к открываемому файлу
530
.filename_area		dd filename_area	;+40
531
.filter_area		dd Filter
532
.x:
533
.x_size 		dw 420 ;+48 ; Window X size
534
.x_start		dw 10 ;+50 ; Window X position
535
.y:
536
.y_size 		dw 320 ;+52 ; Window y size
537
.y_start		dw 10 ;+54 ; Window Y position
538
 
539
default_dir db '/rd/1',0
540
 
541
communication_area_name:
542
	db 'FFFFFFFF_open_dialog',0
543
open_dialog_name:
544
	db 'opendial',0
545
communication_area_default_path:
546
	db '/rd/1/File managers/',0
547
 
548
Filter:
549
dd Filter.end - Filter ;.1
550
.1:
551
db 'JPG',0
552
db 'JPEG',0
553
.end:
554
db 0
555
 
556
 
557
 
558
head_f_i:
559
head_f_l db 'Системная ошибка',0
560
 
561
system_dir_0 db '/sys/lib/'
562
lib_name_0 db 'proc_lib.obj',0
563
err_message_found_lib_0 db 'Не найдена библиотека ',39,'proc_lib.obj',39,0
564
err_message_import_0 db 'Ошибка при импорте библиотеки ',39,'proc_lib.obj',39,0
565
 
566
system_dir_1 db '/sys/lib/'
567
lib_name_1 db 'libimg.obj',0
568
err_message_found_lib_1 db 'Не найдена библиотека ',39,'libimg.obj',39,0
569
err_message_import_1 db 'Ошибка при импорте библиотеки ',39,'libimg.obj',39,0
570
 
571
system_dir_2 db '/sys/lib/'
572
lib_name_2 db 'buf2d.obj',0
573
err_msg_found_lib_2 db 'Не найдена библиотека ',39,'buf2d.obj',39,0
574
err_msg_import_2 db 'Ошибка при импорте библиотеки ',39,'buf2d',39,0
575
 
576
system_dir_3 db '/sys/lib/'
577
lib_name_3 db 'exif.obj',0
578
err_msg_found_lib_3 db 'Не найдена библиотека ',39,'exif.obj',39,0
579
err_msg_import_3 db 'Ошибка при импорте библиотеки ',39,'exif',39,0
580
 
581
l_libs_start:
582
	lib_0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\
583
		err_message_found_lib_0, head_f_l, proclib_import,err_message_import_0, head_f_i
584
	lib_1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\
585
		err_message_found_lib_1, head_f_l, import_libimg, err_message_import_1, head_f_i
6313 IgorA 586
	lib_2 l_libs lib_name_2, sys_path, file_name, system_dir_2,\
4994 IgorA 587
		err_msg_found_lib_2,head_f_l,import_buf2d,err_msg_import_2,head_f_i
6313 IgorA 588
	lib_3 l_libs lib_name_3, sys_path, file_name, system_dir_3,\
4994 IgorA 589
		err_msg_found_lib_3,head_f_l,import_exif,err_msg_import_3,head_f_i
590
l_libs_end:
591
 
592
align 4
593
import_libimg:
594
	dd alib_init1
595
	img_is_img  dd aimg_is_img
596
	img_info    dd aimg_info
597
	img_from_file dd aimg_from_file
598
	img_to_file dd aimg_to_file
599
	img_from_rgb dd aimg_from_rgb
600
	img_to_rgb  dd aimg_to_rgb
601
	img_to_rgb2 dd aimg_to_rgb2
602
	img_decode  dd aimg_decode
603
	img_encode  dd aimg_encode
604
	img_create  dd aimg_create
605
	img_destroy dd aimg_destroy
606
	img_destroy_layer dd aimg_destroy_layer
607
	img_count   dd aimg_count
608
	img_lock_bits dd aimg_lock_bits
609
	img_unlock_bits dd aimg_unlock_bits
610
	img_flip    dd aimg_flip
611
	img_flip_layer dd aimg_flip_layer
612
	img_rotate  dd aimg_rotate
613
	img_rotate_layer dd aimg_rotate_layer
614
	img_draw    dd aimg_draw
615
 
616
	dd 0,0
617
	alib_init1   db 'lib_init',0
618
	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение
619
	aimg_info    db 'img_info',0
620
	aimg_from_file db 'img_from_file',0
621
	aimg_to_file db 'img_to_file',0
622
	aimg_from_rgb db 'img_from_rgb',0
623
	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB
624
	aimg_to_rgb2 db 'img_to_rgb2',0
625
	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
626
	aimg_encode  db 'img_encode',0
627
	aimg_create  db 'img_create',0
628
	aimg_destroy db 'img_destroy',0
629
	aimg_destroy_layer db 'img_destroy_layer',0
630
	aimg_count   db 'img_count',0
631
	aimg_lock_bits db 'img_lock_bits',0
632
	aimg_unlock_bits db 'img_unlock_bits',0
633
	aimg_flip    db 'img_flip',0
634
	aimg_flip_layer db 'img_flip_layer',0
635
	aimg_rotate  db 'img_rotate',0
636
	aimg_rotate_layer db 'img_rotate_layer',0
637
	aimg_draw    db 'img_draw',0
638
 
639
align 4
640
proclib_import: ;описание экспортируемых функций
641
	OpenDialog_Init dd aOpenDialog_Init
642
	OpenDialog_Start dd aOpenDialog_Start
643
dd 0,0
644
	aOpenDialog_Init db 'OpenDialog_init',0
645
	aOpenDialog_Start db 'OpenDialog_start',0
646
 
647
align 4
648
import_buf2d:
649
	init dd sz_init
650
	buf2d_create dd sz_buf2d_create
651
	buf2d_create_f_img dd sz_buf2d_create_f_img
652
	buf2d_clear dd sz_buf2d_clear
653
	buf2d_draw dd sz_buf2d_draw
654
	buf2d_delete dd sz_buf2d_delete
6313 IgorA 655
	buf2d_resize dd sz_buf2d_resize
4994 IgorA 656
	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
6313 IgorA 657
	buf2d_bit_blt dd sz_buf2d_bit_blt
4994 IgorA 658
	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
659
	buf2d_draw_text dd sz_buf2d_draw_text
660
	dd 0,0
661
	sz_init db 'lib_init',0
662
	sz_buf2d_create db 'buf2d_create',0
663
	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
664
	sz_buf2d_clear db 'buf2d_clear',0
665
	sz_buf2d_draw db 'buf2d_draw',0
666
	sz_buf2d_delete db 'buf2d_delete',0
6313 IgorA 667
	sz_buf2d_resize db 'buf2d_resize',0
4994 IgorA 668
	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
6313 IgorA 669
	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
4994 IgorA 670
	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
671
	sz_buf2d_draw_text db 'buf2d_draw_text',0
672
 
673
align 4
674
import_exif: ;описание экспортируемых функций
5002 IgorA 675
	exif_get_app1 dd sz_exif_get_app1
5009 IgorA 676
	exif_get_app2 dd sz_exif_get_app2
6322 IgorA 677
	exif_get_tag dd sz_exif_get_tag
678
	exif_get_tag_id dd sz_exif_get_tag_id
679
	exif_get_child dd sz_exif_get_child
680
 
4994 IgorA 681
dd 0,0
5002 IgorA 682
	sz_exif_get_app1 db 'exif_get_app1',0
5009 IgorA 683
	sz_exif_get_app2 db 'exif_get_app2',0
6322 IgorA 684
	sz_exif_get_tag db 'exif_get_tag',0
685
	sz_exif_get_tag_id db 'exif_get_tag_id',0
686
	sz_exif_get_child db 'exif_get_child',0
4994 IgorA 687
 
6322 IgorA 688
 
4994 IgorA 689
sc system_colors
690
 
691
align 16
692
procinfo process_information
693
 
694
align 4
695
buf_0: dd 0 ;указатель на буфер изображения
696
	dw 5 ;+4 left
697
	dw 31 ;+6 top
6313 IgorA 698
.w: dd 570 ;+8 w
5007 IgorA 699
.h: dd 480 ;+12 h
4994 IgorA 700
.color: dd 0xffffd0 ;+16 color
701
	db 24 ;+20 bit in pixel
702
 
703
align 4
704
buf_1:
705
	dd 0 ;указатель на буфер изображения
706
	dw 25 ;+4 left
707
	dw 25 ;+6 top
708
	dd 128 ;+8 w
709
	dd 144 ;+12 h
710
	dd 0 ;+16 color
711
	db 24 ;+20 bit in pixel
712
 
6313 IgorA 713
align 4
714
buf_thumb:
715
	dd 0 ;указатель на буфер изображения
716
	dw 0 ;+4 left
717
	dw 0 ;+6 top
718
	dd 120 ;+8 w
719
	dd 100 ;+12 h
720
	dd 0 ;+16 color
721
	db 24 ;+20 bit in pixel
722
 
723
h_app1	rb 14 ;структура для заголовка главных тегов
724
h_child rb 14 ;структура для заголовка дочерних тегов
725
h_child_siz rb 14
726
 
4994 IgorA 727
txt_openfile db 'Откройте файл изображения в формате *.jpg.',0
6313 IgorA 728
txt_thumb db 'Это эскиз изображения из данных app2.',0
5007 IgorA 729
txt_nochild  db 'Информация по этой кнопке не найдена.',0
4994 IgorA 730
txt_buf rb 80
731
 
6313 IgorA 732
align 16
4994 IgorA 733
i_end:
734
	rb 2048
735
stacktop:
736
	sys_path rb 1024
6313 IgorA 737
	file_name rb 4096
4994 IgorA 738
	plugin_path rb 4096
739
	openfile_path rb 4096
740
	filename_area rb 256
741
mem: