WebSVN – Kolibri OS – Diff – /programs/develop/libraries/http/examples/downloader.asm

 __DEBUG__       = 1
 __DEBUG_LEVEL__ = 1
+format binary as ""
+;--------------------------------------
+frame_1:
+  .x      = 5
+  .y      = 10
+  .width  = 350
+  .height = 55
+;--------------------------------------
+frame_2:
+  .x      = 5
+  .y      = 75
+  .width  = 350
-format binary as ""
+  .height = 55
 ;---------------------------------------------------------------------
 use32
         org     0x0
         db      'MENUET01'      ; header
         dd      0x01            ; header version
         dd      START           ; entry point
         dd      IM_END          ; image size
-        dd      I_END+0x1000    ; required memory
+        dd      I_END           ; required memory
-        dd      I_END+0x1000    ; esp
+        dd      stacktop        ; esp
         dd      params          ; I_PARAM
         dd      0x0             ; I_Path
 ;---------------------------------------------------------------------
 include '../../../../macros.inc'
 include '../../../../proc32.inc'
 include '../../../../dll.inc'
 include '../../../../debug-fdo.inc'
 include '../../box_lib/trunk/box_lib.mac'
 include '../../http/http.inc'
 virtual at 0
         http_msg http_msg
 end virtual
 ;---------------------------------------------------------------------
 START:
+        mcall   68, 11                  ; init heap so we can allocate memory dynamically
+; load libraries
+        stdcall dll.Load, @IMPORT
-        mcall   68, 11                  ; init heap so we can allocate memory dynamically
+        test    eax, eax
+        jnz     exit
+;---------------------------------------------------------------------
+	mov	edi,filename_area
+	mov	esi,start_temp_file_name
+	call	copy_file_name_path
+	mov	edi,fname_buf
+	mov	esi,start_file_path
+	call	copy_file_name_path
+;OpenDialog     initialisation
+        push    dword OpenDialog_data
         call    [OpenDialog_Init]
 ; load libraries
-        stdcall dll.Load, @IMPORT
+; prepare for PathShow
-        test    eax, eax
+        push    dword PathShow_data_1
-        jnz     exit
+        call    [PathShow_prepare]
-; check parameters
-        cmp     byte[params], 0         ; no parameters ?
-        je      reset_events            ; load the GUI
-        inc     [silently]
-download:
+;---------------------------------------------------------------------
-        DEBUGF  1, "Starting download\n"
-        invoke  HTTP_get, params, 0
-        test    eax, eax
+; check parameters
-        jz      fail
+        cmp     byte[params], 0         ; no parameters ?
-        mov     [identifier], eax
+        je      reset_events            ; load the GUI
-  .loop:
+        inc     [silently]
         invoke  HTTP_process, [identifier]
-        test    eax, eax
+download:
-        jnz     .loop
+	call	download_1
         test    [silently], 0xff
         jnz     save
         cmp     eax, EV_MOUSE
         je      mouse
         jmp     still
 ;---------------------------------------------------------------------
 key:
         mcall   2       ; read key
         stdcall [edit_box_key], dword edit1
         cmp     ax, 13 shl 8
         je      download
         jmp     still
+;---------------------------------------------------------------------
+button:
+        mcall   17      ; get id
+        cmp     ah, 26
+        jne     @f
+; invoke OpenDialog
+        push    dword OpenDialog_data
+        call    [OpenDialog_Start]
-button:
+        cmp     [OpenDialog_data.status],1
         jne     still
         mcall   17      ; get id
 ; prepare for PathShow
+        push    dword PathShow_data_1
-        cmp     ah, 26
+        call    [PathShow_prepare]
-        jne     @f
+        call    draw_window
-        call    save
+        jmp     still
-        jmp     still
+@@:
-  @@:
+        cmp     ah, 1   ; button id=1 ?
-        cmp     ah, 1   ; button id=1 ?
+        je      exit
         je      exit
 	call	download_1
