TGifImage

[Sidi61]

Hallo zusammen,

mit Delphi 7.0 verwendete ich eine Komponente TGifImage welche ich damals mittels einer GifImage.exe installierte (wenn ich das noch richtig weiß).

Ein Projekt daraus wollte ich nun unter Delphi XE5 kompilieren und bekam natürlich prompt eine Fehlermeldung.

Ich habe nach TGifImage gesucht aber leider nirgends gefunden, auf der Anders Melander Site wird sich nicht mehr zum download bereitgestellt. Dort stand jedoch etwas in der Art wie er hätte das Projekt Gode Gear zur Aufnahme in Delphi übergeben und es müsste somit in Delphi > 2007 integriert sein. Die Komponente ist jedoch in Delphi XE5 nicht in der Komponentenliste eingetragen.

Weiß jemand Rat was zu tun ist um TGifImage unter XE5 weiter verwenden zu können??

Gruß
Sidi61

[BadenPower]

Zitat:

Zitat von Sidi61 (Beitrag 1289095)

Ich habe nach TGifImage gesucht aber leider nirgends gefunden, auf der Anders Melander Site wird sich nicht mehr zum download bereitgestellt. Dort stand jedoch etwas in der Art wie er hätte das Projekt Gode Gear zur Aufnahme in Delphi übergeben und es müsste somit in Delphi > 2007 integriert sein. Die Komponente ist jedoch in Delphi XE5 nicht in der Komponentenliste eingetragen.

TGifImage ist keine eigenständige Komponente mehr. Vielmehr ist die Funktionaltität seit D2007 in der TImage-Komponente integriert.

Die Source findest Du normalerweise unter "C:\Programme\CodeGear\Rad Studio\v.0\source\TGifImage\".

Zitat:

What do I need to do in order to use GIFs with the TImage component?

The only thing you need to do, is to add the GIFImg unit to a uses clause anywhere in your project:

Uses
GIFImg, Windows, Messages, SysUtils, Classes... etc.

When you do this, TGIFImage will automagically register itself with the TPicture class in the initialization section of the GIFImg unit.
TPicture is the class that TImage uses to support different graphic formats.

Sieh Dir dazu auch die FAQ zu TGifImage auf der Homepage an.

[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.