--- In IBObjects@y..., "Dieter Tremel" <tremel@t...> wrote:

> --- In IBObjects@y..., lester@l... wrote:
> > I have found that there is still some work to do on the
> > image streaming section to get it to work. BMP's don't
> > display either.
>
> Hello lester,
> 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;

Hello Lester,

I was to quick with my last posting, sorry. This piece of code must
be:

procedure frAssignBlobTo(Blob: TfrTField; Obj: TObject);
begin
{$IFDEF IBO}
Blob.AssignTo(Obj);
if Obj is TStream then
TStream(Obj).Position := 0;
{$ELSE}

otherwise TfrRichView does not display when filled by IBO out of a
Blob Field.

Thank You Dieter Tremel