Mucha gracias por tu respuesta:
No se trata de pasar un Tpah a un bitmap, si no de lo contrario.
Pero te agradezco muchísimo tu interés y la respuesta, que es perfecta para pasar un tpah a un bitmap y guardarlo en un campo de un DataSet.
De hecho estuve buscando esta solución durante algunas horas. si en vez de eso hubiera puesto la consulta aquí en el foro, me habría ahorrado mucho tiempo con tu respuesta.
Cita:
Empezado por duilioisola
En principio es la inversa de que lo que te han contestado para cargar.
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
Dataset.close;
Dataset.open;
Dataset.CampoFIRMA.SavetoStream(m);
img.LoadFromStream(m);
finally
FreeAndNil(m);
end;
finally
FreeAndNil(img);
end;
|