Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Bild schärfen ??? (https://www.delphipraxis.net/115625-bild-schaerfen.html)

SimStar001 15. Jun 2008 11:34


Bild schärfen ???
 
Hallo, ich hoffe mir kann jemand mit meinem problem helfen


und zwar habe ich ein Imae gezeichnet, welches ich dann entweder vergrößern, oder verkleinern will. ich mache dies über image1.strech := true;


allerdings ist es danach sher verschwommen bzw unscharf. kann man dieses bild irgendwie schärfen? wer hat ne idee oder nen code?!



dankö!

toms 21. Jun 2008 07:07

Re: Bild schärfen ???
 
Hallo,

"Interpolating Bitmap Resampler" beschreibt einige Methoden, um ein Bild zu strecken.

SimStar001 21. Jun 2008 13:05

Re: Bild schärfen ???
 
danke für den link, aber leider sinde die dateien nicht mehr vorhanden
:( :(

toms 21. Jun 2008 20:00

Re: Bild schärfen ???
 
Zitat:

Zitat von SimStar001
danke für den link, aber leider sinde die dateien nicht mehr vorhanden
:( :(


sind z.T noch auf einzelnen Mirrors vorhanden.

z.B resample.zip (Full Source)

SimStar001 24. Jun 2008 08:25

Re: Bild schärfen ???
 
vielen dank, nun brauche ich nur noch das PACKAGE VCL30, das habsch net und deshalb will der net compilieren!


woher bekomme ich das package?

gammatester 24. Jun 2008 08:42

Re: Bild schärfen ???
 
Zitat:

Zitat von SimStar001
vielen dank, nun brauche ich nur noch das PACKAGE VCL30, das habsch net und deshalb will der net compilieren!


woher bekomme ich das package?

Du brauchst das Package nicht. Schalt in den Projektoptionen "Build with runtime packages" (oder wie das in Deiner IDE heißt) aus. Oder setze in der DOF-Datei "UsePackages=0".

Gruß Gammatester

roga 24. Jun 2008 09:15

Re: Bild schärfen ???
 
Erstmal ein großes Hallo an Alle! Bin noch recht "neu" hier, aber ein jahrelanger und begeisterter Besucher dieses Forums. Vielleicht kann ich einiges beisteuern. Programmiere rein hobbymäßig seit Delphis-Kinderschuhen und bin eigentlich nie davon los gekommen...

Versuchs mal hiermit:

Bitmap erstellen und das Bild darauf zeichnen.

Delphi-Quellcode:
 
  SetStretchBltMode(Image.Canvas.Handle, HALFTONE);
  StretchBlt(Image.Canvas.Handle, 0, 0, NewWidth, NewHeight,
             Bitmap.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, SRCCOPY);
Ist zwar nicht die beste Lösung, liefert aber gute Resultate.

Gruß roga

Zitat:

Warum immer gleich mit Kanonen auf Spatzen schießen!

DeddyH 24. Jun 2008 09:20

Re: Bild schärfen ???
 
Hallo roga, Willkommen in der DP :dp: ,

würdest Du bitte Quelltext immer in Delphi-Tags einschließen?
Delphi-Quellcode:
Code

toms 24. Jun 2008 14:10

Re: Bild schärfen ???
 
Weitere sind zu finden im efg2 Lab, Resampling Sektion.


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:14 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz