Generate Schema strongly-type access units can't be compiled

Data Abstract
1

Hello,

With the last version 10.0.0.1599 source generated with “Generate Schema strongly-type access units” ide command can’t be compiled.

For commands, params are generated with DataType Unknown.
On the older version this is not an problem,
but now is gnenerate an class like


{ ICHECK_AND_GET_CODMARFA }
  ICHECK_AND_GET_CODMARFA = interface
  ['{297B0194-4DD0-4CFF-B164-483AAFF7ABD2}']
    { Property getters and setters }
    function GetACODMARFAValue: Unknown;
    procedure SetACODMARFAValue(const aValue: Unknown);
    function GetACODMARFAEXTERNValue: Unknown;
    procedure SetACODMARFAEXTERNValue(const aValue: Unknown);
    function GetVCODMARFAValue: Unknown;

    function Execute: Integer;

    { Properties }
    /// <summary>
    /// Input parameter
    /// </summary>
    property ACODMARFA: Unknown read GetACODMARFAValue write SetACODMARFAValue;
    /// <summary>
    /// Input parameter
    /// </summary>
    property ACODMARFAEXTERN: Unknown read GetACODMARFAEXTERNValue write SetACODMARFAEXTERNValue;
    /// <summary>
    /// Output parameter
    /// </summary>
    property VCODMARFA: Unknown read GetVCODMARFAValue;
  end;

And type “Unknown” is not defined.

2

Hi,

I can’t reproduce it with schemas from DA Server sample (Delphi).

Can you share your schema (.daSchema), pls?
You can drop to support@ for keeping privacy.

Note: You can save your TDASchema to file with

407×181 17.5 KB

3

I sent them!

4

Hi,

as expected, you haven’t defined type of parameters in schema:

Untitled
Untitled996×242 18.3 KB

workaround: specify parameters types

EDIT:

  • update uDASchemaUnitsGenerator.pas as
function GetDAType(ad: TDADataType; aCommand: Boolean = False): string;
..
  else
    if aCommand then
      Result := 'Variant'
    else
      Result := DADataTypeNames[ad];
  end;
end;
  • launch C:\Program Files (x86)\RemObjects Software\Build\install_DA.cmd with admin rights