Subject | Re: [IBO] How I can used JPG in FastReport |
---|---|
Author | Dieter Tremel |
Post date | 2001-08-17T13:49Z |
--- In IBObjects@y..., lester@l... wrote:
I think commenting out the following line in FR_DBRel.pas solves the
Problem:
procedure frAssignBlobTo(Blob: TfrTField; Obj: TObject);
begin
{$IFDEF IBO}
Blob.AssignTo(Obj);
// Tremel 17.8.2001 TStream(Obj).Position := 0;
{$ELSE}
if Obj is TPersistent then
TPersistent(Obj).Assign(Blob) else
if Obj is TStream then
begin
TfrTBlobField(Blob).SaveToStream(TStream(Obj));
TStream(Obj).Position := 0;
end;
{$ENDIF}
end;
Dieter Tremel
> I have found that there is still some work to do on theHello lester,
> image streaming section to get it to work. BMP's don't
> display either.
I think commenting out the following line in FR_DBRel.pas solves the
Problem:
procedure frAssignBlobTo(Blob: TfrTField; Obj: TObject);
begin
{$IFDEF IBO}
Blob.AssignTo(Obj);
// Tremel 17.8.2001 TStream(Obj).Position := 0;
{$ELSE}
if Obj is TPersistent then
TPersistent(Obj).Assign(Blob) else
if Obj is TStream then
begin
TfrTBlobField(Blob).SaveToStream(TStream(Obj));
TStream(Obj).Position := 0;
end;
{$ENDIF}
end;
Dieter Tremel