파워빌더.파일 - 읽기

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

 

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

☞