Jpeg bearbeiten

[Killer]

Hallo ich möchte in mein Prog ne Art kleines Paint einbauen. Nun hab ichs schon so gemacht, dass ich die gängisten Funktionen bereits implementiert habe wie zb. spiegeln, drehen, invertieren ect.
Als Komponente benutz ich die TImage.

Das ganze funktioniert auch bei nem Bitmap, aber wie mache ich das ganze per Jpeg? Muss man da umwandeln JPeg->Bmp und nach dem Bearbeiten wieder zurück? :shock:

[Nicodius]

du must bei uses JPEG einbinden und unten zb var bild : TJpegImage

dann ganz normal alles wie bei einem bmp nur das vanvas nicht geht ;)

[Killer]

Hm das nenn ich mal ne gute Nachricht. Dann könnte ich ja die ganzen Bitmap-Funktionen ganz einfach umschreiben. Nachteil iss aber dass ich die ganzen Funktionen dann 2x habe. Kann man das auch besser lösen? Zb. ne Funktion machen, die beide vereint? Sonst hab ich wieder soviel Code-Müll :)

[iaby]

so weit ich weiß kannst du da jpeg per "assign" deiner TImage komponente zuweisen.
also:

Delphi-Quellcode:

jpeg:= TJPEG.create;
jpeg.blablabla
...
image.assign(jpeg);
jpeg.free;

habs jetzt nicht ausprobiert!
kann auch sein, das es nur mit ner TBitMap geht, weiß grad nicht mehr

gruss,
iaby

[Nicodius]

dann machs halt mit overload ;) eins für Jpeg eins für bmp

[F.W.]

Wie kann man mit TJpegImage zeichnen? Da gibts doch garkeinen Canvas! -> Wie macht ihrs dann?

Und: Kann man die Bilder auch in Dateien Speichern -> Hab kein Picture und somit auch kein SaveToFile o.ä. gesehen, als ichs mir angesehen habe!

Danke schonmal!

[sCrAPt]

Ich würde es nicht mit JPEG machen... Ich würde von Anfang an Bitmap nehmen... Und statt TImage solltest du vieleicht TPaintbox nehmen...
Evtl. musst du dann beim öffnen und speichern die Formate eben umwandeln.

http://og4all.de/s, sCrAPt

[F.W.]

Wie kann ich ein Bmp zum Jpeg bzw. andersrum umwandeln?

[sCrAPt]

JPEG -> BMP

Delphi-Quellcode:

var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.Assign(jpeg);

jpeg muss dann ein tjpegimage sein :stupid:

und andersrum:

Delphi-Quellcode:

var
  jpg: TJPEGImage;
begin
  jpg := TJPEGImage.Create;
  jpg.Assign(bmp);

bmp muss dann ein tbitmap sein :stupid:

http://og4all.de/s, sCrAPt

[F.W.]

thx!!