paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-08 19:47:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

Invoke in the RTTI Method.

Browse Source
This commit is contained in:
Henrique Gottardi Werlang 2022-08-17 18:07:47 -03:00
parent b761a684e0
commit 09155a0b33
1 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
packages/rtl/rtti.pas
View File

@ -39,7 +39,7 @@ type
class function FromArray(TypeInfo: TTypeInfo; const Values: specialize TArray<TValue>): TValue; static;
class function FromJSValue(v: JSValue): TValue; static;
class function FromOrdinal(ATypeInfo: TTypeInfo; AValue: JSValue): TValue; static;
class procedure Make(ABuffer: JSValue; ATypeInfo: PTypeInfo; var Result: TValue); overload; static;
class procedure Make(const ABuffer: JSValue; const ATypeInfo: PTypeInfo; var Result: TValue); overload; static;
generic class procedure Make<T>(const Value: T; var Result: TValue); overload; static;
function AsBoolean: boolean;
@ -207,6 +207,7 @@ type
procedure LoadParameters;
public
function GetParameters: TRttiParameterArray;
function Invoke(const Instance: TValue; const Args: array of TValue): TValue;
property IsAsyncCall: Boolean read GetIsAsyncCall;
property IsClassMethod: Boolean read GetIsClassMethod;
@ -246,6 +247,9 @@ type
property Visibility: TMemberVisibility read GetVisibility;
end;
TRttiInstanceProperty = class(TRttiProperty)
end;
TRttiPropertyArray = specialize TArray<TRttiProperty>;
{ TRttiType }
@ -627,7 +631,7 @@ begin
Make(Value, System.TypeInfo(T), Result);
end;
class procedure TValue.Make(ABuffer: JSValue; ATypeInfo: PTypeInfo; var Result: TValue);
class procedure TValue.Make(const ABuffer: JSValue; const ATypeInfo: PTypeInfo; var Result: TValue);
begin
Result.FData := ABuffer;
Result.FTypeInfo := ATypeInfo;
@ -1731,6 +1735,26 @@ begin
Result := FParameters;
end;
function TRttiMethod.Invoke(const Instance: TValue; const Args: array of TValue): TValue;
var
A: Integer;
ReturnHandle: PTypeInfo;
AArgs: TJSValueDynArray;
begin
if Assigned(ReturnType) then
Result.FTypeInfo := ReturnType.Handle;
SetLength(AArgs, Length(Args));
for A := Low(Args) to High(Args) do
AArgs[A] := Args[A].AsJSValue;
Result.FData := TJSFunction(TJSObject(Instance.AsJSValue)[Name]).apply(TJSObject(Instance.AsJSValue), AArgs);
end;
{ TRttiProperty }
constructor TRttiProperty.Create(AParent: TRttiType; ATypeInfo: TTypeMember);