Ver Mensaje Individual
  #1  
Antiguo 21-03-2023
david.camaleon david.camaleon is offline
Miembro
 
Registrado: oct 2008
Posts: 18
Reputación: 0
david.camaleon Va por buen camino
Question Guardar el gráfico de un TPath en un campo Blob de un Dataset

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.

Última edición por Neftali [Germán.Estévez] fecha: 21-03-2023 a las 15:33:25. Razón: Añade TAGs cuando pongas código Delphi en un mensaje
Responder Con Cita