parameters P_NAME type TDOBNAME. parameters P_COL radiobutton group G1. parameters P_MON radiobutton group G1.
data BTYPE type TDBTYPE. data LS_BMP type SSFXSFBMP. data LEN type I. data OFF type I. data: begin of GT_BMPX occurs 0, LINE(255) type X, end of GT_BMPX.
case 'X'. when P_COL. BTYPE = 'BCOL'. when P_MON. BTYPE = 'BMON'. endcase.
select single * from SSFXSFBMP into LS_BMP where OBJECT = 'GRAPHICS' and NAME = P_NAME and ID = 'BMAP' and BTYPE = BTYPE.
check SY-SUBRC = 0.
LEN = xstrlen( LS_BMP-BMP ).
while LEN > 255. GT_BMPX-LINE = LS_BMP-BMP+OFF(255). append GT_BMPX. OFF = OFF + 255. LEN = LEN - 255. endwhile.
급히 만들어봤는데요..
응용해서 해보세요..^^
report ZREPO.
parameters P_NAME type TDOBNAME.
parameters P_COL radiobutton group G1.
parameters P_MON radiobutton group G1.
data BTYPE type TDBTYPE.
data LS_BMP type SSFXSFBMP.
data LEN type I.
data OFF type I.
data: begin of GT_BMPX occurs 0,
LINE(255) type X,
end of GT_BMPX.
case 'X'.
when P_COL. BTYPE = 'BCOL'.
when P_MON. BTYPE = 'BMON'.
endcase.
select single * from SSFXSFBMP into LS_BMP
where OBJECT = 'GRAPHICS' and
NAME = P_NAME and
ID = 'BMAP' and
BTYPE = BTYPE.
check SY-SUBRC = 0.
LEN = xstrlen( LS_BMP-BMP ).
while LEN > 255.
GT_BMPX-LINE = LS_BMP-BMP+OFF(255).
append GT_BMPX.
OFF = OFF + 255.
LEN = LEN - 255.
endwhile.
GT_BMPX-LINE = LS_BMP-BMP+OFF(LEN).
append GT_BMPX.
call method CL_GUI_FRONTEND_SERVICES=>GUI_DOWNLOAD
exporting
FILENAME = 'C:AAA.BMP'
FILETYPE = 'BIN'
changing
DATA_TAB = GT_BMPX[]
exceptions
others = 24.