// die Header-Datei jpeg.hpp muss eingebunden sein void __fastcall TForm1::Button1Click(TObject *Sender) { TJPEGImage *jpg = new TJPEGImage(); try { jpg->LoadFromFile("c:Tempsq15.jpg"); jpg->CompressionQuality = 1; // 1..100 jpg->DIBNeeded(); jpg->Compress(); jpg->SaveToFile("c:Tempcompressed.jpg"); } catch ( ... ) { ShowMessage("Compression error."); } delete jpg; }
Kategorien
-
Neueste Beiträge
- [SAP] Mailversand einrichten
- [SAP EWM] SAP EWM and SAP ERP integration via CIF
- [SAP] Nutzung der ALV-Anzeige im MM-Reporting
- [Raspberry Pi 4] Raspberry Pi als DNS Server
- [Raspberry Pi] SSH aktivieren
- [Raspberry Pi] Bootoptionen in der config.txt
- [Raspberry Pi 4] Bessere Youtube-Videoperformance in Google Chrome
- [Raspberry Pi 4] Direkt von SSD booten (ohne SD-Karte)
- [ABAP] Fixkontentabelle (T030) auslesen
- [SAPUI5] SAPUI5 Entwicklung mit SAP Business Application Studio (BAS)