Subversion Repositories Kolibri OS

Rev

Rev 5010 | Rev 6314 | 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
6313 IgorA 13
caption db 'Просмотр информации Exif 10.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
168
		call but_1
169
	@@:
170
	cmp ah,7
171
	jne @f
172
		call but_2
173
	@@:
5007 IgorA 174
	cmp ah,8
175
	jne @f
176
		call but_3
177
	@@:
6313 IgorA 178
	cmp ah,9
179
	jne @f
180
		call but_4
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]
225
	mov ebx,dword[eax+32] ;dword[eax+32] - размер открываемого файла
226
	mov dword[open_file_size],ebx ;ebx - размер открываемого файла
227
	;memory_file_size - размер выделенной памяти для файла
228
	cmp dword[memory_file_size],ebx
229
	jge @f
230
		;увеличиваем память если не хватило
231
		mov dword[memory_file_size],ebx
232
		stdcall mem.ReAlloc, dword[open_file],ebx
233
	@@:
234
 
6313 IgorA 235
	mov [run_file_70.Function], SSF_READ_FILE
4994 IgorA 236
	mov [run_file_70.Position], 0
237
	mov [run_file_70.Flags], 0
238
	m2m dword[run_file_70.Count], dword[open_file_size]
239
	m2m dword[run_file_70.Buffer],dword[open_file]
240
	mov byte[run_file_70+20], 0
241
	mov dword[run_file_70.FileName], openfile_path
6313 IgorA 242
	mcall SF_FILE,run_file_70 ;загружаем файл изображения
4994 IgorA 243
	cmp ebx,0xffffffff
244
	je .end_open_file
245
 
246
	mov [open_file_size],ebx
247
	;add ebx,dword[open_file]
248
	;mov byte[ebx],0 ;на случай если ранее был открыт файл большего размера чистим конец буфера с файлом
249
	stdcall [exif_get_app1], [open_file],h_app1
6313 IgorA 250
	mcall SF_SET_CAPTION,1,openfile_path
4994 IgorA 251
 
5007 IgorA 252
	call draw_file_1
4994 IgorA 253
	.end_open_file:
254
	popad
255
	ret
256
 
6313 IgorA 257
;description:
258
; информация exif из app1
259
; текстовые и числовые данные
4994 IgorA 260
align 4
5007 IgorA 261
draw_file_1:
4994 IgorA 262
pushad
263
	stdcall [buf2d_clear], buf_0, [buf_0.color]
264
	cmp dword[open_file_size],0
265
	je .open_file
266
 
267
	mov eax,1
5002 IgorA 268
	mov ebx,1
4994 IgorA 269
	.cycle_0:
5007 IgorA 270
		stdcall [exif_get_app1_tag], h_app1,eax,txt_buf,80
5002 IgorA 271
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_buf,3,ebx,0xb0
4994 IgorA 272
		inc eax
273
		add ebx,10
274
		cmp byte[txt_buf],0
275
		jne .cycle_0
276
 
5002 IgorA 277
	;считываем дочерние теги для 0x8769
5007 IgorA 278
	stdcall [exif_get_app1_child], h_app1,h_child,0x8769
5002 IgorA 279
	cmp dword[h_child],0
5007 IgorA 280
	je .no_found_child
5002 IgorA 281
 
282
	mov eax,1
283
	sub ebx,5
284
	.cycle_1:
5007 IgorA 285
		stdcall [exif_get_app1_tag], h_child,eax,txt_buf,80
5002 IgorA 286
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_buf,3,ebx,0xb00000
287
		inc eax
288
		add ebx,10
289
		cmp byte[txt_buf],0
290
		jne .cycle_1
291
 
4994 IgorA 292
	jmp @f
5007 IgorA 293
	.no_found_child:
294
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_nochild,3,ebx,0xb000
295
		jmp @f
4994 IgorA 296
	.open_file:
297
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_openfile,3,3,0xb000
298
	@@:
299
	stdcall [buf2d_draw], buf_0
300
popad
301
	ret
302
 
6313 IgorA 303
;description:
304
; информация exif из app1
305
; данные о gps
4994 IgorA 306
align 4
5007 IgorA 307
draw_file_2:
308
pushad
309
	stdcall [buf2d_clear], buf_0, [buf_0.color]
310
	cmp dword[open_file_size],0
311
	je .open_file
312
 
313
	mov eax,1
314
	mov ebx,1
315
	.cycle_0:
316
		stdcall [exif_get_app1_tag], h_app1,eax,txt_buf,80
