memorystreamを文字列として変数等に入れたい (ID：152084)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

なんてことでしょう。

AAAAAさんに説明するのに試してみたら、やはりストーリームで管理されているっぽいです。

stringlistで出来なかったのはvram さんのいうようにstringlistで管理する部分が無かっただけで
streamに入れるように作ってあれば使えるのかもしれない気がしてきました。

＞それ以外の保存は自力

そこをDLLから自力で処理する際にファイル生成をせずにstreamで行えば
はやくなりそうですね。という感じでした。

＞savestream　のなかで自力で Stream に吐き出しているの

自力というか他力というか、下記の様にstreamにsaveしloadするだけで
子ノードも画像もイメージコントロールも復元できてしまうのです。

https://imgur.com/LlzEuIN

procedure TForm1.Button22Click(Sender: TObject);
var
ms1,ms2:TMemoryStream;
Bmp :TBitmap;
begin
// ----- SG1の生成処理 -----
AdvStringGrid1.RemoveRows(0,AdvStringGrid1.RowCount);
AdvStringGrid2.RemoveRows(0,AdvStringGrid2.RowCount);
advstringgrid1.RowCount:=4;
advstringgrid2.RowCount:=4;

ms1 := TMemoryStream.Create;
ImageEnView1.IO.LoadFromFile('C:\555\torisu.bmp');
ImageEnView1.IO.SaveToStreamBMP(ms1);
ms1.Position := 0;

advstringgrid1.Rows[0].DelimitedText:='aa,bb,cc,dd';
advstringgrid1.Rows[1].DelimitedText:='あ,bb,う,え';
advstringgrid1.Rows[2].DelimitedText:='11,22,33,44';

Bmp := TBitmap.Create;
bmp.LoadFromStream(ms1);
Bmp.Width := 60;
Bmp.Height :=60;

AdvStringGrid1.AddBitmap(0,2,bmp,True,haCenter,vaCenter);
advstringgrid1.AddRadioButton(4,3,true);
AdvStringGrid1.AddRating(3,2,3,clLime,clSilver);
advstringgrid1.AddCheckBox(2,2,true,false);
advstringgrid1.group(1);

// ----- SG2に複写処理 -----
ms2 := TMemoryStream.Create;
advstringgrid1.SaveToBinStream(ms2);
//advstringgrid1.SaveToStream(ms2);

ms2.Position := 0;

advstringgrid2.LoadFromBinStream(ms2);
//advstringgrid2.LoadFromStream(ms2);

//image 2に複写処理
ms1.Position := 0;
ImageEnView2.IO.LoadFromStreamBMP(ms1);
end;

←解決時は質問者本人がここをチェックしてください。

戻る