Bild in Graustufen umwandeln

[Neutral General]

Zitat von Celi:

Danke für den Hinweis, doch leider ändert auch das nichts an meinem Problem.

Poste mal den Code wie er jetzt nach der Änderung ist.
Du kannst den Code auch hier als Text einfügen mit [delphi]-Tags drum rum. Dann hast du hier auch Syntax Highlighting

[Redeemer]

Mir ist das ganze sowieso suspekt. Mal ein paar Dinge:

• Als erster Post im Forum ein Post zum Thema Zeigerarithmetik ist seltsam.
• Totengräberei.
• Warum ^TRGBTriple und nicht PBytes wie jeder normale Mensch es nutzen würde?
• Was hat die JPEG-BMP-Methode im Screenshot suchen? (JPEG als Graustufen speichern ist extrem ineffizient. Korrekt wäre PNG Typ 0.)
• Assign ohne var halte ich für kritisch.
• Assign auf sich selbst ergibt keinen Sinn.
• Graustufen produziert ein riesiges Speicherleck.
• Was soll das mit dem Pixelformat überhaupt bringen?
• Inc müsste wenn überhaupt als zweiten Parameter 3 haben oder nicht?

[Darlo]

Zitat von Redeemer:

Mir ist das ganze sowieso suspekt. Mal ein paar Dinge:

• Als erster Post im Forum ein Post zum Thema Zeigerarithmetik ist seltsam.
• Totengräberei.
• Warum ^TRGBTriple und nicht PBytes wie jeder normale Mensch es nutzen würde?
• Was hat die JPEG-BMP-Methode im Screenshot suchen? (JPEG als Graustufen speichern ist extrem ineffizient. Korrekt wäre PNG Typ 0.)
• Assign ohne var halte ich für kritisch.
• Assign auf sich selbst ergibt keinen Sinn.
• Graustufen produziert ein riesiges Speicherleck.
• Was soll das mit dem Pixelformat überhaupt bringen?
• Inc müsste wenn überhaupt als zweiten Parameter 3 haben oder nicht?

Du hast unter Deinen Bulletpoints Dein Fazit vergessen, oder war das schon im ersten Satz?!

[Neutral General]

Zitat von Redeemer:

Mir ist das ganze sowieso suspekt. Mal ein paar Dinge:

• Warum ^TRGBTriple und nicht PBytes wie jeder normale Mensch es nutzen würde?

Ich gebe dir da bei allen Punkten Recht, aber TRGBTriple ist ein Record extra für diesen Zweck.
Von daher würde ich dir da widersprechen.

[Redeemer]

Zitat von Neutral General:

Zitat von Redeemer:

Mir ist das ganze sowieso suspekt. Mal ein paar Dinge:

• Warum ^TRGBTriple und nicht PBytes wie jeder normale Mensch es nutzen würde?

Ich gebe dir da bei allen Punkten Recht, aber TRGBTriple ist ein Record extra für diesen Zweck.
Von daher würde ich dir da widersprechen.

Aber TRGBTriple ist ein einzelnes Element. Ich würde ja eher einen Array-Typ nehmen. Zur Not eben Vcl.Imaging.GIFImg.PBGRArray oder so.

[Blup]

• In "Graustufen()" gehört das "end" der äußeren "for"-Schleife hinter das "end" der inneren "for"-Schleife.
  (Alles ordentlich einrücken, dann passieren solche Fehler nicht.)
• In "Graustufen()" "bitmap.Assign(bitmap);" ist Unsinn und eine mögliche Fehlerquelle.
• In "B_GraustufenClick() zum Schluss "image1.Invalidate" aufrufen, um die Änderung sichtbar zu machen.
• Das Setzen des Pixelformats gehört eher in "Graustufen()".

[bernau]

Zitat von Redeemer:

Mir ist das ganze sowieso suspekt. Mal ein paar Dinge:

• Assign ohne var halte ich für kritisch.

Warum? Das musst du mir erklären.

[Dennis07]

Zitat von Redeemer:

Als erster Post im Forum ein Post zum Thema Zeigerarithmetik ist seltsam.

????

Zitat von Redeemer:

Warum ^TRGBTriple und nicht PBytes wie jeder normale Mensch es nutzen würde?

Wattt? Wenn "jeder normale Mensch" für dich nur du selber bist, dann vielleicht. Aber alle "normalen Menschen" die ich kenne benutzen TRGBTriple.

Zitat von Redeemer:

Assign ohne var halte ich für kritisch.

Wiebitte? Was genau meinst du?

Ansonsten kann ich dir nur zustimmen. Aber wäre wirklich nett, wenn du mir mal etwas Erleuchtung bringst, ich blicke da manchmal nicht recht was du sagen willst.

[bernhard_LA]

kleine Ergänzung

obige beiträge zielen immer auf DELPHI + VCL Framework ab
es gibt aber noch die Option DELPHI + FMX Framework ,

Ein Demo Projekt um Schwarz- Weiss Bilder zu erzeugen gibt es hier : https://github.com/ImageProcessingFMX/SimpleDemo
Der Code funktioniert dann auch unter LINUX etc.

[EWeiss]

Zitat:

Schwarz- Weiss Bilder

Was denn "Schwarz- Weiss" oder Graustufen? zumindest sind es 256 werte nicht nur 2 ($FFFFFF + $F000000)

Und GetPixel\SetPixel? Kein Ahnung wie schnell das unter LINUX\FMX ist jedenfalls unter Windows um einiges lahmer.
Das sollte auch unter Linux laufen oder kennt Linux kein ASM sollte mich doch schwer wundern.

Delphi-Quellcode:

function TSkinEngine.Rgb2Gray(RGBValue: COLORREF): COLORREF; stdcall;
asm
  movzx   edx, al
  imul    edx, 19595  //Red
  movzx   ecx, ah
  imul    ecx, 38470  //Greean
  shr     eax, 16
  imul    eax, 7471   //Blue
  add     eax, ecx
  add     eax, edx
  shr     eax, 16
  mov     ah, al
  shl     eax, 8
  mov     al, ah
end;

und FMX.

grusss