317
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_buf,3,ebx,0xb0
318
		inc eax
319
		add ebx,10
320
		cmp byte[txt_buf],0
321
		jne .cycle_0
322
 
323
	;считываем дочерние теги для 0x8825
324
	stdcall [exif_get_app1_child], h_app1,h_child,0x8825
325
	cmp dword[h_child],0
326
	je .no_found_child
327
 
328
	mov eax,1
329
	sub ebx,5
330
	.cycle_1:
331
		stdcall [exif_get_app1_tag], h_child,eax,txt_buf,80
332
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_buf,3,ebx,0xb00000
333
		inc eax
334
		add ebx,10
335
		cmp byte[txt_buf],0
336
		jne .cycle_1
337
 
338
	jmp @f
339
	.no_found_child:
340
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_nochild,3,ebx,0xb000
341
		jmp @f
342
	.open_file:
343
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_openfile,3,3,0xb000
344
	@@:
345
	stdcall [buf2d_draw], buf_0
346
popad
347
	ret
348
 
6313 IgorA 349
;description:
350
; информация exif из app2
351
; текстовые и числовые данные
5007 IgorA 352
align 4
353
draw_file_3:
354
pushad
355
	stdcall [buf2d_clear], buf_0, [buf_0.color]
356
	cmp dword[open_file_size],0
357
	je .open_file
358
 
359
	mov eax,1
360
	mov ebx,1
361
	.cycle_0:
362
		stdcall [exif_get_app1_tag], h_app1,eax,txt_buf,80
363
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_buf,3,ebx,0xb0
364
		inc eax
365
		add ebx,10
366
		cmp byte[txt_buf],0
367
		jne .cycle_0
368
 
5010 IgorA 369
	;находим app2
5009 IgorA 370
	stdcall [exif_get_app2], h_app1,h_child
5007 IgorA 371
	cmp dword[h_child],0
372
	je .no_found_child
5010 IgorA 373
 
6313 IgorA 374
	mov eax,1 ;25
5007 IgorA 375
	sub ebx,5
376
	.cycle_1:
377
		stdcall [exif_get_app1_tag], h_child,eax,txt_buf,80
378
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_buf,3,ebx,0xb00000
379
		inc eax
380
		add ebx,10
381
		cmp byte[txt_buf],0
382
		jne .cycle_1
383
 
384
	jmp @f
385
	.no_found_child:
386
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_nochild,3,ebx,0xb000
387
		jmp @f
388
	.open_file:
389
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_openfile,3,3,0xb000
390
	@@:
391
	stdcall [buf2d_draw], buf_0
392
popad
393
	ret
394
 
6313 IgorA 395
;description:
396
; информация exif из app2
397
; картинка для камер Nikon
5007 IgorA 398
align 4
6313 IgorA 399
draw_file_4:
400
pushad
401
	stdcall [buf2d_clear], buf_0, [buf_0.color]
402
	cmp dword[open_file_size],0
403
	je .open_file
404
 
405
	mov eax,1
406
	mov ebx,1
407
 
408
	;находим app2
409
	stdcall [exif_get_app2], h_app1,h_child
410
	cmp dword[h_child],0
411
	je .no_found_child
412
	;считываем дочерние теги
413
	stdcall [exif_get_app1_child], h_child,h_child,0x0011
414
	cmp dword[h_child],0
415
	je .no_found_child
416
 
417
	stdcall [exif_get_app1_child], h_child,h_child_siz,0x0202
418
	cmp dword[h_child_siz],0
419
	je .no_found_child
420
 
421
	stdcall [exif_get_app1_child], h_child,h_child,0x0201
422
	cmp dword[h_child],0
423
	je .no_found_child
424
 
425
	;определяем вид изображения и переводим его во временный буфер ebx
426
	stdcall [img_decode],dword[h_child],dword[h_child_siz],0
427
	cmp dword[eax+4],1
428
	jl .no_found_child
429
	cmp dword[eax+8],1
430
	jl .no_found_child
431
	mov ebx,eax
432
	stdcall [buf2d_resize],buf_thumb,[eax+4],[eax+8],1
433
	;преобразуем изображение к формату rgb
434
	stdcall [img_to_rgb2],ebx,[buf_thumb]
435
	;удаляем временный буфер ebx
436
	stdcall [img_destroy],ebx
437
 
438
	stdcall [buf2d_bit_blt], buf_0, 0,15, buf_thumb ;рисуем изображение
