Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Rechteck auf JPEG / TImage zeichnen und als JPEG speichern (https://www.delphipraxis.net/145269-rechteck-auf-jpeg-timage-zeichnen-und-als-jpeg-speichern.html)

Windwalker 28. Dez 2009 08:57


Rechteck auf JPEG / TImage zeichnen und als JPEG speichern
 
Hallo,

ich habe ein Formular, welches ein JPEG-Bild in ein TImage einliest.
Nun möchte ich eine Funktion entwerfen, mit der ich bestimmte Teile auf dem Bild mit einem roten Rahmen markieren und das Ganze dann als neues JPEG speichern kann.

Ein Rechteck kann ich ja mittels eines Canvas zeichnen, aber wie kann ich dann das Canvas-Objekt mit dem darunterliegenden Bild kombinieren und als neues JPEG speichern?

Danke für die Hilfe!

Matze 28. Dez 2009 09:29

Re: Rechteck auf JPEG / TImage zeichnen und als JPEG speiche
 
Hallo, du könntest mit einem TJPEGImage (uses JPEG) arbeiten und darauf zeichnen. Das kannst du sehr leicht als JPG speichern und per Assign, soweit ich weiß, auf dem TImage darstellen.

Windwalker 21. Jan 2010 14:08

Re: Rechteck auf JPEG / TImage zeichnen und als JPEG speiche
 
Hallo,

nachdem ich die letzten Wochen an einigen anderen Dingen gearbeitet habe, ist das nun wieder aktuell.

Ich orientiere mich in etwa an diesem Thread.

Jedoch sind mir die Abläufe und die benötigten Komponenten noch nicht richtig klar, vielleicht könnt ihr mir ein wenig Licht ins Dunkel bringen.

Ich möchte folgendes machen:

- Ein JPEG Image laden, dieses wird verkleinert dargestellt, da es größer als der Monitor ist.
- Mit der Maus einen rechteckigen Rahmen ziehen, um einen Bereich zu markieren
- das Ganze wieder als JPEG speichern.

Habe ich letztendlich zwei Objekte? Eines, welches verkleinert dargestellt wird, auf welchem der User auf dem Bildschirm zeichnet? Und ein nicht sichtbares, welches die Original-Größe hat und wo der Rahmen in tatsächlicher Größe auch gezeichnet und schließlich speichert wird?

Wenn ihr mir sagen könntet, in welches Objekte ich mein JPEG lade, wie ich sie einander mit "Assign" oder "Canvas.Draw" zuweise, würdest ihr mir sehr helfen!

Danke,
Sascha.


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:49 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-2025 by Thomas Breitkreuz