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 Anhang 48370
aber es ging leider nicht da diese Meldung dann kommt Anhang 48371

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

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

[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

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