439
	stdcall [buf2d_draw_text], buf_0, buf_1,txt_thumb,3,3,0xb000
440
	jmp @f
441
 
442
	.no_found_child:
443
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_nochild,3,3,0xb000
444
		jmp @f
445
	.open_file:
446
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_openfile,3,3,0xb000
447
	@@:
448
	stdcall [buf2d_draw], buf_0
449
popad
450
	ret
451
 
452
align 4
4994 IgorA 453
but_save_file:
454
	pushad
455
	copy_path open_dialog_name,communication_area_default_path,file_name,0
456
	mov [OpenDialog_data.type],1
457
	stdcall [OpenDialog_Start],OpenDialog_data
458
	cmp [OpenDialog_data.status],2
459
	je .end_save_file
460
	;код при удачном открытии диалога
461
 
6313 IgorA 462
	mov [run_file_70.Function], SSF_CREATE_FILE
4994 IgorA 463
	mov [run_file_70.Position], 0
464
	mov [run_file_70.Flags], 0
6313 IgorA 465
 
466
if 1 ;ставим 1 если сохраняется все изображение
4994 IgorA 467
	mov ebx, dword[open_file]
468
	mov [run_file_70.Buffer], ebx
469
	mov ebx,[open_file_size]
6313 IgorA 470
end if
471
if 0 ;ставим 1 если сохраняется эскиз изображения
472
	;находим app2
473
	stdcall [exif_get_app2], h_app1,h_child
474
	cmp dword[h_child],0
475
	je .end_save_file
476
	;считываем дочерние теги
477
	stdcall [exif_get_app1_child], h_child,h_child,0x0011
478
	cmp dword[h_child],0
479
	je .end_save_file
480
	stdcall [exif_get_app1_child], h_child,h_child,0x0201
481
	cmp dword[h_child],0
482
	je .end_save_file
483
 
484
	mov ebx,dword[h_child] ;dword[open_file]
485
	mov [run_file_70.Buffer], ebx
486
	mov ebx,... ; тут должен быть размер эскиза изображения который меньше чем [open_file_size]
487
end if
4994 IgorA 488
	mov dword[run_file_70.Count], ebx ;размер файла
489
	mov byte[run_file_70+20], 0
490
	mov dword[run_file_70.FileName], openfile_path
6313 IgorA 491
	mcall SF_FILE,run_file_70 ;сохраняем файл
4994 IgorA 492
	;cmp ebx,0xffffffff
493
	;je .end_save_file
494
	; ... сообщение о неудачном сохранении ...
495
 
496
	.end_save_file:
497
	popad
498
	ret
499
 
500
align 4
501
but_1:
5007 IgorA 502
	call draw_file_1 ;основная информация
4994 IgorA 503
	ret
504
 
505
align 4
506
but_2:
5007 IgorA 507
	call draw_file_2 ;информация по GPS
4994 IgorA 508
	ret
509
 
5007 IgorA 510
align 4
511
but_3:
5010 IgorA 512
	call draw_file_3 ;информация app2
5007 IgorA 513
	ret
514
 
6313 IgorA 515
align 4
516
but_4:
517
	call draw_file_4 ;еще какая-то информация ...
518
	ret
519
 
4994 IgorA 520
;данные для диалога открытия файлов
521
align 4
522
OpenDialog_data:
523
.type			dd 0 ;0 - открыть, 1 - сохранить, 2 - выбрать дтректорию
524
.procinfo		dd procinfo	;+4
525
.com_area_name		dd communication_area_name	;+8
526
.com_area		dd 0	;+12
527
.opendir_path		dd plugin_path	;+16
528
.dir_default_path	dd default_dir ;+20
529
.start_path		dd file_name ;+24 путь к диалогу открытия файлов
530
.draw_window		dd draw_window	;+28
531
.status 		dd 0	;+32
532
.openfile_path		dd openfile_path	;+36 путь к открываемому файлу
533
.filename_area		dd filename_area	;+40
534
.filter_area		dd Filter
535
.x:
536
.x_size 		dw 420 ;+48 ; Window X size
537
.x_start		dw 10 ;+50 ; Window X position
538
.y:
539
.y_size 		dw 320 ;+52 ; Window y size
540
.y_start		dw 10 ;+54 ; Window Y position
541
 
542
default_dir db '/rd/1',0
543
 
544
communication_area_name:
545
	db 'FFFFFFFF_open_dialog',0
546
open_dialog_name:
547
	db 'opendial',0
548
communication_area_default_path:
549
	db '/rd/1/File managers/',0
550
 