-        jmp     download
+        jmp     save
 ;---------------------------------------------------------------------
 mouse:
         stdcall [edit_box_mouse], edit1
+        jmp     still
+;---------------------------------------------------------------------
+exit:
+        DEBUGF  1, "Exiting\n"
+        invoke  HTTP_free, [identifier] ; free buffer
+fail:
+        or      eax, -1 ; close this program
+        mcall
+;---------------------------------------------------------------------
+download_1:
+        DEBUGF  1, "Starting download\n"
+        invoke  HTTP_get, params, 0
-        jmp     still
+        test    eax, eax
         jz      fail
-exit:
+        mov     [identifier], eax
         DEBUGF  1, "Exiting\n"
-        invoke  HTTP_free, [identifier] ; free buffer
+  .loop:
-fail:
+        invoke  HTTP_process, [identifier]
-        or      eax, -1 ; close this program
+        test    eax, eax
-        mcall
+        jnz     .loop
+	ret
+;---------------------------------------------------------------------
 save:
         mov     ebp, [identifier]
-save:
+        mov     eax, [ebp + http_msg.content_received]
-        mov     ebp, [identifier]
+        mov     [final_size], eax
-        mov     eax, [ebp + http_msg.content_received]
+        lea     ebx, [ebp + http_msg.data]
-        mov     [final_size], eax
+        add     ebx, [ebp + http_msg.header_length]
+        mov     [final_buffer], ebx
+        mcall   70, fileinfo
+        DEBUGF  1, "File saved\n"
-        lea     ebx, [ebp + http_msg.data]
+        test    [silently], 0xff
+        jnz     exit
+        mov     ecx, [sc.work_text]
+        or      ecx, 0x80000000
+        mcall   4, <10, frame_2.y+frame_2.height+7>, , download_complete
         add     ebx, [ebp + http_msg.header_length]
-        mov     [final_buffer], ebx
+        jmp     still
-        mcall   70, fileinfo
+;---------------------------------------------------------------------
 copy_file_name_path:
-        test    [silently], 0xff
+	xor	eax,eax
-        jnz     exit
+	cld
 @@:
-        mov     ecx, [sc.work_text]
+	lodsb
-        or      ecx, 0x80000000
+	stosb
-        mcall   4, <10, 93>, , download_complete
+	test	eax,eax
 	jnz	@r
-        jmp     still
+	ret
+;---------------------------------------------------------------------
+;   *********************************************
+;   *******  WINDOW DEFINITIONS AND DRAW ********
+;   *********************************************
+draw_window:
+        mcall   12, 1   ; start window draw
+;-----------------------------------
+; get system colors
-;   *********************************************
+        mcall   48, 3, sc, 40
+;-----------------------------------
+; draw window
+        mov     edx, [sc.work]
+        or      edx, 0x34000000
+        mcall   0, <50, 370>, <350, 170>, , 0, title
+;-----------------------------------
+; draw frames
+	mov	[frame_data.x],dword frame_1.x shl 16+frame_1.width
+	mov	[frame_data.y],dword frame_1.y shl 16+frame_1.height
+	mov	[frame_data.text_pointer],dword select_addr_text
-;   *******  WINDOW DEFINITIONS AND DRAW ********
+	mov	eax,[sc.work]
-;   *********************************************
+	mov	[frame_data.font_backgr_color],eax
 	mov	eax,[sc.work_text]
-draw_window:
+	mov	[frame_data.font_color],eax
-        mcall   12, 1   ; start window draw
+	push	dword frame_data
 	call	[Frame_draw]
-; get system colors
+;-----------------------------------
-        mcall   48, 3, sc, 40
+	mov	[frame_data.x],dword frame_2.x shl 16+frame_2.width
 	mov	[frame_data.y],dword frame_2.y shl 16+frame_2.height
-; draw window
+	mov	[frame_data.text_pointer],dword select_path_text
-        mov     edx, [sc.work]
-        or      edx, 0x34000000
+	push	dword frame_data
+	call	[Frame_draw]
-        mcall   0, <50, 370>, <350, 140>, , 0, title
+;-----------------------------------
 ; draw "url:" text
