Как перевести данные из TStrings в TMemoryStream?

@MobileDev · Регистрация: 02.02.2021

Author24 — интернет-сервис помощи студентам

У меня есть следующий код, который передает данные из потока в объект типа TStrings:

Delphi

var
F : TMemoryStream;
 
S : TStrings;
 
begin
F := TMemoryStream.Create;
S := TStringList.Create;
F.LoadFromFile('C:/File.jpg');
S.LoadFromStream(F);

Из TMemoryStream в TStrings все передается нормально. Однако - как обратно? Как снова преобразовать объект TString в поток данных, дабы снова можно было бы сохранить его в полноценный файл?

@MobileDev · 16.05.2021, 16:30 **[ТС]**

Сообщение от krapotkin

не работает?

Нет, не работает. Data там проходит нормально. А вот stream - нет, не передается.

Verevkin · 16.05.2021, 16:34

Вы маньяки.

Кликните здесь для просмотра всего текста

Verevkin Злостный нарушитель 9599 / 5192 / 1185 Регистрация: 12.03.2015 Сообщений: 24,513
	16.05.2021, 16:34	22
	Вы маньяки. Кликните здесь для просмотра всего текста 0

@MobileDev 0 / 0 / 0 Регистрация: 02.02.2021 Сообщений: 30
	16.05.2021, 16:30 [ТС]	21
	Сообщение от krapotkin не работает? Нет, не работает. Data там проходит нормально. А вот stream - нет, не передается. 0

Опции темы