5 respuestas en este tema

[sergiocapillera2013]

Hola nuevamente, quiero saber si alguien puede ayudarme con el código que no me deja pasar a escala de grises mi imagen bmp , éste es el código:

delphi

procedure TForm1.Button2Click(Sender: TObject);
var
   bmp: TBGRABitmap;
   p: PBGRAPixel;
   n: integer;
   mediana:integer;
 
begin
     bmp := TBGRABitmap.Create('image.png');
     p := bmp.Data;
     for n := bmp.NbPixels-1 downto 0 do
     begin
         // p^.red := not p^.red;  //invert red canal
          //inc(p);
          mediana:=round((p^.red+p^.green+p^.blue)/3);
          p^.red:=mediana;
          p^.green:=mediana;
          p^.blue:=mediana;
 
 
     bmp.InvalidateBitmap;  //note that we have accessed directly to pixels
     bmp.Draw(Canvas,0,0,True);
     bmp.Free;
 
end;

Me salta error en  TBGRABitmap; Que no está bien declarado o que falta declarar ¿Cómo lo declaro en Lazarus?
Saludos, espero respuesta a la brevedad.

[Delphius]

Hola,
He editado tu mensaje para añadir las etiquetas y formato adecuado al código. Observa como se resalta ahora.
Además he alterado esas horrorosas mayúsculas. No nos grites, ¡te leemos fuerte y claro! Por favor respeta las normas (has faltado a la 2da por empezar), ten en cuenta las sugerencias y recomendaciones para postear y ahora te voy a pedir que empieces a hacer uso de las etiquetas.

Se que has comenzado con mal pie. No lo tomes como un castigo, simplemente es un pedido que hacemos para mantener las cosas en órden.

Veo que recién aclaras que se trata de Lazarus. En algunas cosas Lazarus es diferente a Delphi, y el truco que yo había compartido es exclusivo para Delphi.
No dispongo de demasiado tiempo en estas horas, pero en cuanto pueda veré en como asesorarte. Yo dispongo de Lazarus, en mi partición Linux,aunque no lo he tanteado suficiente.

Por lo pronto me surgen dudas. ¿Ese es tu código o lo sacaste de algún lado? Si no es tuyo, deberías indicarnos donde lo conseguiste... esto puede ayudar a determinar efectivamente de que va el problema. ¿Cuáles son exactamente los errores que te han surgido?

Por lo que estuve consultado en la ayuda, a vista rápida, TBGRABitmap es una clase que trabaja con nivel de transparencias, por lo que no se trata del esquema RGB convencional sino que se añade el canal alfa.
El esquema interno dice que cada pixel está compuesto por 4 valores (o mejor dicho campos), rojo, azul, verde y alfa. de 4 bytes. El alfa va de 0 a 255 para indicar el nivel de transparencia. 0 es 100% trasparente, mientras que 255 es opaco (o 0% transparente).
Esto hay que tener en cuenta cuando se trabaja con los pixeles, aunque si no se toca el alfa no debiera ser problema.

El mayor problema, hasta el momento (no descarto que se me esté pasando otros), que veo en tu código es que en ningún momento incrementas el valor del puntero. para moverte al próximo pixel. Tienes comentado justamente el inc(p). Una vez que estableces el valor del canal RGB debes hacer inc(p). Es decir:

delphi

mediana:=round((p^.red+p^.green+p^.blue)/3);
p^.red:=mediana;
p^.green:=mediana;
p^.blue:=mediana;
inc(p);

El otro error que veo es que a tu for le añadiste un begin, pero no su end.

Corrige esos dos puntos y veamos como sigue.

Saludos,

[sergiocapillera2013]

He modificado lo que me has aconsejado y aún me aparecen errores como:  unit1.pas(1,1) Fatal: Can't find unit BGRABitmap used by Unit1
La verdad que no se como solucionarlo , lo que saque de las wikis de LAZARUS al código y lo modifique para que realice el promedio de los tres colores, te paso el código para que puedas resaltarme mis errores y poder sugerirme otra ideas, saludos, disculpa por mis errores del uso del foro , recien empiezo a interactuar por este medio , y me gustaría que me digas y me aclares a que le llamas armar hilo no es lo que hice??? abrir  mi problemática??? saludos , te paso el código;

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  image1.Picture.LoadFromFile('mariposa.bmp');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
   bmp: TBGRABitmap;
   p: PBGRAPixel;
   n: integer;
   mediana:integer;
 
begin
     bmp := TBGRABitmap.Create('mariposa.bmp');
     p := bmp.Data;
     for n := bmp.NbPixels-1 downto 0 do
         // p^.red := not p^.red;  //invert red canal
 
          mediana:=round((p^.red+p^.green+p^.blue)/3);
          p^.red:=mediana;
          p^.green:=mediana;
          p^.blue:=mediana;
          inc(p);
     end;
 
     bmp.InvalidateBitmap;  //note that we have accessed directly to pixels
     bmp.Draw(Canvas,0,0,True);
     bmp.Free;
 
