Сохранение структуры в файл

[Fellics{новичок}]

Всем доброго времени суток... у меня существует структура которую нужно сохранить в файл, а затем и загрузить из файла, однако чего то не получается, код далее:

type
 pic = record
        x, y, width, height : integer;
        image : tbitmap;
        visible : boolean;
       end;

var   tpict:array of pic;

//процедура сохранения
procedure TForm1.ToolButton3Click(Sender: TObject);
var  filehandle,i:integer;
f: file of pic;
begin


if Saveqst.Execute then
begin
if extractfileext(saveqst.FileName)<>'.qst' then Saveqst.filename:=Saveqst.filename+'.qst';

assignfile(f,saveqst.FileName);
rewrite(f);
write(f, tpict[0]);
closefile(f);

end;
end;

//процедура загрузки
procedure TForm1.N7Click(Sender: TObject);
var i:integer;
f:file of pic;
c:pic;
begin
i:=0;
if opendialog1.Execute then
begin
assignfile(f,opendialog1.FileName );
reset(F);
read(f, c);
tpict[0]:=c;
closefile(f);

end;

end;

Прошу помощи, заранее благодарен всем откликнувшимся=)

P.S. Код даю кусками, так так вся программа порядка четырехсот строк, ну и затруднение в только в данных процедурах

[Stilet]

image : tbitmap;

Сохранится только указатель.
Мой совет - храни эту информацию в базах данных.

[Fellics{новичок}]

а можно как нибудь сохранить само изображение в файл с остальными данными? просто будет довольно проблемно держать картинку отдельно, а с файлом я считаю в моем случае будет проще, базу данных тоже использовать не хотелось бы...

[Serge_Bliznykov]

УПС. проглядел...

image : tbitmap;

Сохранится только указатель.

Полностью согласен!!!
и ещё есть парочка проблем.
1) я бы размер динамического массива ОБЯЗАТЕЛЬНО устанавливал принудительно (см. ниже)
2) перед чтением из файла я бы обязательно проверял, что файл не пуст!
примерно так:

//процедура загрузки
procedure TForm1.N7Click(Sender: TObject);
var f: file of pic;
begin
  i := 0;
  if opendialog1.Execute then
  begin
    assignfile(f, opendialog1.FileName);
    try
      reset(f);
      if FileSize(f)>0 then begin
        SetLength(tpict, 1);
        read(f, tpict[0]);
      end;
    finally
      closefile(f);
    end;
  end;
end;

p.s. впрочем, это всё неважно. ибо Stilet прав. так изображение не сохранишь!

[Fellics{новичок}]

Ну вопрос то другой остается в силе, каким методом можно сохранить тогда изображение с остальными данными?

[Аватар]

Выгрузите изображение в Stream, в конец допишите доп.инфу и в файл. Прочитайте файл в Stream, заберите с конца доп.инфу, обрежте Stream и загрузите из него картинку. Проще не придумать

[GunSmoker]

http://www.gunsmoker.ru/2011/10/pascal.html

Типизированный файл - это очень простая БД в виде "array of что-то". Причём, "что-то" должно иметь фиксированный размер в байтах, поэтому строки, динамические массивы и другие данные переменного размера в типизированных файлах хранить нельзя.

Как уже выше указали - проще всего сделать это на базе TFileStream.
Но можно и на паскалевских файлах, если брать нетипизированные файлы.

[Johnson]

TPersistence - никак? А изображения - придумать массив байт или в строку.

[Пепел Феникса]

Выгрузите изображение в Stream, в конец допишите доп.инфу и в файл. Прочитайте файл в Stream, заберите с конца доп.инфу, обрежте Stream и загрузите из него картинку. Проще не придумать

даже еще проще, TBitmap.LoadFromStream грузит только то что нужно, и не более.
http://programmersforum.ru/showthrea...651#post335651
вот малый пример текста и битмапа в одном файле.

[Stilet]

базу данных тоже использовать не хотелось бы...

Мазохист ты, батенька