Andre1

@Fr0sT.Brutal 

Thank you.

Hi,

I have written a library to make use of Firemonkey from the programming language D.

Therefore I need to generate D wrapper classes / structures / enumerations for the Delphi classes / records /....

Sample:

alias TCloseEvent = void delegate(TObject sender, ref TCloseAction action);
alias TCloseQueryEvent = void delegate (TObject sender, ref bool canClose);

enum TDeviceKind {
	Desktop, 
	iPhone, 
	iPad
};

enum TFormPosition {Designed, Default, DefaultPosOnly, DefaultSizeOnly, ScreenCenter, DesktopCenter, MainFormCenter, OwnerFormCenter};

alias TDeviceKinds = TDeviceKind[]; // TODO Set of TDeviceKinds

class TFormFactor: TPersistent
{
	mixin(GenSetProperty!("Devices", TDeviceKind));
	mixin(GenIntProperty!("Height"));
	mixin(GenIntProperty!("Width"));
	
	this(int reference)
	{
		super(reference);
	}
}

This is a manual and error prone effort. I wonder whether there is maybe a tool included in Delphi which gives me the info about the classes / records / ... for a given Delphi unit source code file

like FMX.Forms.pas.  Best solution would be if I can get the info as JSON / XML after the IFDEFs are sorted out by the compiler...

Based on the JSON then I could easily generate the D artifacts.

Is there something like this available?

Kind regards

André

@Fr0sT.Brutal

Thank you so much

Kind regards
André

By adding 2 more integer fields to record:

  TDateRec = record
    Year: Integer;
    Month: Integer;
    Day: Integer;
  end;

the error messages changes to

"var- and out arguments must exactly match".

Is my understanding correct, that rtti does not support calling the method and passing the record reference as untyped pointer?

Kind regards
André

Thanks. Yes, for the moment my library targets x86 only. In a later iteration I will make it architecture independent.

Below System.Rtti.TRttiMethod.Invoke there is System.Rtti.TValue.Cast which seems unable to

handle the untyped pointer to the Record.

Exception EInvalidCast is thrown.

Is the Rtti Invoke method capable to invoke the method with an untyped pointer or have I somehow

convert the untyped pointer to a typed pointer by making use of some other Rtti functions?

Kind regards

André

Thanks I tried your suggestion but it didnt' worked. An invalid type conversion is show. It seems just passing untyped pointer of the record is not possible in the invoke method.
I simplified the problem by creating the example just as Delphi console application:

program foo;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils, System.Classes, System.rtti, System.TypInfo;

type
  TDateRec = record
    Year: Integer;
  end;

  TExample = class
  public
    function Calc(const dateRec: TDateRec): Integer;
  end;

function TExample.Calc(const dateRec: TDateRec): Integer;
begin
  result := dateRec.Year;
end;

var
  ex: TExample;
  dateRec: TDateRec;
  intResult: Integer;

function executeInstanceMethod(const Reference: Integer; const AName: string;
  const Args: array of TValue): TValue;
var
  context: TRttiContext;
  instType: TRttiInstanceType;
  obj: TObject;
begin
  context := TRttiContext.Create;
  try
    try
      obj := TObject(Reference);
      instType := (context.GetType(obj.ClassType) as TRttiInstanceType);
      result := instType.GetMethod(AName).Invoke(obj, Args);
    except
      on E: Exception do
        writeln(E.ClassName + ' error raised, with message : ' + E.Message);
    end;
  finally
    context.Free;
  end;
end;

function executeInstanceMethodReturnIntArgsStruct(const Reference: Integer;
  const AName: PAnsiChar; Reference2: Pointer): Integer;
begin
  // Just passing the untyped pointer does not work ?

  result := executeInstanceMethod(Reference, string(AName), [Reference2])
    .AsInteger;
end;

begin

  try
    ex := TExample.Create;
    dateRec.Year := 2022;
    executeInstanceMethodReturnIntArgsStruct(Integer(ex), 'Calc', @dateRec);

  except
    on E: Exception do
      writeln(E.ClassName, ': ', E.Message);
  end;

end.

Kind regards
André

Hi,

I have written a wrapper library to make use of Firemonkey from the programming language D. A simple example looks like this:

import delta.core;
import System.Classes, System.UITypes, FMX.Forms, FMX.Types, FMX.Memo;

void main()
{
    deltaLibrary.load(`.\views\Win32\Debug\Project1.dll`);
   
    Application.Initialize;
    Application.MainForm = TCustomForm.CreateNew(Application);
    Application.MainForm.Caption = "Sample";
   
    auto memo = TMemo.Create(Application.MainForm);
    memo.Lines.Add("Hello World!");
    memo.Align = TAlignLayout.Client;
    memo.Parent = Application.MainForm;
   
    Application.MainForm.Show();
    Application.Run();
}

The Project1.dll is written in Delphi and provides generic functions for dynamically creating Delphi class instances and calling their methods.
While this is working fine, I have issues calling method which have record arguments.

Example TCanvas.DrawLine has two time the record type TPointF:

procedure DrawLine(const APt1, APt2: TPointF; const AOpacity: Single); overload;

Within my DLL I have a generic function to call instance methods which have exactly this kind of arguments (record, record, single)

procedure executeInstanceMethodReturnNoneArgsStructStructFloat(const Reference: Integer;
  const AName: PAnsiChar; Reference2, Reference3: Integer; s: Single); stdcall;
begin
    // What needs to be done here
    executeInstanceMethod(Reference, string(AName), [???]);
end;

function executeInstanceMethod(const Reference: Integer; const AName: string;
  const Args: array of TValue): TValue;
var
  context: TRttiContext;
  instType: TRttiInstanceType;
  obj: TObject;
begin
  context := TRttiContext.Create;
  try
    try
      obj := TObject(Reference);
      instType := (context.GetType(obj.ClassType) as TRttiInstanceType);
      result := instType.GetMethod(AName).Invoke(obj, Args);
    except
      on E: Exception do
        writeln(E.ClassName + ' error raised, with message : ' + E.Message);
    end;
  finally
    context.Free;
  end;
end;

(Argument Reference has the class reference to e.g. TCanvas, AName has the method name e.g. DrawLine. After that
the actual methods of DrawLine are following).

From my application written in D I want to call executeInstanceMethodReturnNoneArgsStructStructFloat and pass references

to records (D structs binary compatible with the Delphi records).

Within the Delphi procedure executeInstanceMethodReturnNoneArgsStructStructFloat these record references

should be converted into something which can be used by TRttiMethod.Invoke.

Is this technically possible and can you give me a hint or an example how the coding in executeInstanceMethodReturnNoneArgsStructStructFloat should look like? 

Kind regards
André