Devart Forums

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
  )