AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Artefakte bei Verkleinerung animierter GIFs

Artefakte bei Verkleinerung animierter GIFs

Offene Frage von "GPRSNerd"
Ein Thema von GPRSNerd · begonnen am 12. Mär 2013 · letzter Beitrag vom 15. Mär 2013
Antwort Antwort
Benutzerbild von GPRSNerd
GPRSNerd

Registriert seit: 30. Dez 2004
Ort: Ruhrpott
239 Beiträge
 
Delphi 10.4 Sydney
 
#1

Artefakte bei Verkleinerung animierter GIFs

  Alt 12. Mär 2013, 13:34
Hi,

ich zeige in einer Applikation aus dem Internet heruntergeladene GIFs an (Niederschlagsradarbilder). Die GIFs sind teilweise animiert und größtenteils im Format GIF89A und werden durch Delphi XE3 durch den Typen TGIFImage nativ unterstützt. Die Anzeige der Grafiken in einem TImage klappt auch soweit, es sei denn die animierten GIFs werden in der Anzeige verkleinert, dann treten progressiv schwarze Artefakte bei der Anzeige der Pages auf. Wird die Grafik hingegen in Originalgröße oder vergrößert dargestellt, so treten diese Artefakte nicht auf, siehe Screenshots.

Hier der relevante (sehr vereinfachte) Code, mit dem ich die Grafiken lade und anzeige:

Delphi-Quellcode:
procedure TForm1.bOpenClick(Sender: TObject);
begin
  if dlgOpen1.execute then
  begin
    i1.Picture.LoadFromFile(dlgOpen1.FileName);
    lType.Caption := i1.Picture.Graphic.ClassName;
    if i1.Picture.Graphic.ClassType = TGIFImage then
    begin
      with (i1.Picture.Graphic as TGIFImage) do
      begin
        Animate := True;
        AnimateLoop := glContinously;
        AnimationSpeed := 100;
      end;
    end;
  end;
end;
Weiss jemand, wodurch die Artefakte auftreten und ob man diesen Effekt irgendwie umgehen kann?
Miniaturansicht angehängter Grafiken
2013-03-12_133135_100.png   2013-03-12_133053_verkleinert.png  
Stefan
  Mit Zitat antworten Zitat
Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#2

AW: Artefakte bei Verkleinerung animierter GIFs

  Alt 12. Mär 2013, 13:43
Animierte Gifs enthalten meist Differenzbilder.

Ich vermute, dass beim Runterskalieren die Differenzbilder einzeln herunterskaliert werden, wodurch die Artefakte auftreten.

Die Lösung sehe ich darin, die zusammengefügten Einzelbilder der Animation in voller Auflösung vorzuberechnen, und diese dann anschießend herunterzuskalieren. Wie das mit der TGifImage-Komponente von Delphi XE3 geht, kann ich dir leider nicht sagen...
  Mit Zitat antworten Zitat
Benutzerbild von BUG
BUG

Registriert seit: 4. Dez 2003
Ort: Cottbus
2.094 Beiträge
 
#3

AW: Artefakte bei Verkleinerung animierter GIFs

  Alt 12. Mär 2013, 14:12
GIF benutzt eine Pallette, also indizierte Farben. Wenn du die Einzelbilder in RBG(A)-Farben umwandelst, könnte das Skalieren besser klappen. Ich weiß aber nicht, in wie weit sowas von der Komponente bereits gemacht wird (eher nicht).
Intellekt ist das Verstehen von Wissen. Verstehen ist der wahre Pfad zu Einsicht. Einsicht ist der Schlüssel zu allem.
  Mit Zitat antworten Zitat
Benutzerbild von GPRSNerd
GPRSNerd

Registriert seit: 30. Dez 2004
Ort: Ruhrpott
239 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Artefakte bei Verkleinerung animierter GIFs

  Alt 15. Mär 2013, 12:44
Danke für die Hints, es scheint sich um ein Problem mit "optimierten" Differential-GIFs zu handeln.
Auf dieser Webseite kann man GIFs mit mehreren Frames/Pages "dekompilieren" lassen, einmal mit Entfernen der Optimierung und einmal ohne.
Ohne Entfernen der Optimierung kommen Frames raus, die den Angezeigten ähneln, siehe Screenshots.
Da gibt es wohl einen Bug beim Anzeigen, den ich wohl in Embarcadero's QC mal einstellen werde.
Miniaturansicht angehängter Grafiken
frame-2_mit-opt.jpg   frame-2_ohneopt.jpg  
Stefan

Geändert von GPRSNerd (15. Mär 2013 um 12:47 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz