|
>
|
file := FileTools[TemporaryFilename](cat(FileTools[TemporaryDirectory](),kernelopts(dirsep),"GZtest-"));
|
| (1) |
>
|
fd := FileTools[Compressed][Open](file);
|
| (2) |
>
|
FileTools[Compressed][Write](fd, "String1");
|
| (3) |
>
|
data := StringTools[ToByteArray]("String2");
|
| (4) |
>
|
FileTools[Compressed][Write](file, data);
|
| (5) |
>
|
FileTools[Compressed][Close](fd);
|
| (6) |
>
|
FileTools[Compressed][ReadFile](file, "string");
|
| (7) |
>
|
FileTools[Remove](file);
|
|