mORMot Open Source

est ce que tu connais cette technique pour appeler une fonction locale par l'intermediaire d'un pointeur  ?

function MagicCaseOf(ABasePointer:Pointer; const AIndex:Integer; const AProcTab:array of TProcedure):Integer;overload;
begin
  if (AIndex >= Low(AProcTab)) and (AIndex <= High(AProcTab)) then
  begin
    Result := AIndex;
    asm push ABasePointer end;
    AProcTab[Result]();
    asm pop ABasePointer end;
  end
  else Result := -1;
end;

function MagicCaseOf(const AIndex:Integer; const AProcTab:array of TProcedure):Integer;
var
  BasePointer: Pointer;
begin
  asm push [ebp] end;       // BasePointer
  asm pop BasePointer end;

  Result := MagicCaseOf(BasePointer, AIndex, AProcTab);
end;

procedure TMainForm.Button1Click(Sender: TObject);
var
  Val0, Val1:Integer;
  value:Integer;
  procedure ExecProc0();
  begin
    ShowMessage('ExecProc0 ' + IntToStr(Val0));
  end;
  procedure ExecProc1();
  begin
    ShowMessage('ExecProc1 ' + IntToStr(Val1));
  end;
begin
  Val0 := 111;
  Val1 := 222;
  value := 1;
  if MagicCaseOf(value , [@ExecProc0,@ExecProc1]) = -1 then
    ShowMessage('else');
end;