Zeoslib Portal

Code: Select all

[2022.02.04 10:40:20] MYDB: Oracle 19.0.0, client version: 19.8.0, database access component version: 8.0.0-a846f83a8
[2022.02.04 10:40:20] MYDB: Connected to database ***, schema *** at host *** as user ***
[2022.02.04 10:40:20] MYDB: Loaded library: C:\DRVOracle\oci.dll
[2022.02.04 10:40:20] MYDB: Transaction isolation level: Read committed
[2022.02.04 10:40:20] MYDB: RawStringEncoding: DB_CP
[2022.02.04 10:40:20] MYDB: codepage: UTF16
[2022.02.04 10:40:20] MYDB: OCIMultiThreaded: True
[...]
[2022.02.04 10:40:20] MYDB: Opening dataset in background thread #11400 started.
[2022.02.04 10:40:20] MYDB: Prepare Statement 71 : SELECT * FROM MYTABLE
[2022.02.04 10:40:20] MYDB: Prepare Statement 72 : SELECT ALL_TAB_COLUMNS.OWNER, ALL_TAB_COLUMNS.TABLE_NAME, ALL_TAB_COLUMNS.COLUMN_NAME, ALL_TAB_COLUMNS.DATA_TYPE, ALL_TAB_COLUMNS.DATA_LENGTH, ALL_TAB_COLUMNS.DATA_PRECISION, ALL_TAB_COLUMNS.DATA_SCALE, ALL_TAB_COLUMNS.NULLABLE, ALL_TAB_COLUMNS.DATA_DEFAULT, ALL_TAB_COLUMNS.COLUMN_ID, ALL_COL_COMMENTS.COMMENTS, ALL_TAB_COLUMNS.CHAR_LENGTH FROM ALL_TAB_COLUMNS JOIN ALL_COL_COMMENTS ON ALL_COL_COMMENTS.TABLE_NAME = ALL_TAB_COLUMNS.TABLE_NAME AND ALL_COL_COMMENTS.COLUMN_NAME = ALL_TAB_COLUMNS.COLUMN_NAME AND ALL_COL_COMMENTS.OWNER = ALL_TAB_COLUMNS.OWNER WHERE ALL_TAB_COLUMNS.TABLE_NAME like 'MYTABLE' ORDER BY ALL_TAB_COLUMNS.COLUMN_ID
[2022.02.04 10:40:21] MYDB: Execute prepared Statement 72 in 516 ms
[2022.02.04 10:40:21] MYDB: Fetch Statement 72, affected 145 row(s) in 765 ms
[2022.02.04 10:40:21] MYDB: Fetch FETCH ROW ORA-01406: fetched column value was truncated  (#1406)
[2022.02.04 10:40:21] EZSQLException was raised while Opening dataset with the message SQL Error: ORA-01406: fetched column value was truncated Code: 1406 Message: FETCH ROW

Code: Select all

[2022.02.04 10:40:38] MYDB: Oracle 19.0.0, client version: 19.8.0, database access component version: 8.0.0-a846f83a8
[2022.02.04 10:40:38] MYDB: Connected to database ***, schema *** at *** as user ***
[2022.02.04 10:40:38] MYDB: Loaded library: C:\DRVOracle\oci.dll
[2022.02.04 10:40:38] MYDB: Transaction isolation level: Read committed
[2022.02.04 10:40:38] MYDB: RawStringEncoding: DB_CP
[2022.02.04 10:40:38] MYDB: codepage: UTF16
[2022.02.04 10:40:38] MYDB: internal_buffer_size: 300000
[2022.02.04 10:40:38] MYDB: OCIMultiThreaded: True
[...]
[2022.02.04 10:41:01] MYDB: Opening dataset in background thread #6312 started.
[2022.02.04 10:41:01] MYDB: Prepare Statement 77 : SELECT * FROM MYTABLE
[2022.02.04 10:41:01] MYDB: Prepare Statement 78 : SELECT ALL_TAB_COLUMNS.OWNER, ALL_TAB_COLUMNS.TABLE_NAME, ALL_TAB_COLUMNS.COLUMN_NAME, ALL_TAB_COLUMNS.DATA_TYPE, ALL_TAB_COLUMNS.DATA_LENGTH, ALL_TAB_COLUMNS.DATA_PRECISION, ALL_TAB_COLUMNS.DATA_SCALE, ALL_TAB_COLUMNS.NULLABLE, ALL_TAB_COLUMNS.DATA_DEFAULT, ALL_TAB_COLUMNS.COLUMN_ID, ALL_COL_COMMENTS.COMMENTS, ALL_TAB_COLUMNS.CHAR_LENGTH FROM ALL_TAB_COLUMNS JOIN ALL_COL_COMMENTS ON ALL_COL_COMMENTS.TABLE_NAME = ALL_TAB_COLUMNS.TABLE_NAME AND ALL_COL_COMMENTS.COLUMN_NAME = ALL_TAB_COLUMNS.COLUMN_NAME AND ALL_COL_COMMENTS.OWNER = ALL_TAB_COLUMNS.OWNER WHERE ALL_TAB_COLUMNS.TABLE_NAME like 'MYTABLE' ORDER BY ALL_TAB_COLUMNS.COLUMN_ID
[2022.02.04 10:41:02] MYDB: Execute prepared Statement 78 in 525 ms
[2022.02.04 10:41:02] MYDB: Fetch Statement 78, affected 145 row(s) in 649 ms
[2022.02.04 10:41:02] MYDB: Execute prepared Statement 77 in 669 ms
[2022.02.04 10:41:52] MYDB: Fetch Statement 77, affected 206733 row(s) in 50717 ms
[2022.02.04 10:41:53] MYDB: Query returned 206 733 record(s) in 50 seconds
[2022.02.04 10:41:53] MYDB: Opening dataset in background thread #6312 ended.

Code: Select all

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  ZConnection,
  ZDataSet;

Procedure SetupConn(Const inConnection: TZConnection; Const inUseLobCache, inOverrideBuffer: Boolean);
Var
 s: String;
Begin
 If inConnection.Connected Then inConnection.Disconnect;

 WriteLn;
 s := 'UseLobCache = ';
 If inUseLobCache Then Begin
                       s := s + 'OnLoad';
                       inConnection.Properties.Values['LobCacheMode'] := 'OnLoad';
                       End
   Else Begin
        s := s + 'N/A';
        inConnection.Properties.Values['LobCacheMode'] := '';
        End;
 s := s + ', internal_buffer_size = ';

 If inOverrideBuffer Then Begin
                          s := s + '300000';
                          inConnection.Properties.Values['internal_buffer_size'] := '300000';
                          End
   Else Begin
        s := s + 'N/A';
        inConnection.Properties.Values['internal_buffer_size'] := '';
        End;

 WriteLn(s);
 inConnection.Connect;
End;

Procedure TestMyTable(Const inConnection: TZConnection);
Var
 q: TZQuery;
Begin
 Write('Testing MyTable...');
 q := TZQuery.Create(nil);
 Try
  q.Connection := inConnection;
  q.SQL.Text := 'SELECT * FROM MyTable';
  Try
   q.Open;
   WriteLn(' OK');
  Except
   On E:Exception Do WriteLn(' ' + E.Message.Replace(#10, '').Replace(#13, ' '));
  End;
 Finally
  FreeAndNil(q);
 End;
End;

Procedure TestMyTable2(Const inConnection: TZConnection);
Var
 q: TZQuery;
 tb: TBytes;
 s: String;
Begin
 Write('Testing MyTable2...');
 q := TZQuery.Create(nil);
 Try
  q.Connection := inConnection;
  q.SQL.Text := 'SELECT * FROM MyTable2';
  Try
   q.Open;
   While Not q.Eof Do
    Begin
     tb := Tencoding.Unicode.GetBytes(q.FieldByName('C_NAME').AsString);
     s := TEncoding.Unicode.GetString(q.FieldByName('C_NAME').AsBytes, 0, Length(q.FieldByName('C_NAME').AsBytes) - 1);

     If TEncoding.Unicode.GetString(tb) <> s Then Raise Exception.Create('Corrupted row #' + q.RecNo.ToString + ': "' + q.FieldByName('C_NAME').AsString + '"');
     q.Next;
    End;
   WriteLn(' OK');
  Except
   On E:Exception Do WriteLn(' ' + E.Message.Replace(#10, '').Replace(#13, ' '));
  End;
 Finally
  FreeAndNil(q);
 End;
End;

Var
 conn: TZConnection;
 a, b: Boolean;
begin
 conn := TZConnection.Create(nil);
 Try
  conn.Protocol := 'oracle';
  conn.Catalog := '***';
  conn.ClientCodepage := 'UTF16';
  conn.Database := '***';
  conn.LibraryLocation := 'C:\LocalStorage\OCI_19_8\x86\oci.dll';
  conn.Password := '***';
  conn.User := '***';

  For a := False To True Do
   For b := False To True Do
    Begin
     SetupConn(conn, a, b);
     TestMyTable(conn);
     TestMyTable2(conn);
    End;
 Finally
  FreeAndNil(conn);
  WriteLn;
  Write('Press Enter to exit...');
  ReadLn;
 End;
end.

Code: Select all

  end else if (RowSize > FZBufferSize) { now let's calc the iters we can use }
    then FIteration := 1
    else FIteration := FZBufferSize div RowSize;

Code: Select all

  SetLength(FRowsBuffer, RowSize * FIteration); //Alloc mem we need for multiple rows

Code: Select all

      if (LobCacheMode = lcmOnLoad)
      then CachedResultSet := TZCachedResultSet.Create(NativeResultSet, SQL, nil, ConSettings)
      else CachedResultSet := TZOracleCachedResultSet.Create(NativeResultSet, SQL, nil, ConSettings);

Code: Select all

jmpTestN:         if ColumnCodePage = zCP_UTF16 then begin
                    Len := Len shr 1;
jmpW2A:             fRawTemp := PUnicodeToRaw(PWideChar(Result), Len, GetW2A2WConversionCodePage(ConSettings));
                    Len := Length(fRawTemp);
                    if Len = 0
                    then Result := pEmptyAnsiString
                    else Result := Pointer(fRawTemp);
                  end;

Code: Select all

    then if ConSettings.ClientCodePage.Encoding = ceUTF16
      then Result := zCP_UTF8