Recent content by Andrey Maximenko. Ukraine

  1. A

    This error occurs correctly?

    ok, thanks
  2. A

    This error occurs correctly?

    I try to change the query text without reopening dataset OraSes.Connected := true; ods.SQL.Text := 'select 1 from dual'; ods.Open; ods.SQL.Text := 'select ''a'' from dual'; ods.Refresh; // Project Project1.exe raised exception class EConvertError with message ''a' is not a valid...
  3. A

    Program raise AV when length calculate field>10500

    Hi!
  4. A

    Program raise AV when length calculate field>10500

    Hi!
  5. A

    Program raise AV when length calculate field>10500

    hi!
  6. A

    Program raise AV when length calculate field>10500

    hi!
  7. A

    Program raise AV when length calculate field>10500

    Hello, Marco! Delphi-7 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, Oracle, OracleData, StdCtrls; type TForm1 = class(TForm) ods: TOracleDataSet; ses: TOracleSession; odsDUMMY: TStringField; odscalc...
  8. A

    Program raise AV when length calculate field>10500

    procedure TMainForm.guides_odsCalcFields(DataSet: TDataSet); begin guides_ods.FieldByName('sql_str_all').AsString := 'test test test test test test test test test test test test test test test test test test test test test'; end; object guides_odssql_sqr_all: TStringField...
  9. A

    procedure OracleCI.FindAliases does not correctly handle tnsnames.ora

    thanks, Marco
  10. A

    procedure OracleCI.FindAliases does not correctly handle tnsnames.ora

    procedure OracleCI.FindAliases does not correctly handle tnsnames.ora, if after the opening bracket there is a gap. All of the following descriptions are lost. DB14 = (DESCRIPTION = (ADDRESS = (PROTOCOL = TCP) (HOST = DB14)(PORT = 1521) (CONNECT_DATA = ( SID = DB14)) ) DB15 =...
  11. A

    TVariables.Assign in OracleType

    Marco, your software works as follows: var ods : TOracleDataSet; Params : TParams; i : integer; s : string; param : TParam; begin ods := TOracleDataSet.Create(Nil); Params := TParams.Create(Nil); param := Params.CreateParam(ftInteger, 'int', ptInput); param :=...
  12. A

    TVariables.Assign in OracleType

    case TParams(Source)[i].DataType of // case VarType(TParams(Source)[i].Name) of ftBoolean, ftBytes, ftSmallInt, ftInteger: buftype := otInteger; ftCurrency, ftFloat: buftype := otFloat; ftTime, ftDateTime...
  13. A

    TVariables.Assign in OracleType

    procedure TVariables.Assign(Source: TPersistent); ... buftype := 0; case VarType(TParams(Source)[i].Name) of varBoolean, varByte, varSmallInt, varInteger ... Propose to replace VarType(TParams(Source)[i].Name) to...
  14. A

    TOraclePackage does not work with plsql-strings

    CREATE OR REPLACE PROCEDURE test_plsql_string(p_text OUT VARCHAR2) IS BEGIN p_text := lpad(' ', 32000, '1234567890absdefgh'||chr(10)); END; var Pkg : TOraclePackage; a : array of variant; begin Pkg := TOraclePackage.Create(OraSes); Pkg.Session := OraSes; Pkg.ParameterMode :=...
  15. A

    Local sort in TOracleDataSet

    sinys, I buy Annual Service Contract for many years. But... No local sorting is still
See more
Back
Top