- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
- No Voice in the Galaxy
- Luck Dragon: Asszociációs játék. :)
- bitpork: MOD Júni 28- Augusztus 2- szombat jelen állás szerint.
- laskr99: Újrakezdem a processzor és videókártya szilícium magok fotózását
- Klaus Duran: 2025 dude
- sziku69: Fűzzük össze a szavakat :)
- sh4d0w: Palpatine - A Terv
- eBay-es kütyük kis pénzért
Ú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.
Új hozzászólás Aktív témák
- Villanyszerelés
- Milyen házat vegyek?
- OLED monitor topik
- Call of Duty: Black Ops 6
- Huawei P20 Pro - profit csinál minden fotósból
- Futás, futópályák
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Kezdő fotósok digitális fényképei
- Mesterséges intelligencia topik
- Házimozi belépő szinten
- További aktív témák...
- ÁRGARANCIA! Épített KomPhone i5 14400F 32/64GB RAM RX 9060 XT 8GB GAMER PC termékbeszámítással
- Telefon felvásárlás!! iPhone X/iPhone Xs/iPhone XR/iPhone Xs Max
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Csomagfeladás Foxpost automataba XS/S/M/L/XL - 2390 Ft egységesen
- Zebra ZP505 EPL - Hőpapíros címkenyomtató
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest