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

* Fix registry search for method name

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-12-20 13:26:08 +01:00
parent fd29f25bf1
commit 87a785daa0
1 changed files with 11 additions and 5 deletions

16
packages/fcl-web/src/jsonrpc/fpjsonrpc.pp
View File

@ -1095,7 +1095,7 @@ begin
If Assigned(Owner) and ((AClassName='') or (CompareText(AClassName,Owner.name)=0)) then
begin
I:=0;
While (Result=Nil) and (I<ComponentCount) do
While (Result=Nil) and (I<Owner.ComponentCount) do
begin
C:=Owner.Components[i];
If (C is TCustomJSONRPCHandler) and SameText(TCustomJSONRPCHandler(C).RPCMethodName,aMethodName) then
@ -1530,6 +1530,7 @@ Var
AClass : TCustomJSONRPCHandlerClass;
DM : TDataModule;
C : TComponent;
I : Integer;
begin
Result:=Nil;
@ -1539,10 +1540,15 @@ begin
{$ifdef wmdebug}SendDebug(Format('Creating datamodule from class %d ',[Ord(Assigned(FDataModuleClass))]));{$endif}
DM:=FDataModuleClass.Create(AOwner);
{$ifdef wmdebug}SendDebug(Format('Created datamodule from class %s ',[DM.ClassName]));{$endif}
C:=DM.FindComponent(FHandlerMethodName);
If (C<>Nil) and (C is TCustomJSONRPCHandler) then
Result:=TCustomJSONRPCHandler(C)
else
I:=0;
While (Result=Nil) and (I<DM.ComponentCount) do
begin
C:=DM.Components[i];
If (C is TCustomJSONRPCHandler) and SameText(TCustomJSONRPCHandler(C).RPCMethodName,FHandlerMethodName) then
Result:=TCustomJSONRPCHandler(C);
inc(I);
end;
If Result=Nil then
begin
FreeAndNil(DM);
JSONRPCError(SErrUnknownJSONRPCMethodHandler,[FHandlerMethodName]);