Gif und TBitmap

[Hallo_Thomas]

Hallo, bei mir erscheint immer die Fehlermeldung"Bitmap ist ungültig".
Wie mach ichs richtig.(hab auch die Jedi Komponeten)

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    Bild:           TBitmap;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Bild := TBitmap.Create;
  Bild.LoadFromFile(ExtractFilePath(ParamStr(0)) + '\Bilder\Bild1.gif');
end;

[leddl]

:gruebel: Ich arbeite selten mit TBitmap, aber suggeriert nicht schon der Name, daß es evtl nur Bitmaps (.bmp) schluckt? Ich habs allerdings bisher auch noch nie mit was anderem als bmp's probiert.

[fylo]

Hi

um GIF's mit Delphi zuverarbeiten benötigst du zusätzliche Units. Such mal bei Google nach delphi gif
oder hier:
The original TGIFImage can be found at
http://www.melander.dk/delphi/gifimage/
Note: His website is offline at the moment.

oder hier:
http://home20.inet.tele.dk/tolderlund/delphi/

http://finn.mobilixnet.dk/delphi/

[dizzy]

@leddl: So ist es
Und dass du die Jedis hast ist für deinen Codesnippet egal - du verwendest sie nirgends ;)

[Hallo_Thomas]

@ Leddl
Ja, hast ja recht, haber ich hab halt noch nix anderes gefunden,ich weis nur hier liegt der Fehler.

Ich wollte meine Bitmaps auf gif umstellen, denn wenn ich Stretch auf true stelle und die Bildergrösse sich bei meinen Transparenten Bitmaps verändert, spinnt die Grafik rum, das ist bei gif´s nich der Fall.

[Bitmap]

Hallo 'Hallo_Thomas'

Ich habe mal vor einiger Zeit folgede Unit im Internet gefunden: GraphicsConversionsLibrary.pas (habe sie Dir angehängt).

Dort findest Du die Procedure 'LoadGraphicsFile' mit der du sämtliche Grafikformatdateien laden kannst und immer eine Bitmap zurück bekommst.

Viel Spass beim Ausprobieren :zwinker:

[Hallo_Thomas]

Okido, ich danke dir