动态库的函数调用

type xx = function(): string; stdcall;是什么意思解决方案

type xx = function(): string; stdcall;是什么意思

function xx(): string;
type
  xx= function(): string; stdcall;
var
  func: xx;
begin
  Result := '0';
  @func := yy('xx');
  if Assigned(@func) then
  begin
    Result := func();
  end;
end;

如上：我想知道每一步代表什么意思，求大神告诉啊。其中的 yy('xx')是接口的初始化函数。

delphi type @fun function()

分享到：

------解决方案--------------------

function xx(): string; // 定义一个 xx 函数
type
  xx= function(): string; stdcall;// 定义一个名为xx的函数指针类型
var
  func: xx; // 声明一个名叫func、类型为xx的函数指针变量
begin
  Result := '0'; 
  @func := yy('xx');// func函数指针指向yy这个函数 
  if Assigned(@func) then // 如果func成功指向yy这个函数
  begin
    Result := func(); 执行func这个函数指针指向的函数，并返回其返回值
  end;
end;

------解决方案--------------------
DLL动态调用就是这么弄的
函数定位 @func := yy('xx'); 
------解决方案--------------------

定义了函数指针，多数用于动态库的调用场合；如下示例：

procedure TFrmFirewatcherDllTest.btnCmdStartTestClick(Sender: TObject);
type  pStartCmd=function (pbuff:PChar;nLen:Word):integer; stdcall;
var
  hDll:Cardinal;
  startCmd:pStartCmd;
  arrCmd:array [0..255] of Char;
  nLen:Word;
  i:Integer;
  str:string;
begin
  btnCmdStartTest.Enabled := False;
  hDll := LoadLibrary('..\SourceDLL\FirewatcherDLL.dll');
  try
    if hDll>32 then
    begin
      @startCmd := GetProcAddress( hDll,'START');
      if Assigned( startCmd ) then
      begin
        nlen :=  startCmd( arrCmd, 256 );
        for i:= 0 to nLen-1 do
        begin
          str := str +' '+ IntToHex( Ord(arrcmd[i]), 2 );
        end;
        Memo1.Lines.Add(IntToStr( Memo1.Lines.Count+1)+ ' 【开机】指令长度:'+inttostr(nLen)+ '; 指令数据:'+quotedstr( trim( str ) )       )
      end;
    end;

  finally
    FreeLibrary( hDll );
    btnCmdStartTest.Enabled := True;
  end;
end;