Subversion Repositories Kolibri OS

Rev

Rev 4994 | Rev 5007 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4994 Rev 5002
Line 14... Line 14...
14 
include '../../../../develop/libraries/box_lib/load_lib.mac'
 14 
include '../../../../develop/libraries/box_lib/load_lib.mac'
15 
include '../../../../develop/libraries/box_lib/trunk/box_lib.mac'
 15 
include '../../../../develop/libraries/box_lib/trunk/box_lib.mac'
16 
include '../../../../dll.inc'
 16 
include '../../../../dll.inc'
Line 17... Line 17...
17 
 
 17 
 
18 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 18 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
Line 19... Line 19...
19 
caption db 'à®á¬®âà ¨­ä®à¬ æ¨¨ Exif 15.07.14',0 ;¯®¤¯¨áì ®ª­ 
 19 
caption db 'à®á¬®âà ¨­ä®à¬ æ¨¨ Exif 17.07.14',0 ;¯®¤¯¨áì ®ª­ 
20 
 
 20 
 
21 
struct FileInfoBlock
 21 
struct FileInfoBlock
22 
	Function dd ?
 22 
	Function dd ?
Line 312... Line 312...
312 
	stdcall [buf2d_clear], buf_0, [buf_0.color]
 312 
	stdcall [buf2d_clear], buf_0, [buf_0.color]
313 
	cmp dword[open_file_size],0
 313 
	cmp dword[open_file_size],0
314 
	je .open_file
 314 
	je .open_file
Line 315... Line 315...
315 
 
 315 
 
316 
	mov eax,1
 316 
	mov eax,1
317 
	mov ebx,2
 317 
	mov ebx,1
318 
	.cycle_0:
 318 
	.cycle_0:
319 
		stdcall [exif_get_app1_tag], [h_app1],eax,txt_buf,80
 319 
		stdcall [exif_get_app1_tag], [h_app1],eax,txt_buf,80
320 
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_buf,4,ebx,0xb0
 320 
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_buf,3,ebx,0xb0
321 
		inc eax
 321 
		inc eax
322 
		add ebx,10
 322 
		add ebx,10
323 
		cmp byte[txt_buf],0
 323 
		cmp byte[txt_buf],0
Line -... Line 324...
- 
 
 324 
		jne .cycle_0
- 
 
 325 
 
- 
 
 326 
	;áç¨â뢠¥¬ ¤®ç¥à­¨¥ ⥣¨ ¤«ï 0x8769
- 
 
 327 
	stdcall [exif_get_app1_child], [h_app1],h_child,0x8769 ;0x8825
- 
 
 328 
	cmp dword[h_child],0
- 
 
 329 
	je @f
- 
 
 330 
 
- 
 
 331 
	mov eax,1
- 
 
 332 
	sub ebx,5
- 
 
 333 
	.cycle_1:
- 
 
 334 
		stdcall [exif_get_app1_child_tag], [h_app1],[h_child],eax,txt_buf,80
- 
 
 335 
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_buf,3,ebx,0xb00000
- 
 
 336 
		inc eax
- 
 
 337 
		add ebx,10
- 
 
 338 
		cmp byte[txt_buf],0
324 
		jne .cycle_0
 339 
		jne .cycle_1
325 
 
 340 
 
326 
	jmp @f
 341 
	jmp @f
327 
	.open_file:
 342 
	.open_file:
328 
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_openfile,3,3,0xb000
 343 
		stdcall [buf2d_draw_text], buf_0, buf_1,txt_openfile,3,3,0xb000
Line 525... Line 540...
525 
	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
 540 
	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
526 
	sz_buf2d_draw_text db 'buf2d_draw_text',0
 541 
	sz_buf2d_draw_text db 'buf2d_draw_text',0
Line 527... Line 542...
527 
 
 542 
 
528 
align 4
 543 
align 4
529 
import_exif: ;®¯¨á ­¨¥ íªá¯®àâ¨à㥬ëå ä㭪権
 544 
import_exif: ;®¯¨á ­¨¥ íªá¯®àâ¨à㥬ëå ä㭪権
530 
	exif_get_app1 dd sz_des_encryption
 545 
	exif_get_app1 dd sz_exif_get_app1
- 
 
 546 
	exif_get_app1_tag dd sz_exif_get_app1_tag
- 
 
 547 
	exif_get_app1_child dd sz_exif_get_app1_child
531 
	exif_get_app1_tag dd sz_des_decryption
 548 
	exif_get_app1_child_tag dd sz_exif_get_app1_child_tag
532 
dd 0,0
 549 
dd 0,0
533 
	sz_des_encryption db 'exif_get_app1',0
 550 
	sz_exif_get_app1 db 'exif_get_app1',0
- 
 
 551 
	sz_exif_get_app1_tag db 'exif_get_app1_tag',0
- 
 
 552 
	sz_exif_get_app1_child db 'exif_get_app1_child',0
534 
	sz_des_decryption db 'exif_get_app1_tag',0
 553 
	sz_exif_get_app1_child_tag db 'exif_get_app1_child_tag',0
Line 535... Line 554...
535 
	;exif_get_image_160_120
 554 
	;exif_get_image_160_120
Line 536... Line 555...
536 
 
 555 
 
Line 556... Line 575...
556 
	dd 128 ;+8 w
 575 
	dd 128 ;+8 w
557 
	dd 144 ;+12 h
 576 
	dd 144 ;+12 h
558 
	dd 0 ;+16 color
 577 
	dd 0 ;+16 color
559 
	db 24 ;+20 bit in pixel
 578 
	db 24 ;+20 bit in pixel
Line 560... Line 579...
560 
 
 579 
 
- 
 
 580 
h_app1  dd 0 ;㪠§ â¥«ì ­  § £®«®¢®ª £« ¢­ëå ⥣®¢
561 
h_app1 dd 0
 581 
h_child dd 0 ;㪠§ â¥«ì ­  § £®«®¢®ª ¤®ç¥à­¨å ⥣®¢
562 
txt_openfile db 'Žâªà®©â¥ ä ©« ¨§®¡à ¦¥­¨ï ¢ ä®à¬ â¥ *.jpg.',0
 582 
txt_openfile db 'Žâªà®©â¥ ä ©« ¨§®¡à ¦¥­¨ï ¢ ä®à¬ â¥ *.jpg.',0
Line 563... Line 583...
563 
txt_buf rb 80
 583 
txt_buf rb 80
564 
 
 584