$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
- Sources
- pb9webeasy
- PBL
- filereadex.srf
File: filereadex.srf
Size: 664
Date: Sat, 08 Dec 2007 15:38:28 +0100
Size: 664
Date: Sat, 08 Dec 2007 15:38:28 +0100
- function_object filereadex(srf)