FiveTech Support Forums

Hi,
in prg
private MyVar := memoread("C:\MyPicture.jpg")
in fr3 ,
1.picture1 defined as selfdefined variable.
2.a masterdata cell edit as [<picture1>]
3.the cell event onbeforeprint as ReportHOnStartReport
4.code as:
procedure ReportHOnStartReport(Sender: TfrxComponent);
begin
LoadImageFromHbVar(Picture1, ‘MyVar’);
end;
begin

end.

Run time error :
undeclared identifiey: picture1

if 4. code as:
procedure ReportHOnStartReport(Sender: TfrxComponent);
begin
LoadImageFromHbVar(<Picture1>, ‘MyVar’);
end;
begin

end.
Run time error :
Could not conert variant of type (null) into type (Interge)
Unkown variable or data field : picture1

TKS!
Shuming Wang

If problem solved, I'll buy a fastreport licence.

TKS!
Shuming Wang

I think you have to pass the path and name of the jpg to FastReport and insert graphic-control into your report then set
properties <Filelink>.
Best regards,
Otto

this pass jpg via
private MyVar := memoread("C:\MyPicture.jpg")
and LoadImageFromHbVar(<Picture1>, ‘MyVar’) call harbour variable via "myvar" .

The Demo and manual from http://www.paritetsoft.ru/frh.htm are too simple , the auther not reply at all.

Regards!
Shuming Wang

Last, it works:

if fr3 form
1. create 1 picture object named 'picture1' and place on a cell of masterdata, and close picturex dialog.
2. code area :
procedure Picture1OnBeforePrint(Sender: TfrxComponent);
begin
callhbfunc('myfunc') ; // this selft defined prg function to load current row jpg into private 'myvar'
LoadImageFromHbVar(Picture1,'myvar');
end;

begin

end.

1. picture1 event :
   onbeforeprint Picture1OnBeforePrint

in prg:
FUNCTION myfunc()
myvar:=memoread("d:\app\sub\"+cvaltochar(odbprn2:id)+".jpg")
return

OK!

Shuming Wang