Subject Re: [IBO] Re: TIBOQuery not always recognizing eof-state
Author Jason Wharton
I appreciate your help and for giving me encouragement.
I'm going to try and get a new sub-release out today since I consider that a
serious bug.

Thanks,
Jason Wharton

----- Original Message -----
From: "RenéL" <rl@...>
To: <IBObjects@yahoogroups.com>
Sent: Thursday, October 14, 2010 2:35 AM
Subject: [IBO] Re: TIBOQuery not always recognizing eof-state


Hi Jason

Thank you very much for the patch - and sorry for my impatience.
Glad it works again.

René / SSV


--- In IBObjects@yahoogroups.com, "Jason Wharton" <supportlist@...> wrote:
>
> Here is a source patch you can do to fix this problem.
>
> function TIBODataset.GetRecord( Buffer: TRecordBuffer;
> GetMode: TGetMode;
> DoCheck: boolean ): TGetResult;
> begin
> Result := grOK;
> case GetMode of
> gmNext:
> begin
> // For some reason it is necessary to feel ahead.
> // Otherwise a double record appears at the top of the buffer.
> InternalDataset.ValidateRows( FCurRowNum + 1, FCurRowNum + 2 );
> InternalDataset.BufferRowNum := FCurRowNum + 1;
> if ( InternalDataset.BufferEof ) or
> ( InternalDataset.EofRowNum = FCurRowNum + 1 ) or // added in
> this condition.
> ( FRecAppendEof and ( InternalDataset.BufferRowNum =
> InternalDataset.EofRowNum - 1 )) then
> begin
> InternalDataset.BufferRowNum := FCurRowNum;
> Result := grEof;
> end
> else
>
> Thanks for pointing this out!
>
> Regards,
> Jason Wharton
>
> ----- Original Message -----
> From: "RenéL" <rl@...>
> To: <IBObjects@yahoogroups.com>
> Sent: Wednesday, October 13, 2010 8:03 AM
> Subject: Re: [IBO] TIBOQuery not always recognizing eof-state
>
>
> I had hoped to hear something from Jason concerning this.
> From the day after tomorrow I will be on vacation for the next 10 days.
> I hope that you during this time will be able to look into the problem and
> fix it.
>
> René / SSV
>
> --- In IBObjects@yahoogroups.com, RenéL <rl@> wrote:
> >
> > Jason: I don't know if you have received my example sent as attached
> > zip-file in mail directly to you.
> > If not you'll find it here:
> >
> > http://www.ssv.dk/test/iboexample.zip
> >
> > To quote my email:
> > Attached you will find a little example, showing the problem with
> > eof-state that I mentioned.
> > Extract the zip-file to your C:\ (with local server) - it will make a
> > directory \IBOExample with a gdb-file, and a Delphi2010 exampleproject -
> > source and compiled.
> > As I said I can only reproduce the behavior - in simple demos - using
> > FilterRecord, but I have seen non-filtered queries in my real app.
> > showing
> > same behaviour.
> >
> > Hope you're able to fix the problem.
> >
> > Best wishes
> > René Laursen/SSV
> >
> >
> >
> > --- In IBObjects@yahoogroups.com, RenéL <rl@> wrote:
> > >
> > > Thanks
> > > I have made a little example that I will mail directly to you.
> > >
> > > René/SSV