The following Attila Pergel wrote. Feel free to use...

c++ function
This procedure resizes the image proportionally. The ratio of image width is adjusted.
Boolean JpegResizeWithScale(const UnicodeString SrcFileNamem, const UnicodeString DestFileName,int NewWidth);
SrcFileNamem: Souce file name
DestFileName: Destenation file name
NewWidth: New file width size
Boolean : if it succeeds in scaling the result is true otherwise false

... #include <Vcl.Imaging.jpeg.hpp> ... Boolean JpegResizeWithScale(const UnicodeString SrcFileNamem, const UnicodeString DestFileName,int NewWidth){ TBitmap *bmp=NULL; TJPEGImage* jpg=NULL; Double scale; jpg = new TJPEGImage; UnicodeString bbb; try{ jpg->LoadFromFile(SrcFileNamem); Double OrigWidth; Double OrigHeight; Double Diver; Double NewHeight; OrigWidth=jpg->Width; OrigHeight=jpg->Height; Diver=OrigWidth/OrigHeight; NewHeight=NewWidth/Diver; bmp = new TBitmap; bmp->Width = int(NewWidth); bmp->Height= int(NewHeight); bmp->Canvas->StretchDraw(bmp->Canvas->ClipRect, jpg); jpg->Assign(bmp); jpg->SaveToFile(DestFileName); free(bmp); free(jpg); return (true); } catch (Exception &exception) { if(bmp!=NULL){ free(bmp); } if(jpg!=NULL) free(jpg); } return (false); }

Könyv

• Véletlen Könyv szerzői oldala

DevZone

• Objektum felismerés - Mozgás érzékelés

Products

• Fej, arckitakarás, maszkolás program

• Rendszámtábla felismerő és olvasó SDK

• MyNTFSDataRecover

• MyImageDataRecover

• MyFFVideoConverter

• MyFF YoutubeDownloader

• FFmpeg special build

szakterületek

• Delphi programozás

• C, C++ programozás

• Web programozás

• Egyedi OS programozás

referenciák

• Pénzügyi rendszerek
• Médiaszerver, videó szerver
• Linux
• Web
• Szolgáltatás

hasznos eljárások, függvények

Linkek

Web-Link Promóciós Katalógus
hálózati forgalom
MyFFVideoConverter stat