TGifImage

[hathor]

Gefunden in XE7:


{************************************************* ******}
{ }
{ Delphi Visual Component Library }
{ }
{ Copyright(c) 1995-2014 Embarcadero Technologies, Inc. }
{ }
{************************************************* ******}

unit Vcl.Imaging.GIFImg;

(*

This source code is adapted from the original TGIFImage written by Anders Melander.

CodeGear is grateful for his donation of his source code to the VCL.

*)

[Bernhard Geyer]

Wolltest du TGifImage direkt weiter verwenden musst du alle vorkommen in denen Chars verwendet werden auf AnsiChar umstellen.
Denn ab D2009 ist SizeOf(Char) = 2, Bis D2007 ist es 1. Damit wird jedes Streaming der GIF-Datei fehlerhafte Ergebnisse liefern. Vermutlich schon beim GIF-Header.