Foros Club Delphi - Access Violation al cargar un Tbitmap en mi componente

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Access Violation al cargar un Tbitmap en mi componente (https://www.clubdelphi.com/foros/showthread.php?t=17572)

Access Violation al cargar un Tbitmap en mi componente

Ya estoy 3 horas intentando solucionar este problema que deberia ser simple, pero a mi no me funciona.
Al colocar siguiente componente en un formulario e intentar cargar una imagen en el sale un error de "access violation".
Les agradezco mucho su ayuda.

Código:

unit prueba;



interface



uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  db;





type

  Tprueba = class(Tcomponent)

  private

    { Private declarations }

    Fglyph: Tbitmap;

    procedure SetBitmap(const Value: TBitmap);

  protected

    { Protected declarations }

  public

    { Public declarations }

    constructor create(AOwner: Tcomponent); override;

  published

    { Published declarations }

    property Glyph: TBitmap       read FGlyph write SetBitmap;

  end;



procedure Register;



implementation



uses pmemose1;



constructor Tprueba.create(AOwner: Tcomponent);

begin

   inherited create(AOwner);

end;



procedure Tprueba.SetBitmap(const Value: TBitmap);

begin

   FGlyph.Assign(Value);

end;



procedure Register;

begin

  RegisterComponents('Samples', [Tprueba]);

end;



end.

Falta la creacion del componente FGlyph en el metodo create de tu componente,

luego del

inherited create(AOwner);

FGlyph := TBitmap.create;

Saludos.

Según tengo entendido, el bitmap debes crearlo y eliminarlo con el componente

Código Delphi [-] constructor Tprueba.create(AOwner: Tcomponent);
begin
 Fglyph : Tbitmap.Create;
 Fglyph := nil;
 inherited create(AOwner);
end;

destructor Tprueba.destroy; override;
begin
  Fgluph.Free;
  inherited destroy;
end;

Saludos, salvica

Antes de nada respondo a tu pregunta. El access violation te aparece porque delphi inicializa Fglyph a nil, y al intentar accecera a Fglyph.Assign estas traspasando un puntero nulo.

Cita:

Empezado por salvica

constructor Tprueba.create(AOwner: Tcomponent);
begin
Fglyph : Tbitmap.Create;
Fglyph := nil;

En cuanto a la respuesta de salvica, hay un error, supongo que por las prisas, despues de hacer el Tbitmap.create no puedes asignarle nil, estarás dejando en el limbo el bitmap recien creado.

A mi entender, solo deberías crear el Tbitmat cuando lo asignas, no desde la creación del componente.

Código Delphi [-]en el SetBitmap :

Freeandnil(Fglyph);
Fglyph := Tbitmat.Create(nil);
Fglyph.Assign(Value);
...
en el destroy:

Freeandnil(Fglyph);

Aqui hay varias cosillas a tener en cuenta:

Fglyph delphi lo inicializa a nil, por tanto, la primera vez que asignes un Bitmap, el FreeAndnil no hace nada. La segunda vez que asignes una imagen, primero se libera la imagen anterior con FreeAndNil, despues se crea de nuevo la imagen.

El parámetro que usa en Tbitmap.create(nil) es porque nadie se va a encargar de destruir el Bitmap, pero está controlado en el destroy del componenente, que tambien hacemos un Freeandnil

Saludos