Ein Gif in Delphi einfügen

[Jojo18]

Sehr geehrte Community,

ich habe ein kleines Problem, ich versuche ein Gif in Delphi einzufügen.

Die Idee war das ich es so mache Unbenannt.PNG
aber es ging leider nicht da diese Meldung dann kommt Meldung.PNG

ich hoffe ihr habt einen Lösungsvorschlag für mich. Oder habt ihr evtl. einen ganz anderen Ansatz als ich ? Falls ja helft mir bitte. Habt bitte auch etwas Nachsicht dies ist meine erste Frage.

Vielen Dank im voraus schon für eure Hilfe.

[DeddyH]

Hallo und Willkommen in der DP ,
zunächst brauchst Du eine Unit für Gif- Dateien (IIRC ist bei Delphi 6 noch keine dabei). Die bindest Du ein (uses-Klausel). Und dann muss der Dateiname mit dem GIF auch eine Endung haben, die fehlt in Deinem Code.

[Jojo18]

Danke erstmal für eure schnelle Hilfe. Aber verzeiht mir die Frage, was meinst du mit uses-Klausel ? Und mit dem Dateiname, meinst du einfach nur wie das Gif heißt ?

ich habe die "Vcl.Imaging.GIFImg" nicht eingebunden, muss ich dafür noch was downloaden damit ich dies bei den uses hinzufügen kann ?

[Jojo18]

Ich habe das .gif hinzugefügt und es erschien keine Meldung. Aber es sieht halt aus wie ein Bild und es bewegt sich nicht, habt ihr eine Idee ?

[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

[Daniel]

Moin,

Du versuchst nicht, ein GIF-Bild in Delphi einzufügen - Delphi ist das Werkzeug, mit dem Du arbeitest. Du möchtest ein GIF-Bild zur Laufzeit in Dein eigenes Programm laden.
Hast Du in der Uses-Liste u.a. die Unit "Vcl.Imaging.GIFImg" eingebunden? Und bist Du sicher, dass der Dateiname existiert? Auf dem bisschen, was man da auf dem Screenshot sehen kann, scheint das ".gif" am Ende zu fehlen.

Und wer generiert eigentlich die Fehlermeldung? Da ist ja offenbar noch mehr Code im Hintergrund.

//edit: Ja, Delphi 6 unterstützt von Haus aus keine GIF-Dateien. Vergiss meinen Hinweis auf die o.g. Unit, die existiert in Deinem Delphi noch nicht.

[Bernhard Geyer]

Zitat von Daniel:

... "Vcl.Imaging.GIFImg" eingebunden?

Oben steht was von Delphi 6...


@Threadersteller:
Musst du wirklich noch mit einer solchen Antiken Delphi-Version arbeiten?
Es gibt aktuell die Möglichkeit die aktuelle Version kostenlos zu bekommen: https://www.embarcadero.com/products...start-for-free

[HolgerX]

Hmm..

@Bernhard Geyer
Wieso muss jedem der mit einer alten Delphi Version arbeitet und zufrieden ist ein NEUES Delphi versucht aufgeschwatzt zu werden?
Wieso kann nicht auf die Version zu der die Frage gestellt wurde eingegangen werden?
Was zahlt dir Emba für die massive Werbung?

(So, mal Dampf abgelassen )
Und jetzt bitte nicht (gebetsmühlenartig) wieder und wieder die (angeblichen) Vorteile von Delphi XE10 aufzählen!
Es wird seinen Grund haben weshalb hier jemand mit D6 arbeitet!


Und nun zur Antwort zu der gestellten Frage:

Unter Delphi 6 können ohne zusätzliche Komponenten keine (animierten) GIFs direkt mit TImage dargestellt werden!
Hier wird eine Komponente wie z.B.:
http://www.tolderlund.eu/delphi/
benötigt.

Dort die Unit GifImage in die Uses deines Formulares und dann kann mit Image.Picture.LoafFormFile(AFileName) ein (animiertes) GIF ins TImage geladen und angezeigt werden.