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.