Опять же графика!, Сохранение изображения Опции

[-=АнЮтА=-]

Пы талась проявить фантазию, но очень осторожно и с переменным успехом. Хочу так сохранить рисунок по кускам, но в два разных файла. Из одного файла прочитать оба кусочка записанных боюсь мозгофф пока не хватит. Не могу сообразить где ошибка, может стоит с разными переменными попробовать? Если тока один кусочек копировать - работает, размер кусочка проверяла - меньше 64 кб. Подскажите пожалуйста
Написала такую процедуру:

Procedure Copy_image;
    var size:word;
        buffer,:pointer;
        f:file;
begin
        size:=imagesize(200,20,400,220);  {копирую первый кусочек}
        getmem(buffer,size);
        getimage(200,20,400,220,buffer^);
        assign(f,'pic.dat');
        rewrite(f,size);
        blockwrite(f,buffer^,1);
        close(f);

        size:=imagesize(400,220,630,435);     {копирую второй}
        getmem(buffer,size);
        getimage(400,220,630,435,buffer^);
        assign(f,'pic1.dat');
        rewrite(f,size);
        blockwrite(f,buffer^,1);
        close(f);

        assign(f,'pic.dat');                    {воспроизвожу первый}
        reset(f,1);
        getmem(buffer,filesize(f));
        blockread(f,buffer^,filesize(f));
        close(f);
        putimage(200,20,buffer^,normalput);

        assign(f,'pic1.dat');                     {  воспроизвожу второй}
        reset(f,1);
        getmem(buffer,size);
        blockread(f,buffer^,filesize(f));
        close(f);
        putimage(400,220,buffer^,normalput);
             end;

[volvo]

еще размер картинки уменьшил - она все же была очень большая...

А ты откуда знаешь, что было у автора во время вызова процедуры на экране? Может был пустой экран и несколько красных линий, тогда можно и все 640*480 запихнуть в один файл, ибо ImageSize возвращает размеры картинки, учитывая все особенности расположения ее в ОЗУ...

[Lapp]

А ты откуда знаешь, что было у автора во время вызова процедуры на экране?

Именно так - я даже не знаю, какую моду использовала -=АнЮтА=-. Поэтому я не катил бочку, а тихо сказал про то, что было у меня.. Надеюсь, -=АнЮтА=- все же сделает выводы (поэкспериментировав в этом направлении).

Что же касается обобщения программы на запись любых картинок в один файл - оно очевидно. Нужно найти правильное разбиение на прямоугольники (не думаю, чтобы при этом надо было стремиться к максимальному размеру имеджа, лучше заведомо не промахнуться с размером), а потом записывать в файл последовательно все куски, перемежая их информацией об относительном положении куска и его размере. То есть примерно так:

  ReWrite(f,1);
  x:=x1;
  y:=y1;
  while y<=y2 do begin
    y0:=y+dy;
    if y0>y2 then y0:=y2;
    while x<=x2 begin
      x0:=x+dx;
      if x0>x2 then x0:=x2;
      Size:=ImageSize(x,y,x0,y0);
      BlockWrite(f,x,SizeOf(x));
      BlockWrite(f,y,SizeOf(y));
      BlockWrite(f,Size,SizeOf(Size));
      GetMem(Buffer,Size);
      GetImage(x,y,x0,y0,Buffer^);
      BlockWrite(f,Buffer^,Size);
      FreeMem(Buffer)
    end
  end;
  Close(f);

Главное тут не перебрать при выборе dx и dy.
Читать все в одном цикле до конца файла.