File: filereadex.srf
Size: 664
Date: Sat, 08 Dec 2007 15:38:28 +0100
$PBExportHeader$filereadex.srf
$PBExportComments$Poor man's FileReadEx for PB 9
global type filereadex from function_object
end type

forward prototypes
global function long filereadex (integer ai_fileno, ref blob abl_file)
end prototypes

global function long filereadex (integer ai_fileno, ref blob abl_file);Long      ll_BytesRead = 0
Long     ll_TotalRead = 0 
blob     lb_filechunk

abl_file = Blob ('')

ll_BytesRead  = FileRead(ai_fileno, lb_filechunk) 
Do WHILE ll_BytesRead <> -100 
   ll_TotalRead += ll_BytesRead
   abl_file += lb_filechunk 
   ll_BytesRead = FileRead(ai_fileno, lb_filechunk) 
LOOP 

Return ll_TotalRead


end function