Download this file
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