掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
memorystreamを文字列として変数等に入れたい (ID:152075)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
やってみました。 その時に下記のような感じでだとTOBJECTはデータとして出ていないので復元されませんよね procedure TForm1.Button18Click(Sender: TObject); var FileStream: TFileStream; begin Listbox1.items.addObject('aaa',TObject(1111)); Listbox1.items.addObject('bbb',TObject(2222)); ListBox2.Items.Add('BBB'); FileStream := TFileStream.Create('d:\A.TXT',fmCreate); ListBox1.Items.SaveToStream(FileStream); ListBox2.Items.SaveToStream(FileStream); FileStream.Free; end; たぶん、memorystreamの中にはTOBJECTの内容も入っていると思うんですよ。 それを下記のXRAYさんのやつのように Base64_Text : AnsiString = 'Qk32AAAAAAAAAHYAAAAoAAAAEAAAABAAAAABAAQAAAAAAIAAAAAAAAAAAAAAABAAAAAAAAAA////' + 'AN7e3gCzs7MA8rwAAD3I/wBwu9EAZ6zAABho4gAkEugAVlZOABQZSwAkMDMAHhcAAAAAAAD//wAA' + '////AF3ZVVW1VVVVXXfXW91VVVVddHvdPdVVVV10mZAz1VVVVdmZAAPVVVVV2ZAAANVVVVW5AAAA' + 'DVVVW9MAAAAA1VVd0zAAAiAdVVXdzAACIA1VVVVV0AIgCNVVVVVdAACI1VVVVVXbCIjVVVVVVVra' + 'iKVVVVVVVVbd1VVVVVVVVVVV'; 上記のような感じで、何が書いてあるかわからなくても＆編集できなくてもいいので文字化し streamとして書き戻したい感じなのです。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.