- Honor Magic6 Pro - kör közepén számok
- Mindent megtudtunk az új Nokia 3210-ről
- Android alkalmazások - szoftver kibeszélő topik
- Yettel topik
- Poco X6 Pro - ötös alá
- Samsung Galaxy S24 - nos, Exynos
- iPhone topik
- Megérkezett a Google Pixel 7 és 7 Pro
- Fotók, videók mobillal
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
Hirdetés
-
A franciáknak elege van abból, hogy minden gyerek mobilozik
it Vissza akarják szorítani a gyerekek és tinédzserek közösségi média- és okostelefon-használatát.
-
Ilyen lesz a SteamWorld Heist II
gp A folytatás a tervek szerint a nyár folyamán, pontosabban augusztus elején érkezik.
-
Spyra: akkus, nagynyomású, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
Új hozzászólás Aktív témák
-
vz12
tag
válasz Tomi_78 #2134 üzenetére
Nos, nem nagyon értek hozzá, de nem gondolnám, hogy csupán property-k állítgatásával újraÉPÍTI (konvertálja) a kép tartalmát, ezért menthette az eredeti képet. A property-k a vizualitásra hatással lehetnek, de BELÜL a kép szerintem NEM változik.
Ezen link alapján (ott "
procedure TForm1.Button2Click(Sender: TObject);
") írtam egy egyszerű működő példát Delphi-ben, még a képernyőn sem jelenítettem meg semmit (a gombon kívül), csak gombnyomásra legyártja egy kép kicsinyített mását a méretarány megtartásával.
1280x905 helyett 100x71 pixel.
672 Kb helyett 5 Kb.
Ja, a példa JPG-vel dolgozik, tehát JPG-ből JPG-t csinál (a köztes állapot BMP).
Ha fontos a PNG, azt Te nyomozd ki.procedure TForm1.Button1Click(Sender: TObject);
var Source: TJPEGImage; Dest,Temp: TBitmap;
begin
Source:=TJpegImage.Create;
try
Dest:=TBitmap.Create;
try
Temp:=TBitmap.Create;
try
Source.LoadFromFile('VALAMI.JPG');
Source.DIBNeeded;
Dest.Assign(Source);
Temp.width:=100;
Temp.height:=Round(Source.height*(Temp.width/Source.width));
Temp.Canvas.StretchDraw(Rect(0,0,Temp.width,Temp.height), Dest);
Source.Assign(Temp);
Source.SaveToFile('PROBA.JPG');
finally
Temp.Free;
end;
finally
Dest.Free;
end;
finally
Source.Free;
end;
end;
A "Temp.SetSize()" nálam nem működött, azért változtattam meg.
Olyan sok képformátumot NEM kezel a Delphi/Lazarus, tehát egy "általános" képkonvertáló program írására a fenti egyszerű módszerrel nem lehet messzire jutni.
Kép méretezésre jó lehet JPG, BMP esetén.[ Szerkesztve ]
Új hozzászólás Aktív témák
- Honor Magic6 Pro - kör közepén számok
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Építő/felújító topik
- Mindent megtudtunk az új Nokia 3210-ről
- Spórolós topik
- Villanyszerelés
- PlayStation 5
- Android alkalmazások - szoftver kibeszélő topik
- Mibe tegyem a megtakarításaimat?
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- További aktív témák...
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen