![]() |
jpeg/jpg bearbeiten
Hallo,
ich möchte gern eine jpg datei in meinem programm laden und am unteren ende des bildes eine bildzeile mit einem farbcode hinzufügen. anschließend möchte ich die datei wieder speichern. wirklich weit bin ich bisher allerdings nicht gekommen:
Delphi-Quellcode:
kann mir vielleicht jemand sagen wie ich nun vorzugehen habe? *ratlosguck*
var jpg: TJPEGImage;
begin jpg := TJPEGImage.Create; try jpg.LoadFromFile(SourceFile); ..... ?????????????? ..... jpg.SaveToFile(SourceFile); finally jpg.Free end; end; mfg |
Re: jpeg/jpg bearbeiten
was verstehst du unter einem farbcode? willst du das bild um ein pixel in der höher erweitern und in der untersten Pixelreihe was einfärben?
|
Re: jpeg/jpg bearbeiten
ja genau, so soll das ablaufen =)
|
Re: jpeg/jpg bearbeiten
Da ein JPEG aber nicht mit Zeilen/Spalten gespeichert wird dürfte das unmöglich sein. Denn durch kompression kann es passieren das deine Farbe dann in die oberen Zeilen übergeht.
|
Re: jpeg/jpg bearbeiten
es geht ja nur darum das man das dann auf dem ausdruck erkennt
und entsprechend auswerten kann |
Re: jpeg/jpg bearbeiten
Hilfe: TBitmap, TBitmap.Assign, Canvas.Pen
|
Re: jpeg/jpg bearbeiten
Zitat:
|
Re: jpeg/jpg bearbeiten
Das Malen sollte kein Problem sein ...
Höhe des Bildes "herausfinden" (TBitmap.Height), um eins erhöhen und dann letzte zeile einfach mit TBitmap.ScanLine[höhe-1] "einlesen" und bearbeiten. (Wenn Zeile einfarbig sein soll ist .Pen warscheinlich einfacher als .ScanLine) Nur befürchte ich (wie auch SirThornberry schon schrieb), daß die Kompression das Ergebniss verfälschen wird. Einfach mal Testen (evtl. auch mal mehrere Zeilen anfügen) oder auf BMP umsteigen oder so ^^ |
Re: jpeg/jpg bearbeiten
Hi,
Hab es getestet. Er will es so das jeder Pixel zufällig um einen Farbwert nach oben oder unten geändert wird. Also von (255,255,255) z.B auf (254,254,254) und das Problem war wie zu erwarten natürlich die jpg-Kompression. Gruß Neutral General |
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:16 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz