久久精品综合网中文字幕

久久精品综合网中文字幕

让建站和SEO变得简单

让不懂建站的用户快速建站,让会建站的提高建站效率!

精品久久久久久久图片,野外和少妇约会野战在线观看

发布日期:2022-10-25 08:54    点击次数:160

精品久久久久久久图片,野外和少妇约会野战在线观看

建造出邃晓信DLL接口函数编程的Delphi系统形式是何如的呢?需要在意什么?确信这亦然好多建造者的烦嚣,其果真一般情况下,DLL函数结构的编程形式如下:

1. zfm提供了数据界说文献TDX_PLUGIN_TCALC_FUNC.pas。

针对type :

//函数指针类型(数据个数,输出,输入a,输入b,输入c),参数的筹算是基于长度为DataLen 的float类型数组。

TPluginFUNC=procedure(DataLen:integer;out pfOUT:single;

var pfINa:single;var pfINb:single;var pfINc:single);cdecl; //务必取舍cdecl调用

精品久久久久久久图片

//用来存放用户我方的函数pCallFunc和函数惟一象征nFuncMark;

//pCallFunc是TPluginFUNC类型指针,.

TPluginTCalcFuncInfo=packed record

nFuncMark:word;//函数编号

pCallFunc:TPluginFUNC ;//函数指针

end;

PpluginTCalcFuncInfo=^TPluginTCalcFuncInfo; //指向记载类型的指针

//测试函数

//方向函数参数别离是(数据个数,输出,输入a,输入b,输入c),参数的筹算是基于长度为DataLen 的float类型数组。

// 输出,输入a,输入b,输入c,这四个参数都是指针数组

procedure TestPlugin1(DataLen:integer;out pfOUT:single; //第1个函数

婆婆把我的胎盘做成煎饼给我老公吃了,我老公至今不知情

var pfINa:single;var pfINb:single;var pfINc:single) ;cdecl; //务必取舍cdecl调用

procedure TestPlugin2(DataLen:integer;out pfOUT:single; //第2个函数

var pfINa:single;var pfINb:single;var pfINc:single) ;cdecl; //务必取舍cdecl调用

//可增多到10个函数

//RegisterTdxFunc函数为注册函数,用户的函数一路都放入PluginTCalcFuncInfo结构的全局数组g_CalcFuncSets中。

function RegisterTdxFunc(var pFun:PpluginTCalcFuncInfo):boolean;cdecl ; //务必取舍cdecl调用

var

//PluginTCalcFuncInfo结构的全局数组,用来存储DLL导出的函数指针.

//确认实质导出函数的数目笃定数组下标领域,

//导出2个,下标为0..2 ;导出10个,下标为0..10;

野外和少妇约会野战在线观看

g_CalcFuncSets:array[0..2]of TPluginTCalcFuncInfo;

2. 包括注册DLL函数基本信息。

注册函数称号为RegisterTdxFunc。具体函数实例可参见TDX_PLUGIN_TCALC_FUNC.pas法子。

//RegisterTdxFunc函数为注册函数,用户的函数一路都放入PluginTCalcFuncInfo结构的全局数组g_CalcFuncSets中。

function RegisterTdxFunc(var pFun:PpluginTCalcFuncInfo):boolean;cdecl ;//务必取舍cdecl调用

begin

if pFun=nil then

begin

pFun:=@g_CalcFuncSets[0]; //取第一个元素的地址 回传给变量

result:=True;

end else result:=False;

end;

initialization

//运行化g_CalcFuncSets数组 ,//加载的函数

g_CalcFuncSets[0].nFuncMark:=1; g_CalcFuncSets[0].pCallFunc:=TestPlugin1; //第一个函数

g_CalcFuncSets[1].nFuncMark:=2; g_CalcFuncSets[1].pCallFunc:=TestPlugin2; //第二个函数

g_CalcFuncSets[2].nFuncMark:=0; g_CalcFuncSets[2].pCallFunc:=nil; //结果

编程结果细节评释:

TDX_PLUGIN_TCALC_FUNC.pas文献中PluginTCalcFuncInfo结构用来存放用户我方的函数pCallFunc和函数惟一象征nFuncMark;

pCallFunc是procedure(DataLen:integer;out pfOUT:single; var pfINa:single;var pfINb:single;var pfINc:single);cdecl;类型指针;函数参数别离是(数据个数,输出,输入a,输入b,输入c),参数的筹算是基于长度为DataLen 的float类型数组。

编程结果评释

但要在意RegisterTdxFunc函数为注册函数下面插插好爽视频,用户的函数一路都放入PluginTCalcFuncInfo结构的全局数组g_CalcFuncSets中。

发布于:广东省声明:该文视力仅代表作家本身,搜狐号系信息发布平台,搜狐仅提供信息存储空间就业。