[r2]: / IoDrvSysfsGPIO / Functions / WriteFileString / 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 WriteFileString : RTS_IEC_RESULT
VAR_INPUT
	szFilename : STRING(255);
	szValue : STRING(255);
END_VAR
VAR
	Result: RTS_IEC_RESULT;
	hFile: RTS_IEC_HANDLE;
	dwNrBytes: DWORD;
	ulSize: UINT;
	dwNrBytes := SysFile.SysFileWrite(hFile, ADR(szValue) , ulSize, ADR(Result));
	SysFile.SysFileClose(hFile);
END_IF
WriteFileString := Result;