551
Filter:
552
dd Filter.end - Filter ;.1
553
.1:
554
db 'JPG',0
555
db 'JPEG',0
556
.end:
557
db 0
558
 
559
 
560
 
561
head_f_i:
562
head_f_l db 'Системная ошибка',0
563
 
564
system_dir_0 db '/sys/lib/'
565
lib_name_0 db 'proc_lib.obj',0
566
err_message_found_lib_0 db 'Не найдена библиотека ',39,'proc_lib.obj',39,0
567
err_message_import_0 db 'Ошибка при импорте библиотеки ',39,'proc_lib.obj',39,0
568
 
569
system_dir_1 db '/sys/lib/'
570
lib_name_1 db 'libimg.obj',0
571
err_message_found_lib_1 db 'Не найдена библиотека ',39,'libimg.obj',39,0
572
err_message_import_1 db 'Ошибка при импорте библиотеки ',39,'libimg.obj',39,0
573
 
574
system_dir_2 db '/sys/lib/'
575
lib_name_2 db 'buf2d.obj',0
576
err_msg_found_lib_2 db 'Не найдена библиотека ',39,'buf2d.obj',39,0
577
err_msg_import_2 db 'Ошибка при импорте библиотеки ',39,'buf2d',39,0
578
 
579
system_dir_3 db '/sys/lib/'
580
lib_name_3 db 'exif.obj',0
581
err_msg_found_lib_3 db 'Не найдена библиотека ',39,'exif.obj',39,0
582
err_msg_import_3 db 'Ошибка при импорте библиотеки ',39,'exif',39,0
583
 
584
l_libs_start:
585
	lib_0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\
586
		err_message_found_lib_0, head_f_l, proclib_import,err_message_import_0, head_f_i
587
	lib_1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\
588
		err_message_found_lib_1, head_f_l, import_libimg, err_message_import_1, head_f_i
6313 IgorA 589
	lib_2 l_libs lib_name_2, sys_path, file_name, system_dir_2,\
4994 IgorA 590
		err_msg_found_lib_2,head_f_l,import_buf2d,err_msg_import_2,head_f_i
6313 IgorA 591
	lib_3 l_libs lib_name_3, sys_path, file_name, system_dir_3,\
4994 IgorA 592
		err_msg_found_lib_3,head_f_l,import_exif,err_msg_import_3,head_f_i
593
l_libs_end:
594
 
595
align 4
596
import_libimg:
597
	dd alib_init1
598
	img_is_img  dd aimg_is_img
599
	img_info    dd aimg_info
600
	img_from_file dd aimg_from_file
601
	img_to_file dd aimg_to_file
602
	img_from_rgb dd aimg_from_rgb
603
	img_to_rgb  dd aimg_to_rgb
604
	img_to_rgb2 dd aimg_to_rgb2
605
	img_decode  dd aimg_decode
606
	img_encode  dd aimg_encode
607
	img_create  dd aimg_create
608
	img_destroy dd aimg_destroy
609
	img_destroy_layer dd aimg_destroy_layer
610
	img_count   dd aimg_count
611
	img_lock_bits dd aimg_lock_bits
612
	img_unlock_bits dd aimg_unlock_bits
613
	img_flip    dd aimg_flip
614
	img_flip_layer dd aimg_flip_layer
615
	img_rotate  dd aimg_rotate
616
	img_rotate_layer dd aimg_rotate_layer
617
	img_draw    dd aimg_draw
618
 
619
	dd 0,0
620
	alib_init1   db 'lib_init',0
621
	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение
622
	aimg_info    db 'img_info',0
623
	aimg_from_file db 'img_from_file',0
624
	aimg_to_file db 'img_to_file',0
625
	aimg_from_rgb db 'img_from_rgb',0
626
	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB
627
	aimg_to_rgb2 db 'img_to_rgb2',0
628
	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
629
	aimg_encode  db 'img_encode',0
630
	aimg_create  db 'img_create',0
631
	aimg_destroy db 'img_destroy',0
632
	aimg_destroy_layer db 'img_destroy_layer',0
633
	aimg_count   db 'img_count',0
634
	aimg_lock_bits db 'img_lock_bits',0
635
	aimg_unlock_bits db 'img_unlock_bits',0
636
	aimg_flip    db 'img_flip',0
637
	aimg_flip_layer db 'img_flip_layer',0
638
	aimg_rotate  db 'img_rotate',0
639
	aimg_rotate_layer db 'img_rotate_layer',0
640
	aimg_draw    db 'img_draw',0
