Сохранение изображения графического модуля в файл. ТПаскаль

[Christor]

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

uses crt,graph;
Var f:file;
    size,gd,gm:integer;
    p,n:pointer;
begin
   gd:=detect;
   mark(n);
   initgraph(gd,gm,'C:\tp7\bgi');
   setcolor(15);
   rectangle(200,200,350,300);
   setfillstyle(1,4);
   floodfill(201,205,15);
   size:=imagesize(200,200,350,300);
   getmem(p,size);
   getimage(200,200,350,300,p^);
   assign(f,'ssa.hh');
   rewrite(f,size);
   write(f,p^);
   close(f);
   readln;
   release(n);
end.

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

reset(f);
readln(f,p^);
putimage(200,200,p^);

Но на строчке " write(f,p^);" ошибка "Error 63:Invalid file type". Возможно ли вообще реализовать то, что я хочу. Если да, то как? Это очень нужно! Заранее спасибо!

[Stilet]

Правильно пишет. Для нетипированных файлов есть процедуры BlockWrite-BlockRead.

[Christor]

Спасибо!
Сделал так

uses crt,graph;
Var f:file;
    size,gd,gm:integer;
    p,n:pointer;
begin
   gd:=detect;
   mark(n);
   initgraph(gd,gm,'C:\tp7\bgi');
   setcolor(15);
   rectangle(200,200,350,300);
   setfillstyle(1,4);
   floodfill(201,205,15);
   size:=imagesize(200,200,350,300);
   getmem(p,size);
   getimage(200,200,350,300,p^);
   assign(f,'ssa.hh');
   rewrite(f);
   BlockWrite(f,p^,60);
   close(f);
   readln;
   release(n);
end.

Далее так:

uses crt,graph;
Var f:file;
    size,gd,gm:integer;
    p,n:pointer;
begin
   gd:=detect;
   mark(n);
   initgraph(gd,gm,'C:\tp7\bgi');
   size:=imagesize(200,200,350,300);
   getmem(p,size);
   assign(f,'ssa.hh');
   reset(f);
   Blockread(f,p^,60);
   close(f);
   putimage(200,200,p^,1);
   readln;
   release(n);
end.

Но... не могу понять смысл третьего параметра в blockwrite(read). Читал в интернете и книгах. Но понять не смог. Можете рабочим-крестьянским языком объяснить суть? Число 60 "взял с потолка". Буду очень благодарен.

[Serge_Bliznykov]

понять смысл третьего параметра в blockwrite

цитирую хелп TurboPascal

 BlockWrite (procedure)

Writes one or more records from a variable.

 Declaration:
 procedure BlockWrite(var f: File; var Buf; Count: Word [; var Result:
    Word]);
where:
   F        untyped file variable
   Buf      any variable
   Count    an expression of type Word
   Result   a variable of type Word

перевожу
первый параметр F - нетипизированная файловая переменная (файл, куда пишем данные)
второй параметр - Buf - любая переменная (которую записываем)
третий параметр - Count переменная типа Word - СКОЛЬКО байт записываем
четвёртый (необязательный параметр) - Result переменная типа Word - СКОЛЬКО байт реально записалось.

[s-andriano]

Скока памяти ухватили, стока и записали!

   Blockread(f, p^, size);

Только перед этим reset нужно записать так:

  reset(f, 1);

Иначе длина файла будет измеряться не в байтах а в 128-байтных секторах - тяжелое наследство ОС CP/M-80, для которой были выпущены первые 3 версии TP.

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

третий параметр - Count переменная типа Word - СКОЛЬКО байт записываем

Эта фраза неверная.
Нужно читать "сколько блоков записываем. По умолчанию длина блока равна 128 байтам, но ее величину можно изменить при помощи второго параметра в операторе reset".

[Serge_Bliznykov]

Сообщение от s-andriano

Эта фраза неверная.
Нужно читать "сколько блоков записываем. По умолчанию длина блока равна 128 байтам, но ее величину можно изменить при помощи второго параметра в операторе reset".

Полностью согласен!

Просто настолько привык в BlockRead/BlockWrite использовать типизированные файлы

  var  f : file of byte;

или

  var  f : file of char;

что совершенно забыл про эту фишку!!!


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

var f: file;
...
  Rewrite(f, 1); {размер одного блока файла равен 1 байт}

[Christor]

Ясно. Всем спасибо!