some code:
Code: Select all
procedure TForm1.ButtonClick(Sender: Object);
var
s1, s2: string;
begin
s1 := oraQuery1COL.AsString;
s2 := oraQuery1COL.AsString;
if (s1 <> s2) then
ShowMessage(':('); // this Message is shown only in 10.1.4
end; // end procedure
Code: Select all
object oraQuery1: TOraQuery
SQL.Strings = (
'select col'
'from t_table'
'where data_id = :ID')
Options.DeferredLobRead = True
Left = 680
Top = 280
ParamData = <
item
DataType = ftUnknown
Name = 'ID'
Value = nil
end>
object oraQuery1COL: TBlobField
FieldName = 'COL'
BlobType = ftOraBlob
end
end
Code: Select all
CREATE TABLE "SCOTT"."T_TABLE"
( "DATA_ID" NUMBER NOT NULL ENABLE,
"COL" BLOB
)
It seems to be a breaking change after ugrading from 10.1.3 to 10.1.4