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

名前

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

本文 さきほども伝えましたがTAdvStringGridのLoadFromBinStream は独自の仕様です なので質問されてもわかりません TStringGridをStreamに書き込む、読み込む機能はDelphiの仕様です。 なので質問には答えられます TStringGridやTListBoxを例に出されていたのでみなさんそれに合わせて回答しています でも実際にやりたいのはTAdvStringGridのLoadFromBinStream で出力された形式だ と言われたら今まで回答したことは何だったんだ？という話になります 質問のタイトルに戻ってTMemoryStreamをBase64を使って文字列にする またその逆はこんな感じでは？ コンパイラはDelphi10を想定 uses Classes, SysUtils, EncdDecd; function MemoryStreamToBase64(MS: TMemoryStream): string; var Bytes: TBytes; begin SetLength(Bytes, MS.Size); MS.Position := 0; MS.ReadBuffer(Bytes[0], MS.Size); Result := EncodeBase64(Bytes, Length(Bytes)); end; procedure Base64ToMemoryStream(const Base64Str: string; MS: TMemoryStream); var Bytes: TBytes; Len: Integer; begin Bytes := DecodeBase64(Base64Str); MS.Clear; Len := Length(Bytes); if Len > 0 then MS.WriteBuffer(Bytes[0], Len); MS.Position := 0; end;