ich bin dabei die
unit pngimage.pas auf
unicode umzustellen -- wir haben ein projekt welches mit delphi 7 und delphi 2010 / delphi Xe erstellt wurde .
(wir versuchen möglichst viel code von delphi 7 auf delphi 2010--
unicode zu retten ....)
wie lautet dieser code unter d2010 :
const
PngHeader: Array[0..7] of Char = (#137, #80, #78, #71, #13, #10, #26, #10);
{Loads the image from a stream of data}
procedure TPngObject.LoadFromStream(Stream: TStream);
var
Header : Array[0..7] of Char; // ??? TODO ???
HasIDAT : Boolean;
{Chunks reading}
ChunkCount : Cardinal;
ChunkLength: Cardinal;
ChunkName : TChunkName;
begin
{Initialize before start loading chunks}
ChunkCount := 0;
ClearChunks();
{Reads the header}
Stream.Read(Header[0], 8);
{Test if the header matches} /// diese abfrage kracht wenn ich diesen code unter d2010 ausführe !!!!!!!!!!!!!
if Header <> PngHeader then
begin
RaiseError(EPNGInvalidFileHeader, EPNGInvalidFileHeaderText);
Exit;
end;