Как в ходе пограммы создать компонент чтобы он остался в памяти после ее закрытия.

[egorka2134]

Здравствуйте, есть вопрос:
возможно ли в ходе программы создать компонент, допустим ИМИДЖ, но создать так, чтобы при закрытии программы, и открытии её снова он остался, и если такое возможно то как.
Заранее спасибо.
Р.С.
знаю про динамические компоненты, но они исчезают после перезапуска проги, может можно их както оставить.
Буду рад примеру с кодом!

[Кольша]

Можно сохранить, но только в файл. Вот пример, но есть и другие ищите.

var f: TFileStream;
begin
  f := TFileStream.Create('c:\stream.vcl', fmcreate);
  f.WriteComponent(lb);
  f.Free;
end;

...

var
  f: TFileStream;
begin
  f := TFileStream.Create('c:\stream.vcl', fmOpenRead);
  f.ReadComponent(lvFiles);
  f.Free;

procedure WriteComponent(Stream:TStream;Component:TComponent);
var M:TMemoryStream;
    Size:integer;
begin
 M:=TMemoryStream.Create;
 M.WriteComponent(Component);
 Size:=M.Size;
 Stream.WriteBuffer(Size,SizeOf(Size));
 M.Seek(0,soFromBeginning);
 Stream.CopyFrom(M,M.Size);
 M.Free;
end;

procedure ReadComponent(Stream:TStream;Component:TComponent);
var M:TMemoryStream;
    Size:integer;
begin
 M:=TMemoryStream.Create;
 Stream.ReadBuffer(Size,4);
 M.CopyFrom(Stream,Size);
 M.Seek(0,soFromBeginning);
 M.ReadComponent(Component);
 M.Free;
end;

procedure TForm1.SaveComponentToFile(T:TComponent; FileName:String);
var//63216
  Writer:TWriter;
  MemoryStream,S2:TStream;
begin
  MemoryStream:=TMemoryStream.Create;
  try
    Writer:=TWriter.Create(MemoryStream, 8192);
    try
      Writer.OnFindAncestor :=  FindAncestorEvent;
 
      Writer.Root := Self;  // чьи методы будут использоваться
      Writer.WriteSignature; 
      Writer.WriteComponent(T);
    finally
      Writer.Free;
    end;
 
    // копируем MemoryStream на файл
    MemoryStream.Position:=0;
 
    S2:=TFileStream.Create(FileName,fmCreate);
    try
      S2.CopyFrom(MemoryStream,0);
    finally
      S2.Free;
    end;
 
    ShowBinaryStream(MemoryStream,Memo_Show_Writer.Lines);
 
    FreeAndNil(T); // уничтожаем компонент, что бы потом проверить
 
  finally
    MemoryStream.Free;
  end;
end;
 
/// читает компонент из файла
procedure TForm1.RestoreComponentFromFile(ComponentName:String; FileName:String);
var
  Reader:TReader;
  S1:TStream;
  T,T1:TComponent;
begin
 
  S1:=TFileStream.Create(FileName,fmOpenRead);
  try
    ShowBinaryStream(S1, Memo_Show_Reader.Lines );
 
    S1.Position:=0;
 
    Table1.Free;
 
    Reader:=TReader.Create(S1,8192);
    try
      Reader.BeginReferences;
 
      Reader.Owner  :=Self; // !!
      Reader.Root   :=Self; // чьи методы будут использоваться
 
      Reader.ReadSignature;
      T:=Reader.ReadComponent(Nil);
      T1:=FindComponent(ComponentName);
      if T = Nil then
        Memo_Log.Lines.Add('Компонент не прочитался')
      else
      if T1 = Nil then
        Memo_Log.Lines.Add('Компонент не находится')
      else
      if T1<>T then
        Memo_Log.Lines.Add('Компоненты не совпадают')
      else
        Memo_Log.Lines.Add('Компонент прочитался');
 
      Reader.EndReferences;
    finally
      Reader.Free;
    end;
 
    if T Is TControl then TControl(T).Parent:=Self;  // это тоже может быть важно
 
  finally
    S1.Free;
  end;
 
end;