end;

[Delphius]

sergiocapillera2013
Ese error te está indicando que en la sección uses te falta añadir la/s unidad/es que forman parte de TBGRABitmap. En el enlace sobre la documentación oficial que expuse en mi post aclara perfectamente esto:

delphi

uses Classes, SysUtils, BGRABitmap, BGRABitmapTypes;

Te falta declarar, mínimo, las 2 últimas unidades.

Ahora tu error está en que borraste el begin del for. La sintaxis de Object Pascal (y Pascal en general) dice que cuando se van a ejecutar varias sentencias, éstas deben estar entre un begin y un end.

Es decir:

delphi

for i := 0 to 10 do
begin
  // aquí las sentencias
end;

Si no colocas el begin y el end el compilador protestará indicando que no se ha encontrado correspondencias entre cada begin y end. Es muy simple: debes tener tantos begins como ends.

Fundamental sangrar (mal dicho identar) el código. Ayuda mucho a detectar estos problemas.

No copies código por copiar y esperes que todo funcione mágicamente. Mínimo hay que documentarse y leer. Por ello es que en DelphiAccess ponemos tanto énfasis en un que se vaya razonando sobre los pasos y el código que nos van exponiendo. Nosotros somos guías y ofrecemos alternativas, pistas, sugerencias, propuestas, y de vez en cuando la solución. Esto lo hacemos para ayudarles a desarrollar el sentido analítico y que vayan entendiendo las cosas.

Aquí hay una serie de tutorial sobre TBGRABitmap. Considero de mucha utilidad ir dándole lectura al tema. Ayudará mucho a comprender como usarlo apropiadamente.

Respecto a "abrir un hilo" es el término que se emplea en los Foros para indicar que para tratar las dudas se debe iniciar un nuevo tema (o también conocido como hilo). Cada mensaje dado en el hilo se lo denomina post. En otros sitios directamente llaman post al propio hilo. Quizá es lo que te llama a confusión.
Recomendamos que antes de iniciar un nuevo hilo que se haga una búsqueda. Puede que ya alguien haya preguntado lo mismo o algo similar. Se puede aprovechar un hilo abierto, mientras este hilo respete la temática de tu duda y no esté en un apartado como Tutoriales por ej.
Esos hilos son a modo de exposición que ofrecemos a la comunidad e invitamos a que si tienen dudas o dificultades sobre los tutoriales, manuales, o trucos que en lugar de exponerlos en dicho hilo se los trate de forma separada a fin de no mezclar los artículos con sus dudas. De otro modo se hará una confusión generalizada y el hilo pierde su esencia primaria convirtiéndose en un "hilo de dudas" que en un artículo.

En unas horas puedo examinar si hay más problemas con el código. Pero a como estoy leyendo y viendo no debiera de haber más problemas si haces las correcciones que te he sugerido.

Saludos,
PD: Debes acostumbrarte a utilizar las etiquetas. En este caso utiliza las de Delphi que son válidas para el código de Lazarus.

[sergiocapillera2013]

Marcelo, hice lo que me sugeriste y sigo con problemas , cuando ejecuto el lazarus me remarca de color anaranjado los uses StdCtrls, ExtCtrls, BGRABitmap, BGRABitmapTypes; y no sigue más , que me ha faltado ??? te paso como tengo el código :

delphi

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ExtCtrls, BGRABitmap, BGRABitmapTypes;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    Image2: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
   bmp: TBGRABitmap;
   p: PBGRAPixel;
   n: integer;
   mediana:integer;
 
  Form1: TForm1; 
 
implementation
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
         Image1.Picture.LoadFromFile('mariposa.bmp');
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
 
begin
     bmp := TBGRABitmap.Create('mariposa.bmp');
     p := bmp.Data;
     for n := bmp.NbPixels -1 downto 0 do
         // p^.red := not p^.red;  //invert red canal
    begin
          mediana:=round((p^.red+p^.green+p^.blue)/3);
          p^.red:=mediana;
          p^.green:=mediana;
          p^.blue:=mediana;
          inc(p);
     end;
 
     bmp.InvalidateBitmap;  //note that we have accessed directly to pixels
     bmp.Draw(Canvas,0,0,True);
     bmp.Free;
 
end;                                   

te agradezco si me podés dar una mano , no lo puedo hacer que pase a escala de grises una imagen llamada 'mariposa.bmp'

saludos espero tu respuesta a la brevedad. 

[circular]

Tu problema ahora es que Lazarus no puede encontrar BGRABitmap. Es el tema del primero tutorial:
http://wiki.freepasc...p_tutorial_1/es

Necesita una referencia a BGRABitmap en el proyecto