WriteBinaryStream сжат в файл INI?

Question

В Delphi 10.4 я пытаюсь сохранить действительный TPicture сжатый в файл INI, пытаясь воспроизвести пример ZLibCompressDecompress из документации:

Но поток не сохраняется в INI файле. Результирующий INI-файл содержит только эти строки:

[Custom] IMG =

Итак, как мне сохранить сжатый поток в INI-файле?

Answer 1

Необходимо указать LOutput.Position := 0 после строки LZip.CopyFrom, то есть сразу перед

MyIni.WriteBinaryStream('Custom', 'IMG', LOutput);