641
 
642
align 4
643
proclib_import: ;описание экспортируемых функций
644
	OpenDialog_Init dd aOpenDialog_Init
645
	OpenDialog_Start dd aOpenDialog_Start
646
dd 0,0
647
	aOpenDialog_Init db 'OpenDialog_init',0
648
	aOpenDialog_Start db 'OpenDialog_start',0
649
 
650
align 4
651
import_buf2d:
652
	init dd sz_init
653
	buf2d_create dd sz_buf2d_create
654
	buf2d_create_f_img dd sz_buf2d_create_f_img
655
	buf2d_clear dd sz_buf2d_clear
656
	buf2d_draw dd sz_buf2d_draw
657
	buf2d_delete dd sz_buf2d_delete
6313 IgorA 658
	buf2d_resize dd sz_buf2d_resize
4994 IgorA 659
	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
6313 IgorA 660
	buf2d_bit_blt dd sz_buf2d_bit_blt
4994 IgorA 661
	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
662
	buf2d_draw_text dd sz_buf2d_draw_text
663
	dd 0,0
664
	sz_init db 'lib_init',0
665
	sz_buf2d_create db 'buf2d_create',0
666
	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
667
	sz_buf2d_clear db 'buf2d_clear',0
668
	sz_buf2d_draw db 'buf2d_draw',0
669
	sz_buf2d_delete db 'buf2d_delete',0
6313 IgorA 670
	sz_buf2d_resize db 'buf2d_resize',0
4994 IgorA 671
	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
6313 IgorA 672
	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
4994 IgorA 673
	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
674
	sz_buf2d_draw_text db 'buf2d_draw_text',0
675
 
676
align 4
677
import_exif: ;описание экспортируемых функций
5002 IgorA 678
	exif_get_app1 dd sz_exif_get_app1
679
	exif_get_app1_tag dd sz_exif_get_app1_tag
680
	exif_get_app1_child dd sz_exif_get_app1_child
5009 IgorA 681
	exif_get_app2 dd sz_exif_get_app2
4994 IgorA 682
dd 0,0
5002 IgorA 683
	sz_exif_get_app1 db 'exif_get_app1',0
684
	sz_exif_get_app1_tag db 'exif_get_app1_tag',0
685
	sz_exif_get_app1_child db 'exif_get_app1_child',0
5009 IgorA 686
	sz_exif_get_app2 db 'exif_get_app2',0
4994 IgorA 687
 
688
sc system_colors
689
 
690
align 16
691
procinfo process_information
692
 
693
align 4
694
buf_0: dd 0 ;указатель на буфер изображения
695
	dw 5 ;+4 left
696
	dw 31 ;+6 top
6313 IgorA 697
.w: dd 570 ;+8 w
5007 IgorA 698
.h: dd 480 ;+12 h
4994 IgorA 699
.color: dd 0xffffd0 ;+16 color
700
	db 24 ;+20 bit in pixel
701
 
702
align 4
703
buf_1:
704
	dd 0 ;указатель на буфер изображения
705
	dw 25 ;+4 left
706
	dw 25 ;+6 top
707
	dd 128 ;+8 w
708
	dd 144 ;+12 h
709
	dd 0 ;+16 color
710
	db 24 ;+20 bit in pixel
711
 
6313 IgorA 712
align 4
713
buf_thumb:
714
	dd 0 ;указатель на буфер изображения
715
	dw 0 ;+4 left
716
	dw 0 ;+6 top
717
	dd 120 ;+8 w
718
	dd 100 ;+12 h
719
	dd 0 ;+16 color
720
	db 24 ;+20 bit in pixel
721
 
722
h_app1	rb 14 ;структура для заголовка главных тегов
723
h_child rb 14 ;структура для заголовка дочерних тегов
724
h_child_siz rb 14
725
 
4994 IgorA 726
txt_openfile db 'Откройте файл изображения в формате *.jpg.',0
6313 IgorA 727
txt_thumb db 'Это эскиз изображения из данных app2.',0
5007 IgorA 728
txt_nochild  db 'Информация по этой кнопке не найдена.',0
4994 IgorA 729
txt_buf rb 80
730
 
6313 IgorA 731
align 16
4994 IgorA 732
i_end:
733
	rb 2048
734
stacktop:
735
	sys_path rb 1024
6313 IgorA 736
	file_name rb 4096
4994 IgorA 737
	plugin_path rb 4096
738
	openfile_path rb 4096
739
	filename_area rb 256
740
mem: