Hi Guido,

It would be nice if you put fixed Ibopipeline.pas to the file area

Rade

--- In IBObjects@yahoogroups.com, guido.klapperich@t... wrote:
> I have found the solution for the problem, it was in the procedure
> CreateDefaultFields.
> Here's the old one:
>
> procedure TppIBOPipeline.CreateDefaultFields;
> var
> liField: Integer;
> begin
> // These tests copied from derivation to avoid processing when
not wanted...
> if (CreatingDefaultFields) then Exit;
> if not(AutoCreateFields) then Exit;
> if not(FieldsOutOfSync) then Exit;
> if (csReading in ComponentState) or (csLoading in ComponentState)
or
> (csDestroying in ComponentState) then Exit;
> inherited;
>
> for liField := 0 to FieldCount - 1 do begin
> SetWorkingColumn( Fields[liField].FieldName );
> Fields[liField].FieldAlias := FWorkingColumn.DisplayName;
> end;
>
> end; //procedure, CreateDefaultFields
>
> And here's the corrected one:
>
> procedure TppIBOPipeline.CreateDefaultFields;
> var
> liField: Integer;
> begin
> // Guido Klapperich 08.04.2003
> if Assigned(DataSource) and Assigned(DataSource.Dataset) then
> begin
> try
> DataSource.Dataset.Open;
> except
> Exit;
> end;
> end
> else
> Exit;
>
> // These tests copied from derivation to avoid processing when
not wanted...
> if (CreatingDefaultFields) then Exit;
> if not(AutoCreateFields) then Exit;
> if not(FieldsOutOfSync) then Exit;
> if (csReading in ComponentState) or (csLoading in ComponentState)
or
> (csDestroying in ComponentState) then Exit;
> inherited;
>
> for liField := 0 to FieldCount - 1 do begin
> SetWorkingColumn( Fields[liField].FieldName );
> Fields[liField].FieldAlias := FWorkingColumn.DisplayName;
> end;
>
> end; //procedure, CreateDefaultFields
>
> I have tested several situations and I don't get neither a stack
overflow nor
> Delphi crashes.
> I would like to upload the corrected version to contributed area,
but I don't
> know how. Can anybody please tell how to upload.
>
>
> Guido