客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
Delphi DLL 的编写 By Shaoyun 2010-03-18
最近打算继续学习Delphi，平常很少用，现在又有很长时间没动了！顺便将学习的内容写下来备忘！ 例子代码：
代码
1 library SYLib;
2 uses 3 SysUtils,Classes; 4 {$R *.res} 5 function Max(x:Integer; y: Integer):Integer;stdcall; 6 begin 7 if x>y then 8 Result:= x 9 else 10 Result:= y; 11 end; 12 13 exports 14 Max; 15 16 begin 17 end. Dephi为fastcall调用方式，C/C++是stdcall调用，为了DLL能让这些程序调用，最好声明为stdcall类型，exports导出函数，不导出是没法调用的！ 调用方法有静态和动态两种：
静态调用，也是最常用的一种方法
在var后声明
function Max(x:Integer;y:Integer):Integer;stdcall; external 'SYLib.dll'
调用和平常一样，如下： procedure TForm1.btn1Click(Sender: TObject);
begin ShowMessage(IntToStr(Max(2,3))); end; 动态调用，麻烦些：
1 procedure TForm2.btn1Click(Sender: TObject);
2 type 3 TFunType=function(x:Integer;y:Integer):Integer;stdcall; 4 var 5 dllHandle:THandle; 6 pfun:TFarProc; 7 _Max:TFunType; 8 begin 9 dllHandle:= LoadLibrary('SYLib.dll'); 10 if dllHandle>0 then 11 try 12 pfun:=GetProcAddress(dllHandle,PAnsiChar('Max')); 13 if pfun<>nil then 14 begin 15 _Max:=TFunType(pfun); 16 ShowMessage(IntToStr(_Max(2,3))); 17 end 18 else 19 ShowMessage('没有找到Max函数！'); 20 finally 21 FreeLibrary(dllHandle); 22 end 23 else 24 ShowMessage('没有找到SYLib.dll！'); 25 end; 暂时就这些！ Delphi2010 / Windows SP3 下测试！ |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论