파일 용량 제한

string ls_path, ls_filename
integer li_FileNum, li_bytes, li_value
long ll_FileLen, ll_loops, ll_size
blob lb_pic, lb_image

// 파일 선택
li_value = GetFileOpenName ("Select File", ls_path, ls_filename, "jpg", &
"JPEG Files(*.jpg), *.jpg")

if IsNull(ls_path) or li_value <> 1 then return

SetPointer(HourGlass!)
ll_FileLen = FileLength(ls_path)
li_FileNum = FileOpen(ls_filename, StreamMode!)
IF ll_FileLen > 32765 THEN
IF Mod(ll_FileLen, 32765) = 0 THEN
ll_loops = ll_FileLen / 32765
ELSE
ll_loops = (ll_FileLen / 32765) + 1
END IF

ELSE
ll_loops = 1
END IF

// Read the file
li_NewPos = 1
FOR i = 1 to ll_loops
li_bytes = FileRead(li_FileNum, lb_pic)
lb_image = lb_image + lb_pic
NEXT
FileClose(li_FileNum)

ll_size = li_bytes + ((ll_loops - 1) * 32765)

// 이미지 크기 제한
if ll_size > 50000 then
MessageBox("확인", " 이미지 크기가 50,000 Byte 이상 넘지를 못합니다.(" + &
string(ll_size, "###,###,##0") + " Byte)", StopSign!)
return
end if