try
  qTemp2.SQL.Text :=
     'update Test_logs set Log_Result = EMPTY_CLOB() ' +
     'WHERE Log_Id = :Id RETURNING Log_Result INTO :Log_Result' ;

  qTemp2.ParamByName('id').AsInteger :=
      qTemp.FieldByName( 'TLS' ).AsInteger ;
  qTemp2.ParamByName( 'Log_Result' ).ParamType := ptInput ;
  qTemp2.ParamByName( 'Log_Result' ).AsOraClob.LoadFromStream(
           HWTesting.vtTest_logs.CreateBlobStream(
             HWTesting.vtTest_logs.FieldByName( 'LOG_RESULT' ),
             bmRead ) ) ;
  qTemp2.Execute ;
finally
  qTemp2.Free ;
end ; {try finally QTEMP2}