Ein Gif in Delphi einfügen

[himitsu]

Und im ScreenShot fehlt die Dateiendung.

TPicture kann in älteren Delphis nur Anhand der Dateiendung den passeden TGraphic-Nachfahren automatisch auswählen.
Gibt es keine Dateiendung oder will man aus einem Stream laden, dann muß man den passenden TGraphic-Typen selber bereitstellen.

z.B.

Delphi-Quellcode:

Temp := TGifImage.Create;
Image1.Picture.Graphic := Temp;
Temp.Free;  // der Setter von "Graphic" erstellt sich eine Kopie des Objektes
Image1.Picture.Graphic.LoadFromFile(...);

Zusätzlich ist der "feste" Dateipfad natürlich suboptimal. Ich hoffe das wird so nicht im entgültigen Programm verwendet.

[himitsu]

Die Fehlermeldung und das Syntax Highlighting kommen mir komisch vor.

Wirklich Delphi oder eher Lazarus/FreePascal?

[Fukiszo]

Hier exemplarisch ein Beispiel wie du ein Bild laden könntest. (Gif, Ico, Jpeg usw...)
Da ich deinen Code nicht sehe kann ich nicht direkt helfen.

Delphi-Quellcode:

USES axCtrls; // <- das muss zu deiner USES klausel im Source

// weiter unten im source dann sowas (ich hab ein Knopf/Button examplarisch genommen um darauf zu reagieren)

procedure TForm1.Button1Click(Sender: TObject);
var
  OleGraphic: TOleGraphic;
  fs: TFileStream;
begin
  try
    OleGraphic := TOleGraphic.Create;
    fs         := TFileStream.Create('C:\...\test.gif', fmOpenRead or fmSharedenyNone);
    OleGraphic.LoadFromStream(fs);
    SampleImage.Picture.Assign(OleGraphic);
  finally
    fs.Free;
    OleGraphic.Free
  end;
end;

Achtung: Code ist so nicht ausführbar, der gehört angepasst an deinen Source den ich ja nicht sehe.

Grüße

[Jojo18]

Ich habe es jetzt so gemacht wie du gesagt hast himitsu aber er führt es nicht aus. Wie kann ich denn das Temp und TGifImage deklarieren oder muss ich da was bei uses eingeben ?

[Jojo18]

Danke für deine Hilfe aber wie kann ich das denn an meine Source anpassen ?

[Fukiszo]

Zitat von Jojo18:

....wie kann ich das denn an meine Source anpassen...

bei meinem beispiel hab ich ein TImage als Anzeige benutzt und SampleImage benannt.
fs := TFileStream.Create('C:\...\test.gif', fmOpenRead or fmSharedenyNone);
>> C:\...\test.gif << --- da muss logischerweise ein gültiger name rein also anpassen.

Ansonsten:

Zitat von haentschman:

...Hänge doch mal das komplette Projet als ZIP an.

Grüße

[haentschman]

Moin...
Hänge doch mal das komplette Projekt als ZIP an. Da brauchen wir nicht mehr raten...