파워빌더.파일

농부지기 2017. 1. 26. 23:35

[ 파워빌더.파일 - 읽기 ]

// blob gf_FileRead(string as_file)

Blob  ib_file, b
integer i_fn
Long  l, l_loop
Long  l_fLen

l_fLen = FileLength(as_File)

IF l_fLen > 32765 THEN
IF Mod(l_fLen, 32765) = 0 THEN
l_loop = l_fLen / 32765
ELSE
l_loop = l_fLen / 32765 + 1
END IF
ELSE
l_loop = 1
END IF

i_fn = FileOpen(as_File, StreamMode!, Read!)
FOR l = 1 to l_loop
FileRead(i_fn, b)
ib_file = ib_file + b
NEXT

FileClose(i_fn)

return ib_file

☞