-; draw "url:" text
+        mov     ecx, [sc.work_text]
+        or      ecx, 80000000h
+        mcall   4, , , type_pls
+;-----------------------------------
+; draw editbox
+        edit_boxes_set_sys_color edit1, editboxes_end, sc
+        stdcall [edit_box_draw], edit1
-        mov     ecx, [sc.work_text]
+;-----------------------------------
-        or      ecx, 80000000h
+; draw buttons
-        mcall   4, <14, 14>, , type_pls
+        mcall   8,,,22,[sc.work_button] ; reload
-; draw editbox
-        edit_boxes_set_sys_color edit1, editboxes_end, sc
+        mcall   ,,, 24 ; stop
         stdcall [edit_box_draw], edit1
         mcall   , ,,26 ; save
-; draw buttons
+;-----------------------------------
-        mcall   8, <90, 68>, <54, 16>, 22, [sc.work_button]     ; reload
+; draw buttons text
-        mcall   , <166, 50>, <54, 16>, 24                       ; stop
+        mov     ecx, [sc.work_button_text]
-        mcall   , <224, 54>, , 26                               ; save
+        or      ecx, 80000000h
+        mcall   4, , , button_text.1
         mcall   , , , button_text.2
-; draw buttons text
+        mcall   , , , button_text.3
         mov     ecx, [sc.work_button_text]
-        or      ecx, 80000000h
+        mcall   13,,,0xffffff
-        mcall   4, <102, 59>, , button_text
+        push    dword PathShow_data_1
         call    [PathShow_draw]
         mcall   12, 2   ; end window redraw
+        mcall   12, 2   ; end window redraw
+        ret
+;---------------------------------------------------------------------
-        ret
+; Data area
+;-----------------------------------------------------------------------------
+align   4
+@IMPORT:
 library lib_http,       'http.obj', \
-;-----------------------------------------------------------------------------
+        box_lib,        'box_lib.obj', \
-; Data area
+        proc_lib,       'proc_lib.obj'
-;-----------------------------------------------------------------------------
+import  lib_http, \
-align   4
-@IMPORT:
+        HTTP_get                , 'get' , \
         HTTP_process            , 'process'     ,\
-library lib_http,       'http.obj', \
+        HTTP_free               , 'free'
         box_lib,        'box_lib.obj'
 import  box_lib, \
-import  lib_http, \
+        edit_box_draw,    'edit_box', \
-        HTTP_get                , 'get' , \
+        edit_box_key,     'edit_box_key', \
-        HTTP_process            , 'process'     ,\
+        edit_box_mouse,   'edit_box_mouse', \
+        PathShow_prepare, 'PathShow_prepare', \
-        HTTP_free               , 'free'
+        PathShow_draw,    'PathShow_draw', \
+        Frame_draw,       'frame_draw'
+import  proc_lib, \
-import  box_lib, \
+        OpenDialog_Init,  'OpenDialog_init', \
-        edit_box_draw,  'edit_box', \
+        OpenDialog_Start, 'OpenDialog_start'
-        edit_box_key,   'edit_box_key', \
+;---------------------------------------------------------------------
+fileinfo        dd 2, 0, 0
+final_size      dd 0
+final_buffer    dd 0
+                db 0
+                dd fname_buf
+;---------------------------------------------------------------------
+mouse_dd        dd 0
+edit1           edit_box 295, 48, (frame_1.y+10), 0xffffff, 0xff, 0x80ff, 0, 0x8000, URLMAXLEN, document_user, mouse_dd, ed_focus+ed_always_focus, 7, 7
+editboxes_end:
+;---------------------------------------------------------------------
+include_debug_strings
+;---------------------------------------------------------------------
+type_pls        db 'URL:', 0
+button_text:
+.1:             db 'DOWNLOAD',0
+.2:             db 'STOP',0
+.3:             db 'SELECT', 0
+download_complete db 'FILE SAVED!', 0
+title           db 'HTTP Downloader', 0
+silently        db 0
+;---------------------------------------------------------------------
+select_addr_text db ' NETWORK ADDRESS: ',0
+select_path_text db ' PATH TO SAVE FILE: ',0
+;---------------------------------------------------------------------
+frame_data:
+.type			dd 0 ;+0
+.x:
+.x_size			dw 0 ;+4
+.x_start		dw 0 ;+6
+.y:
+.y_size			dw 0 ;+8
+.y_start		dw 0 ;+10
+.ext_fr_col		dd 0x0 ;+12
+.int_fr_col		dd 0xffffff ;+16
+.draw_text_flag		dd 1 ;+20
+.text_pointer		dd 0 ;+24
+.text_position		dd 0 ;+28
+.font_number		dd 0 ;+32
+.font_size_y		dd 9 ;+36
+.font_color		dd 0x0 ;+40
+.font_backgr_color	dd 0xffffff ;+44
+;---------------------------------------------------------------------
+PathShow_data_1:
+.type                   dd 0    ;+0
+.start_y                dw frame_2.y+14   ;+4
+.start_x                dw frame_2.x+20   ;+6
+.font_size_x            dw 6    ;+8     ; 6 - for font 0, 8 - for font 1
+.area_size_x            dw frame_2.width-35  ;+10
+.font_number            dd 0    ;+12    ; 0 - monospace, 1 - variable
+.background_flag        dd 0    ;+16
+.font_color             dd 0    ;+20
+.background_color       dd 0    ;+24
+.text_pointer           dd fname_buf    ;+28
+.work_area_pointer      dd text_work_area       ;+32
+.temp_text_length       dd 0    ;+36
+;---------------------------------------------------------------------
+OpenDialog_data:
+.type                   dd 1    ; Save
+.procinfo               dd procinfo     ;+4
+.com_area_name          dd communication_area_name      ;+8
+.com_area               dd 0    ;+12
+.opendir_path           dd temp_dir_path        ;+16
+.dir_default_path       dd communication_area_default_path      ;+20
+.start_path             dd open_dialog_path     ;+24
+.draw_window            dd draw_window  ;+28
+.status                 dd 0    ;+32
+.openfile_pach          dd fname_buf    ;+36
+.filename_area          dd filename_area        ;+40
-        edit_box_mouse, 'edit_box_mouse'
+.filter_area            dd Filter
 .x:
-;---------------------------------------------------------------------
+.x_size                 dw 420 ;+48 ; Window X size
-fileinfo        dd 2, 0, 0
+.x_start                dw 200 ;+50 ; Window X position
-final_size      dd 0
+.y:
-final_buffer    dd 0
+.y_size                 dw 320 ;+52 ; Window y size
-                db '/rd/1/.download', 0
+.y_start                dw 120 ;+54 ; Window Y position
-;---------------------------------------------------------------------
+communication_area_name:
         db 'FFFFFFFF_open_dialog',0
+open_dialog_path:
+    db '/sys/File Managers/opendial',0
+communication_area_default_path:
+        db '/sys',0
+Filter:
-mouse_dd        dd 0
+dd      Filter.end - Filter
+.1:
+db      'IMG',0
+db      'IMA',0
+.end:
+db      0
+start_temp_file_name:   db 'some.garbage',0
+start_file_path:  db '/sys/.download', 0
+;---------------------------------------------------------------------
+document_user   db 'http://'
-edit1           edit_box 295, 48, 10, 0xffffff, 0xff, 0x80ff, 0, 0x8000, URLMAXLEN, document_user, mouse_dd, ed_focus+ed_always_focus, 7, 7
+;---------------------------------------------------------------------
-editboxes_end:
+IM_END:

Subversion Repositories Kolibri OS

(root)/programs/develop/libraries/http/examples/downloader.asm @ 4243 – Rev 4221 → 4243