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')是接口的初始化函数。delphitype@funfunction()
解决方案 »
- 用ADO连接 sql2000出现的列名“xxx”无效 的问题,在线等。。。谢谢
- 唉,俺的技术网站怎么就没人访问涅...
- 有关USB口编程问题
- 请问TTcpServer怎么向TTcpClint发信息?,为什么D7的TClintSocket和TServerSocket都不见了?
- 当delphi连接一个错误的connectionstring时,如何提高其提示速度.
- 用delphi做分布式,希望高手们都来探讨:
- 池化com+组件在异常抛出后不能rollback数据库操作的问题?我和ytwxw (wxw) 讨论未果,再次发贴
- delphi的打印问题:双面打印时怎样实现左右翻页的功能啊
- delphi&dbgrid
- 帮帮我!怎样在win2k中将D:或某个分区设共享!以前只有win9x的,win2k没有解决!分不够另开贴!
- 字符指针分配内存,还请高手帮忙解决,谢谢!
- 文件透明加密——加密标识
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;
函数定位 @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;