Ein Gif in Delphi einfügen

[haentschman]

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

[Fukiszo]

Zitat:

Zitat von Jojo18 (Beitrag 1391527)

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

Zitat von haentschman (Beitrag 1391528)

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

Grüße

[Bernhard Geyer]

Zitat:

Zitat von Daniel (Beitrag 1391515)

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

[Jojo18]

Hey Leute, ich habe es versucht habe es verpackt aber es funktioniert nicht. Die Datei hat 15,6 MB evtl liegt es vllt daran.
Es kommt auch die Meldung Anhang 48372. Tut mir echt Leid das ihr euch mit meinem Problem so lange beschäftigt.

[Bernhard Geyer]

Zitat:

Zitat von HolgerX (Beitrag 1391543)

Hmm..

@Bernhard Geyer
Wieso muss jedem der mit einer alten Delphi Version arbeitet und zufrieden ist ein NEUES Delphi versucht aufgeschwatzt zu werden?

Der Threadersteller schaut mir aber nicht danach aus als wäre er ein langjähriger D6-Verwender.
Eher ein "Oh, Da habe ich ja noch eine D6-Version "rumliegen", nehm ich mal diese" Einsteiger.

Und übrigens: Bis Ende 2016 war D6 meine langjährige Haupt-IDE.
Nach langer Umstellzeit (musste oft Nebenher laufen) bin ich froh nicht mehr mit D6 arbeiten zu müssen.
Das ist einfach nicht mehr Zeitgemäß ohne Unicode, ohne Generics, ohne for-each ohne vollständigen Aufrufstack auch bei zwischenzeitlichen WinAPI-Stack arbeiten zu müssen.

Zitat:

Zitat von HolgerX (Beitrag 1391543)

Wieso kann nicht auf die Version zu der die Frage gestellt wurde eingegangen werden?

Weil einfach das Wissen über die Einschränkungen dieser Version mehr und mehr verloren geht und mehr und mehr Lösungsvorschläge auftauchen werden die nicht mehr mit dieser Version funktionieren.

Zitat:

Zitat von HolgerX (Beitrag 1391543)

Was zahlt dir Emba für die massive Werbung? ;)

Ich bekomme 30% des Verkaufspreises dieser Start-For-Free-Version ...

Zitat:

Zitat von HolgerX (Beitrag 1391543)

Und jetzt bitte nicht (gebetsmühlenartig) wieder und wieder die (angeblichen) Vorteile von Delphi XE10 aufzählen!

Hab ich doch schon.
Hey, ich habe noch einen: Der Threadersteller braucht keine Zusatzkomponenten installieren.
Er kann GIF so verwenden ohne noch was machen zu müssen (außer die Uses-Anweisung anpassen).

Falls er Problem hat mit Der Installation deiner Komponente. Du darfst ihn dann gerne allein helfen dies in D6 installiert zu bekommen.
Mit einer neueren Delphi-Version ist sowas für GIF nicht nötig.

[Jojo18]

Zitat:

Hey, ich habe noch einen: Der Threadersteller braucht keine Zusatzkomponenten installieren.
Er kann GIF so verwenden ohne noch was machen zu müssen (außer die Uses-Anweisung anpassen).

Falls er Problem hat mit Der Installation deiner Komponente. Du darfst ihn dann gerne allein helfen dies in D6 installiert zu bekommen.
Mit einer neueren Delphi-Version ist sowas für GIF nicht nötig.

Mein Lehrer meinte zu uns das wir Delphi6 verwenden sollen oder Lazarus. Geht es denn mit Lazarus einfacher ?

[Fukiszo]

Zitat:

Zitat von Jojo18 (Beitrag 1391551)

Die Datei hat 15,6 MB

Holla die Waldfee, (...nutzt du Delphi XE 10?, Delphi 6 produziert kleinen Code...)
versuch doch lediglich den source (*.pas *.dfm *.res *.dpr) einzupacken,
ohne binär dateien (abgesehen von der *.res) (beispiel bilder, *.dcu/*.exe etc entfernen)

dann müßte die größe für einen upload ok sein.

Oder ein mini beispiel basteln wo lediglich deine gewünschte funktion vorkommt an der es happert.
Und der Link von

Zitat:

Zitat von HolgerX (Beitrag 1391543)

http://www.tolderlund.eu/delphi/

ist gut.
Da findest du die TGIF komponente samt Beispiele, auch für Delphi 6.

Grüße

[Jojo18]

Ich habe eben Lazarus gedownloadet und darauf gemacht, ich hoffe das ist kein Problem für euch Anhang 48373 :shock:

[himitsu]

Vom Grundprinzip her ist die VCL ja wie die VCL (bis Delphi 7) aufgebaut und das Laden geht in etwas in Delphi/Lazarus gleich.

Zitat:

Zitat von HolgerX (Beitrag 1391543)

Wieso muss jedem der mit einer alten Delphi Version arbeitet und zufrieden ist ein NEUES Delphi versucht aufgeschwatzt zu werden?

Das "zufrieden" hast du ihm unterstellt. :zwinker:

Weil es uns auch das Leben erleichtert
und so auch jemand helfen kann, der kein uraltes Delphi zur Hand hat, bzw. sich damit nicht auskennt.

Wenn es keinen Grund gibt das nicht zu tun ... viele wissen nicht, dass es sowas jetzt wieder gibt.
Jahrelang gab es keine kostenlosen Versionen, bzw. jeder hatte miterlebt wie sie schlagartig starben. (Personal und die Turbos)
Von Borland.de / Borland.com kommt man nicht zu Embarcadro.com und auf den Seiten der "normalen" Delphiversionen wird nur zur Trial verlinkt, aber die Starter werden "böswillig" verschwiegen.