Gif in ein TBitmap laden

[ferby]

Hallo,

Ich möchte gerne eine gif Datei in ein TBitmap laden.
Ich habe schon im Forum gesucht, allerdings sind das immer aufwendige Lösungen da animation und transparenz unterstützt wird.

Ich brauche nur eine einfache umwandlung, sprich: so wie wenn ich mit mspaint eine gif datei öffne
(Transparenz und animation wird nicht unterstützt)

Geht so etwas einfach..........??

[turboPASCAL]

Da Delphi von Haus aus keine Unterstützung für das Gif-Format hat musst du dir eine Komponente suchen.
zB.: TGifImage
Dann kanst du das Gif in ein Bitmap umwandeln, so wie das zB. bei einem JPEG geschiet.

[ferby]

Hallo,

ich finde den KOmponenten nicht... nur immer bis Delphi 5, ich verwende aber Delphi 7.....

[Klaus01]

anbei die Datei

Grüße
Klaus

[ferby]

Hallo,

danke,
funz alles super!


Ferby

[Timelesk]

Hallo ferby,

wie hast du dein Problem gelöst?
Ich hänge daran, dass er mir immer nur die Farbe WEIß ausgibt, obwohl das Bild komplett bunt ist!

Delphi-Quellcode:

var
  x,y, i: integer;
  tmp: string;
  bmp: TBitmap;
begin
  //Erstelle Bitmap
  bmp := TBitmap.Create;
  try
    //Lade Breite und Höhe des eigentlichen Bildes
    bmp.Width := image_map[anz_countries].Width;
    bmp.Height := image_map[anz_countries].Height;
    //Lade Gif in Bitmap
    bmp.Assign(image_map[anz_countries-1].Picture.Bitmap);
    //Durchgehe alle angegebenen Koordinaten für die Farben
    for i := 1 to anz_colors do
      begin
        tmp := ini.ReadString('Farb-Koordinaten', inttostr(i), '0,0');
        x := strtoint( Copy(tmp, 0, pos(',', tmp) - 1) );
        y := strtoint( Copy(tmp, pos(',', tmp) + 1, maxint) );
        colors[i-1] := bmp.Canvas.Pixels[x,y];
        //Ausgabe zur Kontrolle - Testzwecke
        showmessage(ColorToString(bmp.Canvas.Pixels[x,y]));
    end;
  finally
    bmp.Free;
  end;
end;

Aber leider gibt er mir immer nur weiß aus!
Es ist zum verzweifeln!
Woran liegt es?
GifImage hab ich in den Units eingebunden!

Hoffentlich kann mir jemand helfen...

Vielen herzlichen Dank

[pacman1986]

geh nicht ueber bitmap

einfach

Image.Picture.LoadFromFile(Filename); ich weiss net genau worauf du hinauswillst aber denke das ich es getroffen habe

[ferby]

Hallo,

Ich habe es schluss endlich nicht mit einen Bitmap geschaft sondern mit einen TImage.

Verwende einfach die TImage Komponente, so wie pacman1986 es geschrieben hat.

Ps. Es wird sogar Animation und Transparenz unterstützt!

[Timelesk]

hi,

das ist nicht mein problem

mein problem ist, dass ich auf dem gif die farbe herausfinden muss.
das geht aber anscheinend nur mit bitmaps!

Problemlösung:

1. gif := TGifImage und bmp := TBitmap
2. lade bild von TImage in gif
3. lade bild von gif in bmp über bmp.assign(gif.Bitmap)
4. Hole die Farbe
5. gib alles wieder frei!


Trotzdem vielen Dank!

[BassFan]

Zitat von Timelesk:

hi,

das ist nicht mein problem

mein problem ist, dass ich auf dem gif die farbe herausfinden muss.
das geht aber anscheinend nur mit bitmaps!

Problemlösung:

1. gif := TGifImage und bmp := TBitmap
2. lade bild von TImage in gif
3. lade bild von gif in bmp über bmp.assign(gif.Bitmap)
4. Hole die Farbe
5. gib alles wieder frei!


Trotzdem vielen Dank!

Hab nicht soviel ahnung von Delphi.
In VB gehts ganz einfach über die API .. xxxFarbe = GetPixel(posX,PosY) wobei PosX,PosY für
die coordinaten des pixels im Bitmap steht.

gruß