Вопрос : Свобода изображения PNG, не может составить с D2010

Iий судимое составить свободу изображения PNG с delphi 2010 от http://pngdelphi.sourceforge.net.
Стопы составителя, из-за не могут задать значение к ошибке левой стороны на этой линии:

      Байт (Dest^): = fOwner.GammaTable [pByte (Longint (Src) + 2)^]; inc (Dest);

составьте ту свободу и бегом с D7 была никакая проблема 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

процедура TChunkIDAT.CopyInterlacedRGB8 (пропуск const: Байт;
  Src, Dest, Trans {$IFDEF Store16bits}, экстренный {$ENDIF}: pChar);
var
  Col: Интежер;
начните
  {Получите первую колонку и войдите в петлю}
  Col: = ColumnStart [пропуск];
  Dest: = pChar (Longint (Dest) + Col * 3);
  повторение
    {Скопируйте этот рядок}
    Байт (Dest^): = fOwner.GammaTable [pByte (Longint (Src) + 2)^]; inc (Dest);
    Байт (Dest^): = fOwner.GammaTable [pByte (Longint (Src) + 1)^]; inc (Dest);
    Байт (Dest^): = ^ fOwner.GammaTable [pByte (Longint (Src    ))]; inc (Dest);

    {Движение к следующей колонке}
    inc (Src, 3);
    inc (Dest, ColumnIncrement [пропуск] * 3 до 3);
    inc (Col, ColumnIncrement [пропуск]);
  до >= ImageWidth Col;
конец;
Приложения:
 
pngextra.pas (9 KB) (тип архива детали) 
PNG libarary
 
 
pngimage.pas (183 KB) (тип архива детали) 
PNG libarary
 
 
pnglang.pas (21 KB) (тип архива детали) 
PNG libarary
 
 
zlibpas.pas (4 KB) (тип архива детали) 
PNG libarary
 

Ответ : Свобода изображения PNG, не может составить с D2010

Замените pChar pByte, оно работать как шарм
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

процедура TChunkIDAT.CopyInterlacedRGB8 (пропуск const: Байт;
  Src, Dest, Trans {$IFDEF Store16bits}, экстренный {$ENDIF}: pByte);
var
  Col: Интежер;
начните
  {Получите первую колонку и войдите в петлю}
  Col: = ColumnStart [пропуск];
  Dest: = pByte (Longint (Dest) + Col * 3);
  повторение
    {Скопируйте этот рядок}
    Dest^: = fOwner.GammaTable [pByte (Longint (Src) + 2)^]; inc (Dest);
    Dest^: = fOwner.GammaTable [pByte (Longint (Src) + 1)^]; inc (Dest);
    Dest^: = ^ fOwner.GammaTable [pByte (Longint (Src    ))]; inc (Dest);

    {Движение к следующей колонке}
    inc (Src, 3);
    inc (Dest, ColumnIncrement [пропуск] * 3 до 3);
    inc (Col, ColumnIncrement [пропуск]);
  до >= ImageWidth Col;
конец;
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us