T100——上传图片

例子可参考aooi100，上传集团logo的程序

 ON ACTION btn_updatelogo   #選取上傳檔案,GDC專用
          LET gs_upload = NULL
          CALL cl_client_browse_file() RETURNING gs_upload
          IF NOT cl_null(gs_upload) THEN   #C:/Users/P12345/Desktop/title/hlep_titlebg1.png
             LET g_file_extension = os.Path.extension(gs_upload)        #副檔名

             #放在暫存目錄要改名,避免檔名重複
             LET gs_pid = FGL_GETPID()
             LET g_num = g_num +
             LET g_str = g_num
             LET g_new_path = g_prog CLIPPED,"_",gs_pid CLIPPED,"_",g_user CLIPPED,"_",g_str CLIPPED,".",g_file_extension
             LET g_new_path = os.Path.join(FGL_GETENV("TEMPDIR"),g_new_path CLIPPED)
             CALL FGL_GETFILE(gs_upload,g_new_path)   #Transfers a file from the front end workstation to the application server machine.
             IF os.Path.exists(g_new_path) THEN
                LET g_tmpfile = g_new_path
                LET g_ooek_fileimg = g_tmpfile
                DISPLAY g_ooek_fileimg TO FORMONLY.fileimg

                LET g_logo_flag = "Y" 

                INITIALIZE g_errparam TO NULL
                LET g_errparam.code = "aoo-00398"
                LET g_errparam.extend = ""
                LET g_errparam.popup = TRUE
                CALL cl_err()
                CONTINUE DIALOG
             ELSE
                LET g_ooek_fileimg = NULL
                DISPLAY g_ooek_fileimg TO FORMONLY.fileimg

                INITIALIZE g_errparam TO NULL
                LET g_errparam.code = "azz-00101"
                LET g_errparam.extend = ""
                LET g_errparam.popup = TRUE
                CALL cl_err()

                CONTINUE DIALOG
             END IF
          END IF
          #end add-point

logo上傳至報表主機

 PRIVATE FUNCTION aooi100_01_upd_logo()
    DEFINE l_filename      STRING
    DEFINE ls_run_cmd      STRING,
           lb_run_result   BOOLEAN,
           ls_err_msg      STRING  

    IF g_logo_flag = "Y" THEN
       #logo檔案名稱為"dsdemo_99_DSCTC_zh_TW.jpg"
       LET l_filename = g_enterprise
       LET l_filename = g_dbs CLIPPED,"_",l_filename CLIPPED,"_",g_ooek_m.ooek001 CLIPPED,"_",g_ooek_m.ooek002 CLIPPED,".jpg"
       CALL fgl_ws_setOption("http_invoketimeout", )         #若  秒內無回應則放棄

       #透過Web Service將檔案上傳到報表主機
       LET ls_run_cmd = "r.r awsp301 ",FGL_GETENV("ZONE")," ", l_filename," ",g_new_path
       CALL cl_cmdrun_openpipe("r.r awsp300_01", ls_run_cmd, FALSE) RETURNING lb_run_result,ls_err_msg
    END IF
 END FUNCTION