Bild verkleinern

[storm1988]

Hi

Ich möchte gern mit meinem Programm einen Screenshot von derzeitigen Bildschirm machen um ihn anschließend in einem TFileStream per idtcp Protokoll verschicken. Jedoch hab ich es bis jetzt nur geschafft, dass Bild unverändert zu verschicken und desshalb beläuft sich die größe immer auf ca 5MB (1400x1050).
Nun meine Frage, wie kann ich jetzt am besten jetzt verkleiner bzw. kompremieren.

Zum Screenshot machen , benutz ich übrigens diesen Source: Link

Mfg st0rm

[Matze]

Hallo!

Ein Bitmap ist dafür gänzlich ungeeignet, wandel es am besten in JPEG um, da kannst du die Kompression auch einstellen (imho: JPEG.CompressionQuality): klick.

[storm1988]

Thx für den tip

Doch wie kann ich jetzt noch das jpeg verkleinern???

Wie man es komprimiert hab ich ja schon rausgefunden:

Delphi-Quellcode:

            jpeg.CompressionQuality := 50;
jpeg.Compress;

mfg st0rm

[Matze]

Hm, was willst du denn noch kleiner machen? Die Auflösung wohl nicht, dann erkennt man ja nichts mehr. Wie groß ist die Datei denn nun?

[storm1988]

Die Datei wär jetzt eh schon klein genug (100KB) jedoch hat sie noch immer eine Auflößung von 1400 x 1050.
Und jetzt wärs halt noch fein wenn ich das Bild auf eine Auflößung von 800 x 600 bringen könnt.

Mfg st0rm

[Hador]

Probiers mal mit canvas.stretchdraw

[Matze]

Benutze doch mal die Suche: Klick

Doch kannst du Texte dann kaum mehr lesen, nur nebenbei. Klar, wenn das Screenshots aus Spielen sind, macht das nichts aus.

[storm1988]

Ok danke für die Hilfe

Mfg st0rm