Subversion Repositories Kolibri OS

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;                                                                 ;;

;; Copyright (C) KolibriOS team 2009-2015. All rights reserved.    ;;

;; Distributed under terms of the GNU General Public License       ;;

;;                                                                 ;;

;;  downloader.asm - HTTP client for KolibriOS                     ;;

;;                                                                 ;;

;;                                                                 ;;

;;          GNU GENERAL PUBLIC LICENSE                             ;;

;;             Version 2, June 1991                                ;;

;;                                                                 ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

URLMAXLEN       = 1024

BUFFERSIZE      = 4096

__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

  .height = 55

;---------------------------------------------------------------------

use32

        org     0x0

        db      'MENUET01'      ; header

        dd      0x01            ; header version

        dd      START           ; entry point

        dd      IM_END          ; image size

        dd      I_END           ; required memory

        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

        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]

; prepare for PathShow

        push    dword PathShow_data_1

        call    [PathShow_prepare]

;---------------------------------------------------------------------

; check parameters

        cmp     byte[params], 0         ; no parameters ?

        je      reset_events            ; load the GUI

        inc     [silently]

download:

        call    download_1

        test    [silently], 0xff

        jnz     save

reset_events:

        DEBUGF  1, "resetting events\n"

; Report events

; defaults + mouse

        mcall   40,EVM_REDRAW+EVM_KEY+EVM_BUTTON+EVM_MOUSE+EVM_MOUSE_FILTER

;---------------------------------------------------------------------

redraw:

        call    draw_window

still:

;;        DEBUGF  1, "waiting for events\n"

        mcall   10      ; wait here for event

        cmp     eax, EV_REDRAW

        je      redraw

        cmp     eax, EV_KEY

        je      key

        cmp     eax, EV_BUTTON

        je      button

        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]

        cmp     [OpenDialog_data.status],1

        jne     still

; prepare for PathShow

        push    dword PathShow_data_1

        call    [PathShow_prepare]

        call    draw_window

        jmp     still

@@:

        cmp     ah, 1   ; button id=1 ?

        je      exit

        call    download_1

        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, 0, 0, params, 0

        test    eax, eax

        jz      fail

        mov     [identifier], eax

  .loop:

        invoke  HTTP_receive, [identifier]

        test    eax, eax

        jnz     .loop

        ret

;---------------------------------------------------------------------

save:

        mov     ebp, [identifier]

        mov     eax, [ebp + http_msg.content_received]

        mov     [final_size], eax

        mov     ebx, [ebp + http_msg.content_ptr]

        mov     [final_buffer], ebx

        mcall   70, fileinfo

        DEBUGF  1, "File saved\n"

        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

        jmp     still

;---------------------------------------------------------------------

copy_file_name_path:

        xor     eax,eax

        cld

@@:

        lodsb

        stosb

        test    eax,eax

        jnz     @r

        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

        mov     eax,[sc.work]

        mov     [frame_data.font_backgr_color],eax

        mov     eax,[sc.work_text]

        mov     [frame_data.font_color],eax

        push    dword frame_data

        call    [Frame_draw]

;-----------------------------------

        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

        mov     [frame_data.text_pointer],dword select_path_text

        push    dword frame_data

        call    [Frame_draw]

;-----------------------------------

; 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

;-----------------------------------

; draw buttons

        mcall   8,,,22,[sc.work_button] ; reload

        mcall   ,,, 24 ; stop

        mcall   , ,,26 ; save

;-----------------------------------

; draw buttons text

        mov     ecx, [sc.work_button_text]

        or      ecx, 80000000h

        mcall   4, , , button_text.1

        mcall   , , , button_text.2

        mcall   , , , button_text.3

        mcall   13,,,0xffffff

        push    dword PathShow_data_1

        call    [PathShow_draw]

        mcall   12, 2   ; end window redraw

        ret

;---------------------------------------------------------------------

; Data area

;-----------------------------------------------------------------------------

align   4

@IMPORT:

library lib_http,       'http.obj', \

        box_lib,        'box_lib.obj', \

        proc_lib,       'proc_lib.obj'

import  lib_http, \

        HTTP_get                , 'get', \

        HTTP_receive            , 'receive', \

        HTTP_free               , 'free'

import  box_lib, \

        edit_box_draw,    'edit_box_draw', \

        edit_box_key,     'edit_box_key', \

        edit_box_mouse,   'edit_box_mouse', \

        PathShow_prepare, 'PathShow_prepare', \

        PathShow_draw,    'PathShow_draw', \

        Frame_draw,       'frame_draw'

import  proc_lib, \

        OpenDialog_Init,  'OpenDialog_init', \

        OpenDialog_Start, 'OpenDialog_start'

;---------------------------------------------------------------------

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

.filter_area            dd Filter

.x:

.x_size                 dw 420 ;+48 ; Window X size

.x_start                dw 200 ;+50 ; Window X position

.y:

.y_size                 dw 320 ;+52 ; Window y size

.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:

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://'

;---------------------------------------------------------------------

IM_END:

;---------------------------------------------------------------------

params          rb URLMAXLEN

;---------------------------------------------------------------------

                sc system_colors

;---------------------------------------------------------------------

identifier      dd ?

;---------------------------------------------------------------------

filename_area:

                rb 256

;---------------------------------------------------------------------

temp_dir_path:

                rb 4096

;---------------------------------------------------------------------

procinfo:

                rb 1024

;---------------------------------------------------------------------

fname_buf:

                rb 4096

;---------------------------------------------------------------------

text_work_area:

                rb 1024

;---------------------------------------------------------------------

                rb 4096

stacktop:

;---------------------------------------------------------------------

I_END:

;---------------------------------------------------------------------