Devart Forums

Code: Select all

CREATE TABLE "MO_TMP" 
   (  "ID" NUMBER(19,0) NOT NULL ENABLE, 
  "VERSION" NUMBER(10,0) NOT NULL ENABLE, 
  "REASON" VARCHAR2(255 CHAR), 
  "PRIORITY" NUMBER(10,0) NOT NULL ENABLE, 
  "WEIGHT" NUMBER(19,0), 
  "CANCELLATIONTIME" TIMESTAMP (6), 
  "SENDINGTIME" TIMESTAMP (6), 
  "LOAD_ID" NUMBER(19,0) NOT NULL ENABLE, 
  "SOURCELOC" NUMBER(19,0) NOT NULL ENABLE, 
  "UPDATED" TIMESTAMP (6), 
  "CREATED" TIMESTAMP (6), 
  "UPDATEDBY" VARCHAR2(255 CHAR), 
  "CREATEDBY" VARCHAR2(255 CHAR), 
  "LASTLOAD" NUMBER(1,0), 
   PRIMARY KEY ("ID")
)   ;
  

Code: Select all

procedure TForm2.Button1Click(Sender: TObject);
begin
   UniSQL1.tag := UniSQL1.tag + 1;
   UniSQL1.ParamByName('ve').value := UniSQL1.tag;
   UniSQL1.Execute;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
   Uniquery1.active := true;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
   UniConnection.Connected := true;
end;

Code: Select all

  object UniSQL1: TUniSQL
    Connection = UniConnection
    SQL.Strings = (

        'insert into MO_TMP (ID,VERSION,REASON,PRIORITY,LOAD_ID, SOURCELO' +
        'C, CREATED, CREATEDBY)'

        ' values (mo_tmp_seq.nextval, :ve ,'#39'TEST'#39', 6, 234567, 98765, sysd' +
        'ate, '#39'my_program'#39')')
    Left = 144
    Top = 68
    ParamData = <
      item
        DataType = ftInteger
        Name = 've'
        ParamType = ptInput
        Value = nil
      end>
  end
  object UniConnection: TUniConnection
    ProviderName = 'Oracle'
    Options.DisconnectedMode = True
    Options.KeepDesignConnected = False
    Username = 'SYSTEM'
    Server = 'ORACLE_XE_LOCAL'
    LoginPrompt = False
    Left = 232
    Top = 68
    EncryptedPassword = 'ACFFA6FFACFFABFFBAFFB2FF'
  end
  object UniQuery1: TUniQuery
    Connection = UniConnection
    SQL.Strings = (
      'select * from ('
      ''
      'SELECT ID, VERSION, PRIORITY, CREATED FROM'
      'MO_TMP '
      ''
      ') order by CREATED')
    SpecificOptions.Strings = (
      'Oracle.FetchAll=True')
    Left = 232
    Top = 128
  end

Code: Select all

--------------------------------2016/3/29 13:13:14--------------------------------
A memory block has been leaked. The size is: 4

This block was allocated by thread 0x17B4, and the stack trace (return addresses) at the time was:
406E5E [System.pas][System][@GetMem$qqri][4602]
6413EC [CLRClasses.pas][CLRClasses][Marshal.AllocHGlobal$qqri][427]
7E2958 [OraClassesUni][TOraTimeStamp.Init$qqrus]
7E28A9 [OraClassesUni][TOraTimeStamp.$bctr$qqrp21Oracalluni.TOCISvcCtxus]
7DE51B [OraClassesUni][TOCIRecordSet.FetchArray$qqro]
43759C [System.Variants.pas][System.Variants][Variants.VarClearDeep$qqrr8TVarData][830]
4375A1 [System.Variants.pas][System.Variants][Variants.VarClearDeep$qqrr8TVarData][830]
437632 [System.Variants.pas][System.Variants][Variants.@VarClear$qqrr8TVarData][881]
43763A [System.Variants.pas][System.Variants][Variants.@VarClr$qqrr8TVarData][900]
75199B [Uni.pas][Uni][TCustomUniDataSet.GetFetchAll$qqrv][3398]
7DCE43 [OraClassesUni][TOCIRecordSet.InternalFetch$qqro]

The block is currently used for an object of class: Unknown

The allocation number is: 5722

Current memory dump of 256 bytes starting at pointer address 7FDD6730:
00 00 5A 82 C1 7B 80 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 36 73 00 00
88 EF 82 00 00 00 00 00 70 48 DB 7F D0 2E DC 7F F0 6F DD 7F 00 00 00 00 00 00 00 00 F1 8A DD 7F
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 05 00 00 5E 6E 40 00 0F 9D 40 00 9C A1 40 00
2D C3 63 00 78 C2 63 00 96 AA 82 00 A8 97 40 00 14 98 40 00 4B F6 40 00 88 D6 82 00 F4 38 2B 76
B4 17 00 00 B4 17 00 00 C9 9D 40 00 B1 B7 40 00 F9 B6 40 00 F9 B7 40 00 DE BB 40 00 C3 C3 63 00
C1 C0 63 00 F7 7F 40 00 C6 AD 78 00 3C 97 40 00 45 9B 40 00 28 00 00 00 B0 04 02 00 43 19 A1 FC
.  .  Z  ‚  Á  {  €  €  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  6  s  .  .
ˆ  ï  ‚  .  .  .  .  .  p  H  Û    Ð  .  Ü    ð  o  Ý    .  .  .  .  .  .  .  .  ñ  Š  Ý  
.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  €  .  .  .  ^  n  @  .  .    @  .  œ  ¡  @  .
-  Ã  c  .  x  Â  c  .  –  ª  ‚  .  ¨  —  @  .  .  ˜  @  .  K  ö  @  .  ˆ  Ö  ‚  .  ô  8  +  v
´  .  .  .  ´  .  .  .  É    @  .  ±  ·  @  .  ù  ¶  @  .  ù  ·  @  .  Þ  »  @  .  à  à  c  .
Á  À  c  .  ÷    @  .  Æ  ­  x  .  <  —  @  .  E  ›  @  .  (  .  .  .  °  .  .  .  C  .  ¡  ü

--------------------------------2016/3/29 13:13:14--------------------------------
This application has leaked memory. The small block leaks are (excluding expected leaks registered by pointer):

1 - 4 bytes: Unknown x 300
37 - 52 bytes: TOraTimeStamp x 150

Note: Memory leak detail is logged to a text file in the same folder as this application. To disable this memory leak check, undefine "EnableMemoryLeakReporting".