Hola a todos...!
tengo un dataset con un campo con imagenes en formato stream y quiero
que se vean en un objeto oPicture del fastreport es decir hacerle un
Loadfromstream al picture...!
Mil gracias de antemano !
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Cargar imagen de campo Stream con FastReport a un oPicture en el reporte
-
Diego Ferreira
- Mensajes: 148
- Registrado: Mar Dic 18, 2007 4:39 pm
-
Spirin Sergey
- Mensajes: 25
- Registrado: Jue Ene 24, 2008 6:43 pm
Cargar imagen de campo Stream con FastReport a un oPicture en el reporte
Hello, Diego,
Starting with FRH 4.8 use such version of SetXailerDataSet()-function.
function SetXailerDataSet(oFrManager, cFrAlias, oDataSet)
local cStr:='', x
for x := 1 to oDataSet:FieldCount()
if oDataSet:aFields[x]:nSQLType = 205
cStr+=oDataSet:FieldName(x) + "^b;"
else
cStr+=oDataSet:FieldName(x) + ";"
endif
next
oFrManager:SetUserDataSet(cFrAlias, cStr,;
{||oDataSet:GoTop()}, {||oDataSet:Skip(1)}, ;
{||oDataSet:Skip(-1)}, {||oDataSet:Eof()},;
{|cField|oDataSet:oFieldByName(cField):FieldGet()})
Return Nil
(aFields[x]:nSQLType = 205) is tested with ADO. If in your dataset binary
field has another nSQLType-value then add it too.
In report simply set DataSet and DataField properties for TfrxPictureView
object.
Spirin Sergey.
"Paritet Soft" Company.
FRH sales: http://www.paritetsoft.ru/frh.htm
FRAX sales: http://www.paritetsoft.ru/frax.htm
"Diego Ferreira" <diego.datamatic@hotmail.com> ???????/???????? ? ????????
?????????: news:[email=4aba5682@svctag-j7w3v3j....]4aba5682@svctag-j7w3v3j....[/email]
> Hola a todos...!
>
> tengo un dataset con un campo con imagenes en formato stream y quiero que
> se vean en un objeto oPicture del fastreport es decir hacerle un
> Loadfromstream al picture...!
>
> Mil gracias de antemano !
Starting with FRH 4.8 use such version of SetXailerDataSet()-function.
function SetXailerDataSet(oFrManager, cFrAlias, oDataSet)
local cStr:='', x
for x := 1 to oDataSet:FieldCount()
if oDataSet:aFields[x]:nSQLType = 205
cStr+=oDataSet:FieldName(x) + "^b;"
else
cStr+=oDataSet:FieldName(x) + ";"
endif
next
oFrManager:SetUserDataSet(cFrAlias, cStr,;
{||oDataSet:GoTop()}, {||oDataSet:Skip(1)}, ;
{||oDataSet:Skip(-1)}, {||oDataSet:Eof()},;
{|cField|oDataSet:oFieldByName(cField):FieldGet()})
Return Nil
(aFields[x]:nSQLType = 205) is tested with ADO. If in your dataset binary
field has another nSQLType-value then add it too.
In report simply set DataSet and DataField properties for TfrxPictureView
object.
Spirin Sergey.
"Paritet Soft" Company.
FRH sales: http://www.paritetsoft.ru/frh.htm
FRAX sales: http://www.paritetsoft.ru/frax.htm
"Diego Ferreira" <diego.datamatic@hotmail.com> ???????/???????? ? ????????
?????????: news:[email=4aba5682@svctag-j7w3v3j....]4aba5682@svctag-j7w3v3j....[/email]
> Hola a todos...!
>
> tengo un dataset con un campo con imagenes en formato stream y quiero que
> se vean en un objeto oPicture del fastreport es decir hacerle un
> Loadfromstream al picture...!
>
> Mil gracias de antemano !