[r45]: / trunk / library / FileControl / FB_FileControl / Read / svnobj  Maximize  Restore  History

Download this file

13 lines (12 with data), 2.0 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
METHOD Read : SysFile.SysTypes.RTS_IEC_RESULT;
VAR_INPUT
    pString : POINTER TO BYTE; // Call with ADR();
    Size : UDINT; // Call with SIZEOF(); 
END_VAR
VAR_OUTPUT
IF FileHandle <> SysFile.SysTypes.RTS_INVALID_HANDLE THEN
    FileSize := SysFile.SysFileread(hFile := FileHandle, 
                                    pbyBuffer := pString,
                                    ulSize := Size,
                                    pResult := ADR(Read));
END_IF