[r5]: / IoDrvSysfsGPIO / Functions / ReadFileString / svnobj  Maximize  Restore  History

Download this file

15 lines (14 with data), 2.6 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
FUNCTION ReadFileString : STRING(255)
VAR_INPUT
	szFilename : STRING(255);
END_VAR
VAR
	Result: RTS_IEC_RESULT;
	hFile: RTS_IEC_HANDLE;
	dwNrBytes: DWORD;
	dwNrBytes := SysFile.SysFileRead(hFile, ADR(ReadFileString) , 255, ADR(Result));
	IF dwNrBytes > 1 THEN
		ReadFileString[dwNrBytes - 1] := 0;
	END_IF
	SysFile.SysFileClose(hFile);
END_IF