To All,
I still don't know where to send the file so I just sent it to Jason. The
component has been split into Run Time and Design Time files. Also included
our latest daIBO which lets users Select Views and Stored Procs with
returned datasets in the end-user project. We have used the code I have sent
for quite awhile in D6 and the latest IBO without known issues.
HTH
John

-----Original Message-----
From: news@... [mailto:news@...]On Behalf Of Russell
Belding
Sent: Thursday, March 21, 2002 4:22 PM
To: IBObjects@yahoogroups.com
Subject: Re: [IBO] IBOPipelineunit


Hello Geoff

Your guess came true.. the emailed code below got mangled. John Tomaselli
has a version ready for use.

Reagrds

Russell

"Geoff Worboys" <geoff@...> wrote in message
news:15048550015.20020321232809@......

> > Did you find out if a new IBOPipeline unit is required, and if so is
> > one available?
>
> Not sure if there is an updated unit posted anywhere yet but if you
> like you can edit the pipeline unit to change the following function
> as shown (you may have to corrent any bad wrapping from the email)...
>
> function TppIBOPipeline.WorkingColumnDataType: TppDataType;
> begin
> Result := dtNotKnown;
>
> if Assigned(FWorkingColumn) then begin
> with FWorkingColumn do begin
>

file://- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-

> if IsNumeric then begin file://...TIB_ColumnNumBase descendant
> if (FWorkingColumn is TIB_ColumnSmallInt) then begin
> {NOTE: RB uses dtInteger for smallint...}
> Result := dtInteger;
> end else if (FWorkingColumn is TIB_ColumnInteger) then begin
> Result := dtLongint;
> {$IFNDEF IBO_CPPB}
> // end else if (FWorkingColumn is TIB_ColumnComp) then begin
> file://TODO// Comp 64bit datatype is not supported by

ReportBuilder

> file://### Result := dt????; ###
> // Result := dtString; file://<=-not supported yet, so use

dtString ###

> file://###
> {$ENDIF}
> end else if (FWorkingColumn is TIB_ColumnNumeric) then begin
> if FWorkingColumn.IsCurrencyDataType then
> Result := dtCurrency
> else
> Result := dtExtended;
> end else if (FWorkingColumn is TIB_ColumnFloat) then begin
> Result := dtSingle;
> end else if (FWorkingColumn is TIB_ColumnDouble) then begin
> Result := dtDouble;
> // end else if (FWorkingColumn is TIB_ColumnCurr) then begin
> // Result := dtCurrency;
> end;
>

file://- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-

> file://WARNING// -- Check for IsBlob before checking for IsText
> end else if IsBlob then begin file://...TIB_ColumnBlob or

descendant

> if IsText then begin file://...probably a TIB_ColumnMemo
> Result := dtMemo;
> end else begin
> Result := dtBLOB;
> end;
>

file://- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-

> end else if IsText then begin file://...TIB_ColumnText or

descendant

> Result := dtString;
>
> file://TODO// ??? ADD SUPPORT FOR CHAR(1) COLUMNS -=> dtChar
>
> file://TODO// ??? ADD SUPPORT FOR BOOLEAN COLUMNS -=> dtBoolean
>
>

file://- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-

> end else if IsDateTime then begin file://...TIB_ColumnDateTime
> if IsDateOnly then begin
> Result := dtDate;
> file://TODO// -- ADD THIS IF IT GETS IMPLEMENTED IN IB OBJECTS...
> file://else if IsTimeOnly then begin
> // Result := dtTime;
> end else begin
> Result := dtDateTime;
> end;
>

file://- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-

> end else begin file://...return dtString for any other types
> Result := dtString;
> end;
>

file://- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-

> end;
> end;
> end;
>
>
>
> --
> Geoff Worboys
> Telesis Computing
>
>
>
>

___________________________________________________________________________

> IB Objects - direct, complete, custom connectivity to Firebird or

InterBase

> without the need for BDE, ODBC or any other layer.
>

___________________________________________________________________________

> http://www.ibobjects.com - your IBO community resource for Tech Info

papers,

> keyword-searchable FAQ, community code contributions and more !
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>
>

___________________________________________________________________________
IB Objects - direct, complete, custom connectivity to Firebird or InterBase
without the need for BDE, ODBC or any other layer.
___________________________________________________________________________
http://www.ibobjects.com - your IBO community resource for Tech Info papers,
keyword-searchable FAQ, community code contributions and more !

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/