Guardar el gráfico de un TPath en un campo Blob de un Dataset

[david.camaleon]

Buenos días:

En una aplicación tengo un rectángulo que contiene un TPath que sirve para recoger una firma manuscrita. La intención es guardar dicha firma como Jpg en un campo Blob de una base de datos, pero cuando trato de hacerlo me aparece un mensaje de error indicando que no se ha invocado el método BeginScene.
El código es le siguiente:

Código Delphi [-]
Procedure grabar (Firma:Tpath);
Var
  m: TMemoryStream;
  jpgImg,Img: TBitmap;

Begin
    img:=Tbitmap.Create(Trunc(Firma.Width), Trunc(Firma.Height));
    m := TmemoryStream.Create;
    firma.PaintTo(img.Canvas, firma.LocalRect);
    img.SaveToStream(m);
    Dataset.close;
    Dataset.open;
    Dataset.Edit;
    Dataset.CampoFIRMA.LoadFromStream(m);
    DataSet.post;
End;

Muchas gracias.

[Neftali [Germán.Estévez]]

Prueba a llamar a los métodos BeginScene y EndScene, tal y como te dice el error, antes de realizar la asignación.
En los propios links de ayuda, tienes ejemplos de uso.

Código Delphi [-]
...
  img := Tbitmap.Create(Trunc(Firma.Width), Trunc(Firma.Height));
  try
    img.Canvas.BeginScene;
    try
      firma.PaintTo(img.Canvas, firma.LocalRect);
    finally
      img.Canvas.EndScene;
    end;
    m := TmemoryStream.Create;
    try
      img.SaveToStream(m);
      Dataset.close;     
      Dataset.open;     
      Dataset.Edit;     
      Dataset.CampoFIRMA.LoadFromStream(m);     
      DataSet.post;
    finally
      FreeAndNil(m);
    end;
  finally
    FreeAndNil(img);
  end;

[david.camaleon]

Buenos días,

Muchas gracias por tu rápida respuesta, Neftalí. El problema de la grabación ha quedado solucionado.
Ahora me toca pelear con los colores de fondo y pincel.

Saludos