How to read TMemoryStream directly from Memo.Lines.Text?

[vfclists]

How do you read TMemoryStream directly from a Memo.Lines.Text, basically from a TStringList?

The example I could find and currently use entails saving the TStringList to a file, and loading the MemoryStream from the file.

Can't it be done directly?

Code: Pascal  [Select][+][-]

1.   compStream := TMemoryStream.Create;
2.   try
3.     mmoTriedLFM.Lines.SaveToFile('atempFile');
4.     compStream.LoadFromFile('atempFile');
5.     compStream.Position := 0;
6.     component := FActiveForm.FindComponent(GridSelectedComponentName);
7.     try
8.       ReadComponentFromTextStream(compStream, component, @OnFindClass, nil, nil);
9.     except
10.       on E : Exception do
11.         ProcessLoadLFMException(E);
12.     end;
13.  
14.   finally
15.     compStream.Free;
16.   end;
17.  

[Thaddy]

Yes

Code: Pascal  [Select][+][-]

1. compStream := TMemoryStream.Create;
2.   try
3.     mmoTriedLFM.Lines.SaveToStream(compStream);
4.     compStream.Position := 0;
5.     component := FActiveForm.FindComponent(GridSelectedComponentName);
6.     try
7.       ReadComponentFromTextStream(compStream, component, @OnFindClass, nil, nil);
8.     except
9.       on E : Exception do
10.         ProcessLoadLFMException(E);
11.     end;
12.  
13.   finally
14.     compStream.Free;
15.   end;

Untested.

[cdbc]

Hi
edit: Thaddy was quicker...

Code: Pascal  [Select][+][-]

1. compStream := TMemoryStream.Create;
2. try
3.   { TStrings can save directly to streams }
4.   mmoTriedLFM.Lines.SaveToStream(compStream);
5.   compStream.Position := 0;
6.   component := FActiveForm.FindComponent(GridSelectedComponentName);
7.     try
8.       ReadComponentFromTextStream(compStream, component, @OnFindClass, nil, nil);
9.     except
10.       on E : Exception do
11.         ProcessLoadLFMException(E);
12.     end;
13. finally
14.   compStream.Free;
15. end;
16.  

I've used "SaveToStream" a lot.
I even think that TMemo.Lines.SaveToFile uses it internally.
Regards Benny

[Thaddy]

You duplicate me Benny....

[cdbc]

Hi Thaddy, it's impossible to duplicate you, when you're writing 
Regards Benny

[Thaddy]

i also use savetostream a lot.

[ASerge]

Code: Pascal  [Select][+][-]

1. SS := TStringStream.Create(mmoTriedLFM.Text);
2. try
3.   component := FActiveForm.FindComponent(GridSelectedComponentName);
4.   try
5.     ReadComponentFromTextStream(SS, component, @OnFindClass, nil, nil);
6.   except
7.     on E : Exception do
8.       ProcessLoadLFMException(E);
9.   end;
10. finally
11.   SS.Free;
12. end;

[Thaddy]

Neat

[jamie]

How do you read TMemoryStream directly from a Memo.Lines.Text, basically from a TStringList?

The example I could find and currently use entails saving the TStringList to a file, and loading the MemoryStream from the file.

Can't it be done directly?

Code: Pascal  [Select][+][-]

1.   compStream := TMemoryStream.Create;
2.   try
3.     mmoTriedLFM.Lines.SaveToFile('atempFile');
4.     compStream.LoadFromFile('atempFile');
5.     compStream.Position := 0;
6.     component := FActiveForm.FindComponent(GridSelectedComponentName);
7.     try
8.       ReadComponentFromTextStream(compStream, component, @OnFindClass, nil, nil);
9.     except
10.       on E : Exception do
11.         ProcessLoadLFMException(E);
12.     end;
13.  
14.   finally
15.     compStream.Free;
16.   end;
17.  

Am I missing something, or did I miss the joke?

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. Var
3.   TheMemoryStream:TmemoryStream;
4. begin
5.   TheMemoryStream := TMemoryStream.Create;
6.   Memo1.Lines.SaveToStream(TheMemoryStream);
7.   caption := TheMemoryStream.Size.Tostring;
8.   TheMemorystream.Free;
9. end;
10.  

I must have missed the train.

[Thaddy]

No, you missed the component handling. it is a memo with a lfm file that he wants to read the component(s) back from.