Forum: Multimedia
Delphi
by KodeZwerg,
12. Mai 2021
Also function FilenameToBmp(const AFilename: string; const ABmp: TBitmap): Boolean; so?
Danke fürs Lesen und Fehler erkennen!
Forum: Multimedia
Delphi
by KodeZwerg,
11. Mai 2021
Hier habe ich noch einen Code gefunden, aber wie es ausschaut machen die den gleichen Ansatz:
Imports System.Drawing.Imaging
Imports System.IO
Imports System.Runtime.InteropServices
Public Class Form1
Private WithEvents pb As New PictureBox
Private WithEvents cb As New CheckBox
Forum: Multimedia
Delphi
by KodeZwerg,
11. Mai 2021
@Michael II: Ich habe eine mini Erklärung hier gefunden, aber verstehe den Inhalt nicht so ganz. Da geht es um die Farbannäherung zweier Pixel.
Forum: Multimedia
Delphi
by KodeZwerg,
11. Mai 2021
Danke für den Test! Das schonmal vorweg. :thumb:
Anstelle auf 1x1, wäre meine Überlegung ein sinnvolles Resize erst dann durchzuführen wenn Int64 für die Berechnung nicht mehr ausreicht.
Es wurden zwar viele Zahlen in den Raum geworfen, aber wie sollte man da Sinnvoll vorgehen?...
Ein Bild besteht ja aus zwei Dimensionen, ein Int64 ist nur eine.
Was ich meine, gibt es eine logik die so...
Forum: Multimedia
Delphi
by KodeZwerg,
11. Mai 2021
@Michael II
Nun passiert da was... aber mein Ergebniss ist falsch.
function GetAvgGDIColor(const Filename: string): TColor;
var
gr: TGPGraphics;
Bmap: TGPBitmap;
col: TGPColor;
begin
Result := 0;
Forum: Multimedia
Delphi
by KodeZwerg,
11. Mai 2021
So wie ich es verstanden habe fügt sich ein RBG wert aus 3 DWORDs zusammen.
Forum: Multimedia
Delphi
by KodeZwerg,
11. Mai 2021
Danke Amateurprofi, dein Code arbeitet zwar schneller aber liefert bei mir kein Ergebnis.
Ich habe ihn gegen den Turbo von TiGü antreten lassen, siehe Anhang.
Muss ich noch eine besondere Einstellung vornehmen damit mir Dein Code einen Farbwert über 0 liefert?
Getestet mit Delphi Rio, 32-bit build, Release, unter Windows 10 64bit aktuellste patches.
Forum: Multimedia
Delphi
by KodeZwerg,
11. Mai 2021
Ja @TiGü, ich nutze das ausschließlich für das Theming Projekt aber gebe natürlich Recht das es diese "8k * 1 Farbe" Möglichkeit irgendwie geben könnte. Sinnfrei aber ja.
Auf Int64 ist es bereits umgestellt, aber auch das hat seine Grenzen.
Mir fehlt da die Erfahrung wie man es "abfangen" könnte damit die Berechnung einfach ab einer gewissen Zahl aufhört weiterzuzählen, würde es aber gerne zur...
Forum: Multimedia
Delphi
by KodeZwerg,
10. Mai 2021
Danke für diesen Hinweis, mit sowas habe ich nicht gerechnet!
Könnte eine Änderung auf var r, g, b: Int64; da helfen?
Ein paar ms?? Du willst mich jetzt veralbern, das Ding ist enorm schnell! (habe es jetzt nicht gebencht, vorher konnte ich noch zur Tasse greifen, nun ist es bereits nach dem anklicken ausgeführt, Hammer!) Bei mir sind die Werte auch passend/stimmen mit ur-version plus...
Forum: Multimedia
Delphi
by KodeZwerg,
10. Mai 2021
Der erste code ist aus seinem blog nur halt für mich angepasst.
Der zweite code ist 1:1 aus seinem blog, es sind 3 teile die aufeinander aufbauen.
//edit
ich bin ja auch noch nicht ganz wach, hallo dummzeuch, DANKE für deine blog!!
@TiGü: WAHNSINN!! Danke für code-optimierung plus das einarbeiten des dritten codes!!
Forum: Multimedia
Delphi
by KodeZwerg,
10. Mai 2021
Guten morgen Gemeinde!
Ein Neuer Tag, ein neues problem :-)
Ich versuche aus einem Bitmap eine Durchschnittsfarbe zu ermitteln.
Bei dummzeuch wurde ich zwar fündig was mir bereits sehr half es zu beschleunigen, aber seine letzte Optimierung bekomme ich einfach nicht hin.
Hier ist das was ich aus seinem guten Beispiel #2 gemacht habe, es funktioniert, aber doch recht langsam:
function...