GetRValue, GetBValue und GetGValue ...

[cYaONE]

Servus!

Wisst ihr zufällig für was GetRValue, GetBValue und GetGValue da sind und durch was man sie ersetzen kann?

Danke schonmal!

[Gast]

Um RGB-Farbwerte in Einzelteile zu zerlegen.

Dieser Thread gehoert im uebrigen unter WinAPI ... (Gruss an die Mods)

[cYaONE]

und wie kann man das ganze ersetzen?

[Alexander]

Ich verstehe zwar irgendwie deine Frage ncit wirklich (was soll ersetzt werden?), aber vielleicht hilf dir das hier:
    label1.Caption := IntToStr(GetRValue(Image1.canvas.pixels[x,y]));

[cYaONE]

Durch was kann ich die Funktionen GetRValue, GetBValue und GetGValue ersetzen?

Das Problem: Ich kann sie über die CLX nicht nutzen

[Gast]

Assembler-Routinen. Wie sind die Bytes eines Pixel im Speicher bei dir angeordnet? Ich gehe mal von 24bit aus. Aber welche Reihenfolge haben RRGGBBAA oder AABBGGRR???

[CalganX]

Hi,
Eigentlich ganz simpel. Du erhälst die Farbe in DWORD und konvertierst das einfach in einen Integer oder ähnliches. Ggf. musst du ein wenig shiften:

Delphi-Quellcode:

Red := Integer(rgb);
Green := Integer(rgb shr 8);
Blue := Integer(rgb shr 16);

Chris

PS: Im Übrigen würde ich das eher mal nach Multimedia verschieben (hat was mit Grafik zu tun; Gruß an die Mods und an dReM2nUtD3yZYpRco7D6ZOA)!

[-Amazeroth-]

Dem Titel nach zu urteilen eher nach WinAPI, Gruß an Chakotay
Allerdings weiß der Fragesteller offenbar selbst noch nicht so genau, was er will

@Chakotay, deine Methode ist u.U. sehr langsam und beachtet nicht, in welche Richtung die Pixel ausgerichtet sind. Das muß man vorher wissen, daher meine Frage. ZB Speichern BMPs die Pixel genau in umgekehrter Reihenfolge von PNGs ...

[CalganX]

Hi,
ich möchte nur bemerken, dass Borland in seinen Funktionen das nicht viel anders machen. Aber du scheinst ja eine andere Funktion zu verwenden. Daher denke ich, dass du mich eines besseren belehren kannst.

Chris

PS: Um den Streitereien ein Ende zu machen würde ich das ganze einfach nach Internet / IP / LAN verschieben... Oder eher nach Sonstiges.

[cYaONE]

Vielen Dank! Ihr habt mir sehr geholfen