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

名前

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

本文 使われている用語が微妙に違うので混乱しているのかも > streamを文字列にできれば TStringStreamクラスがあるぐらいなので　ストリームは文字列対応です もしかして「シリアライズ化」ではないでしょうか？ > invalid stream formatとなり参照できない感じでした。 ObjectBinaryToTextは基本 TPersistentやTComponentを継承したクラスの published に定義されたプロパティを保存読み込むものです 昔書いた参考プログラムを書きますが結構古いです クラス定義 type TTestComp = class(TComponent) private { Private 宣言 } FVInt: Integer; FVStr: string; FVBool: Boolean; FVDouble: Double; FVInt64: Int64; FVSet: TTestSet; FVColor: TColor; FVFontStyle: TFontStyles; FVDate: TDateTime; FVComp: TTestCompSub; FVFont: TFont; FVValiant: Variant; FVType: TTestType; public { Public 宣言 } published property VInt : Integer read FVInt write FVInt default 1; property VStr : string read FVStr write FVStr; property VBool : Boolean read FVBool write FVBool; property VDouble : Double read FVDouble write FVDouble; property VInt64 : Int64 read FVInt64 write FVInt64 default 123456789; property VType : TTestType read FVType write FVType; property VSet : TTestSet read FVSet write FVSet; property VColor : TColor read FVColor write FVColor; property VDate : TDateTime read FVDate write FVDate; property VFont : TFont read FVFont write FVFont; property VComp : TTestCompSub read FVComp write FVComp; property VValiant : Variant read FVValiant write FVValiant; end; // フォームの宣言部に定義 private { Private 宣言 } FTestComp : TTestComp; FSaveObj : TComponent; function BinToTextOut(m : TMemoryStream) : string; // フォームの生成イベントで生成 procedure TForm1.FormCreate(Sender: TObject); begin FTestComp := TTestComp.Create(Self); end; // フォームの破棄イベントで破棄 procedure TForm1.FormDestroy(Sender: TObject); begin FTestComp.Free; end; // ObjectBinaryToTextを使いやすくする関数 引数ストリームクラス　返り値テキスト化されたデータ function TForm1.BinToTextOut(m: TMemoryStream): string; var StrStream: TStringStream; s: string; begin StrStream := TStringStream.Create(s); try m.Seek(0, soFromBeginning); ObjectBinaryToText(m, StrStream); StrStream.Seek(0, soFromBeginning); Result:= StrStream.DataString; finally StrStream.Free; end; end; // ボタンクリックイベント procedure TForm1.Button1Click(Sender: TObject); var e : TMemoryStream; s : string; begin // ここで保存／読込で試すオブジェクトを指定 フォームに色々置いて試す case of 0 : FSaveObj := Form1; 1 : FSaveObj := Form1.Button1; 2 : FSaveObj := Form1.Memo1; 3 : FSaveObj := Form1.Panel1; 4 : FSaveObj := Form1.Label1; 5 : FSaveObj := FTestComp; end; e := TMemoryStream.Create; try e.WriteComponent(FSaveObj); // ストリームにクラスの要素（実行時型情報）が送られる（バイナリ） s := BinToTextOut(e); // ストリームに書き込まれた値（実行時型情報）をテキスト化（シリアライズ） finally e.Free; end; end;