TImage Bild in JPG

Hux · Beiträge: 171

Hi Leutz, wie
kan ich ein Bild, das im TImage geladen ist als JPG speichern? (Ohne es danch zu konvertieren?)

Lossy eX · Beiträge: 1048 Erhaltene Danke: 4

Bitte was möchtest du? Wenn es als jpeg speicherst dann konvertierst du es doch?

_________________
Nur die Menschheit ist arrogant genug, um zu glauben sie sei die einzige intelligente Lebensform im All. Wo nicht mal das nachhaltig bewiesen wurde.

Hux · Beiträge: 171

Ich meine es sofort als JPG speichern...
Ich will es nicht erst als BMP speichern, Konvertieren und dann das BMP löschen...
Mit der Frage meinte ich, ob es eine schnellere Methode gibt Jpgs zu speichern...

Trotzdem danke für deine Hilfe...

Da Hux

Lossy eX · Beiträge: 1048 Erhaltene Danke: 4

Ja klar geht das. Warum sollte das nicht gehen.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
  jpg: TJPEGImage;
begin
  jpg := TJPEGImage.Create;
  try
    jpg.Assign(Image.Pictute.Bitmap);

    jpg.CompressionQuality := 95;
    jpg.SaveToFile(...);
  finally
    jpg.Free;
  end;
end;

Das sollte genügen.

_________________
Nur die Menschheit ist arrogant genug, um zu glauben sie sei die einzige intelligente Lebensform im All. Wo nicht mal das nachhaltig bewiesen wurde.

F34r0fTh3D4rk · Verfasst: Do 01.12.05 17:08

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

uses
  ...,jpeg;

procedure Form1.JPGSave;
var
  jpg: TJPEGImage;
begin
  jpg := TJPEGImage.Create;
  try
    jpg.Assign(Image1.Picture.Bitmap);
    jpg.CompressionQuality := 100;
    jpg.SaveToFile('C:\test.jpg');
  finally
    jpg.Free;
  end;
end;

ist 100 maximum ? (hab nen kleinen tippfehler beseitigt), warum nimmst du 95, hat das tiefere gründe ?

Lossy eX · Beiträge: 1048 Erhaltene Danke: 4

Ja 100 ist das Maximum und 95 hat auch einen tieferen Sinn. Mitunter ist es so, dass die Bilder bei 100 so verdammt groß werden, dass es schon fast verboten gehört. Und 95 ist da einfach das Maximum an Qualität bei verträglicher Dateigröße.

_________________
Nur die Menschheit ist arrogant genug, um zu glauben sie sei die einzige intelligente Lebensform im All. Wo nicht mal das nachhaltig bewiesen wurde.

Hux · Beiträge: 171

Hi,

danke! Es hat funktioniert...

Der Hux

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme