[Gareth]

Здравствуйте.

Для своих нужд пишу программу, в ней динамически (runtime) создаются много компонентов, штук 50 панелей, 150 label`ов, 50 edit`ов и тд..в общем не мало компонентов.

Вот открыл я прогу, понасоздавал компонентов сколько мне надо, а при следующем открытии их же не будет). Подскажите, коим образом можно это дело сохранить? В начале думал ini, но что-то мне подсказывает, что через ini, это будет жесть...


Ранее я уже озвучивал данный вопрос, в этой теме клац, Но мой мозг не совсем понял) разжуйте пожалуйста.

[Alegun]

А что, сохранение через потоковый WriteComponent вам не подходит разве?
Тогда действительно, при завершении работы сборки можно всё сохранить в ini-файле, посредством циклического перебора компонентов на форме, их класс, размер, позицию, название etc., гимора особого не будет, поскольку это всё автоматом происходит, а при старте по этим данным их воссоздавать - проблема лишь в динамически подключаемых процедурах обработки сообщений, но это тоже не очень сложно, при грамотной разработке их содержимого, и если не ошибаюсь, то пример подобного я вам уже приводил ранее

[Gareth]

Сообщение от Alegun

А что, сохранение через потоковый WriteComponent вам не подходит разве?
Тогда действительно, при завершении работы сборки можно всё сохранить в ini-файле, посредством циклического перебора компонентов на форме, их класс, размер, позицию, название etc., гимора особого не будет, поскольку это всё автоматом происходит, а при старте по этим данным их воссоздавать - проблема лишь в динамически подключаемых процедурах обработки сообщений, но это тоже не очень сложно, при грамотной разработке их содержимого, и если не ошибаюсь, то пример подобного я вам уже приводил ранее

У вас не остался еще тот проэктик, который вы мне давали, в той теме?
Есть несколько нюансов, которые я не могу понять, а проэкт уже удален с файлообменника, да и у меня его нету уже.

Почитал про WriteComponent / ReadComponent, посмотрел примеры, попробовал, и ничего не понял. Всё потому что примеры не на runtime компонентах, а на обычных..
Куда сохраняется вся инфа ? В ини мы делаем сам файлик .ini, а с Filestream куда они кладутся ?

Мне бы тот ваш проэкт, который вы мне давали... ImgIni.rar, возможно оттуда я бы вычерпнул нужную информацию для себя (по крайней мере сейчас, когда хоть немного начал понимать).

Не затруднит ли вас написать небольшой пример, с использованием динамического компанента ?

Вот допустим на кнопку я создаю до 50 панелей и 50 image (1 клик - 1 панель, 1 image), не понимаю как всё это сохранить, с учетом того, что это создано в runtime, а может и не создано.

Код:

var
  Form1: TForm1;
  panel: array [1..50] of TsPanel;

....
procedure TForm1.sButton1Click(Sender: TObject);
var 
  nPanel:=nPanel+1;
  toppanel:=toppanel+47;
  leftpanel:=0;
  widthpanel:=ClientWidth;
  heightpanel:=45;

begin
panel[nPanel]:=TsPanel.Create(form1);   
panel[nPanel].Parent:=form1;
panel[nPanel].Top:=toppanel;
panel[nPanel].Left:=leftpanel;
panel[nPanel].Width:=widthpanel;
panel[nPanel].Height:=heightpanel;
//-----------
{-----------------IMG--------------------}
img[nPanel]:=TImage.Create(panel[npanel]);
img[nPanel].Parent:=panel[npanel];
img[npanel].Stretch:=true;
img[nPanel].Top:=2;
img[nPanel].Left:=20;
img[nPanel].Width:=60;
img[npanel].Height:=40;
end;

В крайнем случае, может подкинете статью о том как работать с Writecomponent именно для Runtime ?

Извиняюсь за свою назойливость и тупизм...

[Alegun]

Да нету у вас тупизма, всё нормально Без разницы какие компоненты сохранять, хоть статически созданные ещё во время разработки, хоть динамически появляющиеся в рантайме - смысл такой: сохраняется сразу вся форма, со всеми принадлежащими ей (на момент сэйва) элементами. Запись происходит в формате текстового файла, проще говоря тот же *.ini, только не нужно много букофф выстукивать, всё за нас сделает среда. К сожалению тот пример не сохранился, так что вот вам выжимки из подобного рабочего проекта:

Добавьте в ваш код это

Код:

var
fn: string = 'Form.txt';
procedure TForm1.FormCreate(Sender: TObject);
var
  FStr: TFileStream;
  MemStr: TMemoryStream;
begin
 if FileExists(fn) then
   begin
    Form1.DestroyComponents;
    FStr:= TFileStream.Create(fn, fmOpenRead);
    MemStr:= TMemoryStream.Create;
    ObjectTextToBinary(FStr, MemStr);
    MemStr.Position:= 0;
    MemStr.ReadComponent(Form1);
    MemStr.Free;
    FStr.Free;
   end;
end;

и это

Код:

procedure TForm1.FormDestroy(Sender: TObject);
var
  FStr: TFileStream;
  MemStr: TMemoryStream;
  i: integer;
  begin
  FStr:= TFileStream.Create(fn, fmCreate);
  MemStr:= TMemoryStream.Create;
  MemStr.WriteComponent(form1);
  MemStr.Position:= 0;
  ObjectBinaryToText(MemStr, FStr);
  MemStr.Free;
  FStr.Free;
 end;

Всё, теперь форма будет сохраняться со всем её содержимым и грузиться при старте программы.
С нативными процедурами немного сложнее - они должны быть заданы заранее, но это уже другая песня, нужно этот момент разбирать отдельно и с конкретикой, попробуйте сначала просто сохранку освоить

[Gareth]

Сообщение от Alegun

Код:

procedure TForm1.FormDestroy(Sender: TObject);
var
  FStr: TFileStream;
  MemStr: TMemoryStream;
  i: integer;
  begin
  FStr:= TFileStream.Create(fn, fmCreate);
  MemStr:= TMemoryStream.Create;
  MemStr.WriteComponent(form1);
  MemStr.Position:= 0;
  ObjectBinaryToText(MemStr, FStr);
  MemStr.Free;
  FStr.Free;
 end;

Всё, теперь форма будет сохраняться со всем её содержимым и грузиться при старте программы.
С нативными процедурами немного сложнее - они должны быть заданы заранее, но это уже другая песня, нужно этот момент разбирать отдельно и с конкретикой, попробуйте сначала просто сохранку освоить

Извиняюсь, вставил код, ругается на переменную i, мол она объявлена, но не используется. Я её удалил, и так же подсвечивается красным строка MemStr.Free;, но никакой ошибки в окошке кода не пишет. Проэкт отказывается компилироваться, выдает окошко с ошибкой "Class TacProvider not found"

Код:

procedure TForm1.FormDestroy(Sender: TObject);
var
  FStr: TFileStream;
  MemStr: TMemoryStream;
  i: integer;
  begin
  FStr:= TFileStream.Create(fn, fmCreate);
  MemStr:= TMemoryStream.Create;
  MemStr.WriteComponent(form1);
  MemStr.Position:= 0;
  ObjectBinaryToText(MemStr, FStr);
  MemStr.Free;  // подсвечивается  красным
  FStr.Free;
 end;

[Alegun]

Упс, не заметил переменную i, правильно что выкинули. TacProvider я тоже такого класса не знаю, - видимо какой-то сторонний компонент. У меня это работает без ошибок. А файл Form.txt в директории сборки появился?