[r48]: / trunk / library / FileControl / FB_FileControl / Save / svnobj  Maximize  Restore  History

Download this file

15 lines (14 with data), 2.1 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
(* 
    Saves the contents of the buffer into a file
    Be sure to call Open() before calling Save()
*)
METHOD Save : SysFile.SysTypes.RTS_IEC_RESULT;
VAR_INPUT
    pString : POINTER TO BYTE; // Call with ADR();
    Size : UDINT; // Call with SIZEOF();
IF FileHandle <> SysFile.SysTypes.RTS_INVALID_HANDLE THEN
    Save := SysFile.SysFileWrite(hFile := FileHandle,
                                 pbyBuffer := pString,
                                 ulSize := Size,
                                 pResult := ADR(Save));
END_IF