Ну, если по простому, я бы модернизировал бы этот код под чтение из потока (TStream). А там дальше что ты подсунешь (TFileStream, TMemoryStream или какой другой поток, TResourceStream например) уже не важно.
Собственно, для модификации нужно поменять стрки:
1 - вместо имени файла передавать ссылку на TStream
49-53 - убрать вообще или хотя бы проверять данные в потоке (что они есть - size > 0)
54-55 - Stream.seek(0,0) - на всякий случай ставим указатель в начало потока
56-57б68 - меняем на чтение из потока
76 - убрать. тот, кто создал поток, пусть его и закрывает
Как-то так.
|