代码之家 › 专栏 › 技术社区 › Johan

我可以将类/记录方法链接到外部模块吗?

delphi

Johan · 技术社区 · 6 年前

在Delphi中,我可以像这样链接到外部代码:

   {$L 'C:\Users\Johan\Documents\Embarcadero\Studio\Projects\Life64\Lazarus\lib\x86_64-win64\AVXGenerate.o'}

function GenerateQtoP_AVX_32(main, N,W,NW: pointer): byte;
  external name 'AVXGENERATE_$$_GENERATEQTOP_AVX_32$POINTER$POINTER$POINTER$POINTER$$BYTE';
function GeneratePtoQ_AVX_32(main, S,E,SE: pointer): byte;
  external name 'AVXGENERATE_$$_GENERATEPTOQ_AVX_32$POINTER$POINTER$POINTER$POINTER$$BYTE';
procedure ReverseBitsInAllBytes(ReverseMe: pointer);
  external name 'AVXGENERATE_$$_REVERSEBITSINALLBYTES$POINTER';

在本例中,它链接到我在Lazarus中编写的AVX2汇编代码。

有没有一种方法可以用这种方式链接类或记录的成员方法?

类似于以下伪代码:

type
  TMyRec = record
  public
    procedure DoSomething(x,y: integer) = ExternalMethod;

1 回复 | 直到 6 年前

David Heffernan 6 年前

你不可能做你想做的事。我认为您能管理的最接近的方法可能是使用汇编程序实现方法,跳转到外部函数:

type
  TMyRec = record
  public
    procedure DoSomething(x, y: integer);
  end;

procedure MyRecDoSomething(var Self: TMyRec; x, y: integer); external;

procedure TMyRec.DoSomething(x, y: integer);
asm
  JMP MyRecDoSomething
end;

或者您可以使用内联方法:

type
  TMyRec = record
  public
    procedure DoSomething(x, y: integer); inline;
  end;

procedure MyRecDoSomething(var Self: TMyRec; x, y: integer); external;

procedure TMyRec.DoSomething(x, y: integer);
begin 
  MyRecDoSomething(Self, x, y);
end;

打电话时 TMyRec.DoSomething ,第一个版本的调用后面跟着跳转(使用 asm )对于第二个版本(使用 inline )直接对外部函数进行单个调用。

推荐文章

Some1Else · 函数在Delphi中重新创建TForm

3 年前

MarkoZaaz · Delphi TwebuUpdate E2003未声明的标识符_WIN32_FIND_数据

3 年前

Agmcz · Delphi安卓库。so未安装(AAB)

3 年前

nader · 如何使用delphi在web上提交表单

7 年前

Freddie Bell · Delphi中的位补码。(翻译C#运算符)

7 年前

kwadratens · Delphi中的卡方分布函数代码

7 年前

user9672569 · 如何从确定的点向ListView的第三列添加数据?

7 年前

user9672569 · 如何在完整的位图图像中绘制阴影效果?

7 年前

mmmm · MSBuild(用于Delphi)Make-like功能

7 年前

Den · TabTip的大小和位置。Windows 10上的exe(虚拟键盘)?

7 年前