AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

jpeg/jpg bearbeiten

Ein Thema von endeffects · begonnen am 30. Mär 2007 · letzter Beitrag vom 30. Mär 2007
Antwort Antwort
endeffects

Registriert seit: 27. Jun 2004
450 Beiträge
 
#1

jpeg/jpg bearbeiten

  Alt 30. Mär 2007, 13:16
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:
  var jpg: TJPEGImage;
  begin
    jpg := TJPEGImage.Create;
    try
      jpg.LoadFromFile(SourceFile);
      .....
      ??????????????
      .....
      jpg.SaveToFile(SourceFile);
    finally
      jpg.Free
    end;
  end;
kann mir vielleicht jemand sagen wie ich nun vorzugehen habe? *ratlosguck*

mfg
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#2

Re: jpeg/jpg bearbeiten

  Alt 30. Mär 2007, 13:20
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?
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
endeffects

Registriert seit: 27. Jun 2004
450 Beiträge
 
#3

Re: jpeg/jpg bearbeiten

  Alt 30. Mär 2007, 13:26
ja genau, so soll das ablaufen =)
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#4

Re: jpeg/jpg bearbeiten

  Alt 30. Mär 2007, 13:27
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.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
endeffects

Registriert seit: 27. Jun 2004
450 Beiträge
 
#5

Re: jpeg/jpg bearbeiten

  Alt 30. Mär 2007, 13:30
es geht ja nur darum das man das dann auf dem ausdruck erkennt
und entsprechend auswerten kann
  Mit Zitat antworten Zitat
LizardKaiser

Registriert seit: 18. Feb 2007
Ort: Kassel
25 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: jpeg/jpg bearbeiten

  Alt 30. Mär 2007, 14:17
Hilfe: TBitmap, TBitmap.Assign, Canvas.Pen
  Mit Zitat antworten Zitat
Namenloser

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

Re: jpeg/jpg bearbeiten

  Alt 30. Mär 2007, 14:51
Zitat von LizardKaiser:
TBitmap.Assign
Man kann (sofern man die unit jpeg eingebunden hat) auch direkt ein jpeg in ein bitmap laden und sich so das assign sparen. (geht mit gif genau so)
  Mit Zitat antworten Zitat
Benutzerbild von TeronG
TeronG

Registriert seit: 19. Jul 2004
Ort: München
960 Beiträge
 
Delphi 2007 Professional
 
#8

Re: jpeg/jpg bearbeiten

  Alt 30. Mär 2007, 15:16
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 ^^
龍 Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#9

Re: jpeg/jpg bearbeiten

  Alt 30. Mär 2007, 15:24
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
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
Antwort Antwort


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 00:46 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