关于delphi 的函数调用和参数传递方式深入研究之疑惑

最新推荐文章于 2025-01-28 00:06:22 发布
转载 最新推荐文章于 2025-01-28 00:06:22 发布 · 2.5k 阅读 · 0
文章标签：

#delphi #c #string #pascal #function #windows

本文探讨了Delphi与Windows API中不同的参数传递方式，包括cdecl、stdcall、pascal和fastcall，并通过具体实例展示了这些传递方式的具体应用及兼容性问题。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

关于delphi 的函数调用和参数传递方式深入研究

 

delphi 代码如下:

program Project1;

uses windows, SysUtils;


function a(d, dd: word; s, j, f: string): word;
begin
  d := d - 1;
  result := d + dd;
  messagebox(0, pchar(inttostr(d) + s), pchar(inttostr(dd)), $0);
end;

var s: string;

begin
  s := 'sssssssssss';
 { asm
    mov dx,$11
    mov ax,$33
    call a;
  end; }
  a($33, $11, 'sssss', s, s);
end.

 

汇编代码:
00407CA8   . 447C4000       DD Project1.00407C44
00407CAC > $ 55             PUSH EBP     //保存栈顶
00407CAD   . 8BEC           MOV EBP,ESP  //初始化堆栈
00407CAF   . 83C4 F0        ADD ESP,-10  //开辟10个字节的栈
00407CB2   . B8 6C7C4000    MOV EAX,Project1.00407C6C
00407CB7   . E8 34C7FFFF    CALL Project1.004043F0
00407CBC   . 33C0           XOR EAX,EAX  //EAX清0
00407CBE   . 55             PUSH EBP     //保存栈顶
00407CBF   . 68 037D4000    PUSH Project1.00407D03  //保存返回地址
00407CC4   . 64:FF30        PUSH DWORD PTR FS:[EAX]  //
00407CC7   . 64:8920        MOV DWORD PTR FS:[EAX],ESP  //
00407CCA   . B8 48984000    MOV EAX,Project1.00409848 
00407CCF   . BA 187D4000    MOV EDX,Project1.00407D18                ;  ASCII "sssssssssss"  //初始化局部变量
00407CD4   . E8 2FB9FFFF    CALL Project1.00403608  
00407CD9   . 68 2C7D4000    PUSH Project1.00407D2C                   ;  ASCII "jjjjjjjjjj" 
00407CDE   . 68 407D4000    PUSH Project1.00407D40                   ;  ASCII "ffffffffffff"
00407CE3   . B9 587D4000    MOV ECX,Project1.00407D58                ;  ASCII "sssss"
00407CE8   . 66:BA 1100     MOV DX,11
00407CEC   . 66:B8 3300     MOV AX,33
00407CF0   . E8 9BFEFFFF    CALL Project1.00407B90                   //调用函数
00407CF5   . 33C0           XOR EAX,EAX
00407CF7   . 5A             POP EDX
00407CF8   . 59             POP ECX
00407CF9   . 59             POP ECX
00407CFA   . 64:8910        MOV DWORD PTR FS:[EAX],EDX
00407CFD   . 68 0A7D4000    PUSH Project1.00407D0A
00407D02   > C3             RETN                                     ;  RET used as a jump to 00407D0A

00407D03   .^E9 D4B2FFFF    JMP Project1.00402FDC
00407D08   .^EB F8          JMP SHORT Project1.00407D02
00407D0A     E8             DB E8
00407D0B     B5             DB B5
00407D0C     B7             DB B7
00407D0D     FF             DB FF
00407D0E     FF             DB FF
00407D0F     00             DB 00
00407D10   . FFFFFFFF       DD FFFFFFFF
00407D14   . 0B000000       DD 0000000B
00407D18   . 73 73 73 73 73>ASCII "sssssssssss",0
00407D24   . FFFFFFFF       DD FFFFFFFF
00407D28   . 0A000000       DD 0000000A
00407D2C   . 6A 6A 6A 6A 6A>ASCII "jjjjjjjjjj",0
00407D37     00             DB 00
00407D38   . FFFFFFFF       DD FFFFFFFF
00407D3C   . 0C000000       DD 0000000C
00407D40   . 66 66 66 66 66>ASCII "ffffffffffff",0
00407D4D     00             DB 00
00407D4E     00             DB 00
00407D4F     00             DB 00
00407D50   . FFFFFFFF       DD FFFFFFFF
00407D54   . 05000000       DD 00000005
00407D58   . 73 73 73 73 73>ASCII "sssss",0


function a(d, dd: word; s, j, f: string): word;
函数的代码:

00407B90  /$ 55             PUSH EBP
00407B91  |. 8BEC           MOV EBP,ESP
00407B93  |. 6A 00          PUSH 0
00407B95  |. 6A 00          PUSH 0
00407B97  |. 6A 00          PUSH 0
00407B99  |. 53             PUSH EBX
00407B9A  |. 56             PUSH ESI
00407B9B  |. 57             PUSH EDI
00407B9C  |. 894D FC        MOV DWORD PTR SS:[EBP-4],ECX
00407B9F  |. 8BF2           MOV ESI,EDX
00407BA1  |. 8BD8           MOV EBX,EAX
00407BA3  |. 8B45 FC        MOV EAX,DWORD PTR SS:[EBP-4]
00407BA6  |. E8 49BDFFFF    CALL Project1.004038F4
00407BAB  |. 8B45 0C        MOV EAX,DWORD PTR SS:[EBP+C]
00407BAE  |. E8 41BDFFFF    CALL Project1.004038F4
00407BB3  |. 8B45 08        MOV EAX,DWORD PTR SS:[EBP+8]
00407BB6  |. E8 39BDFFFF    CALL Project1.004038F4
00407BBB  |. 33C0           XOR EAX,EAX
00407BBD  |. 55             PUSH EBP
00407BBE  |. 68 317C4000    PUSH Project1.00407C31
00407BC3  |. 64:FF30        PUSH DWORD PTR FS:[EAX]
00407BC6  |. 64:8920        MOV DWORD PTR FS:[EAX],ESP
00407BC9  |. 4B             DEC EBX
00407BCA  |. 8D3C1E         LEA EDI,DWORD PTR DS:[ESI+EBX]
00407BCD  |. 6A 00          PUSH 0
00407BCF  |. 8D55 F8        LEA EDX,DWORD PTR SS:[EBP-8]
00407BD2  |. 0FB7C6         MOVZX EAX,SI
00407BD5  |. E8 5AD6FFFF    CALL Project1.00405234
00407BDA  |. 8B45 F8        MOV EAX,DWORD PTR SS:[EBP-8]
00407BDD  |. E8 22BDFFFF    CALL Project1.00403904
00407BE2  |. 50             PUSH EAX
00407BE3  |. 8D55 F4        LEA EDX,DWORD PTR SS:[EBP-C]
00407BE6  |. 0FB7C3         MOVZX EAX,BX
00407BE9  |. E8 46D6FFFF    CALL Project1.00405234
00407BEE  |. 8D45 F4        LEA EAX,DWORD PTR SS:[EBP-C]
00407BF1  |. 8B55 FC        MOV EDX,DWORD PTR SS:[EBP-4]
00407BF4  |. E8 33BCFFFF    CALL Project1.0040382C
00407BF9  |. 8B45 F4        MOV EAX,DWORD PTR SS:[EBP-C]
00407BFC  |. E8 03BDFFFF    CALL Project1.00403904
00407C01  |. 50             PUSH EAX                                 ; |Text
00407C02  |. 6A 00          PUSH 0                                   ; |hOwner = NULL
00407C04  |. E8 23C9FFFF    CALL <JMP.&user32.MessageBoxA>           ; MessageBoxA  //这里stdcall方式调用messagebox
00407C09  |. 33C0           XOR EAX,EAX
00407C0B  |. 5A             POP EDX
00407C0C  |. 59             POP ECX
00407C0D  |. 59             POP ECX
00407C0E  |. 64:8910        MOV DWORD PTR FS:[EAX],EDX
00407C11  |. 68 387C4000    PUSH Project1.00407C38
00407C16  |> 8D45 F4        LEA EAX,DWORD PTR SS:[EBP-C]
00407C19  |. BA 03000000    MOV EDX,3
00407C1E  |. E8 B5B9FFFF    CALL Project1.004035D8
00407C23  |. 8D45 08        LEA EAX,DWORD PTR SS:[EBP+8]
00407C26  |. BA 02000000    MOV EDX,2
00407C2B  |. E8 A8B9FFFF    CALL Project1.004035D8
00407C30  . C3             RETN

 

 

debug registers :
eax 00000000
ecx 00010101
edx ffffffff
ebx 7ffdf000
esp 0012ffc0  
ebp 0012fff0
esi 00000000
edi 0012d870
eip 00407cad project1.<ModuleEntryPoint>

 

.参数传递方式:
Delphi中有自己的参数传递方式,而Windows API也有自己的参数传递方式,那么他们之间有什么不同呢,要如何做到兼容呢,尤其是在编写动态库时?
(1)cdecl:
通常是C/C++所使用的参数传递方式,它的传递方式是由右到左,而且当被调用的函数结束之后,将会由调用函数本身来清除堆栈上的参数数据.
(2)stdcall:
参数传递方式,也是由右到左,但是当被调用的函数结束之后,则是由被调用函数来清除堆栈上的参数数据,Win32API所有的输出函数都是采用此中参数传递方式
(3)pascal:
是Delphi1.0与win16API所使用的参数传递方式,它的传递方式是由左到右,而且由被调用函数来清除堆栈上的参数数据.
(4)fastcall:
是Delphi默认所使用的参数传递方式,此种方式在传递参数时把前三个参数放在CPU的EAX,EDX,ECX三个缓存器种,剩下的参数则会由左到右地被取出放到堆栈中,而当被调用的函数结束之 后,则是由被调用函数来清除堆栈上的参数数据.
注:所以在引用C++动态库中的函数时,要注意参数的传递方式,一般使用stdcall.还要注意字符串类型,C++在传递字符串时,都是采用字符指针的类型(Char *),所以你在Delphi的程序中就必 须使用PCHAR类型,而不是string类型.

 
【Delphi 基础知识 39】函数过程传递参数的几种方式
记录日常技术经验
03-02 531
【代码】【Delphi 基础知识 39】函数过程传递参数的几种方式。
Delphi 将函数作为参数进行调用.rar
07-10
Delphi 将函数作为参数进行调用，在本例中，将完成函数参数的性质转变，相加或相减，运行出不同的结果，在制作计算器的时候，尤其有用，具体代码： 　　procedure TForm1.RunProc(ParaA, ParaB: Integer; FunType: TFunctionType); 　　begin 　　 Edit3.Text := IntToStr(FunType(ParaA,ParaB)); 　　end; 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 RunProc(StrToInt(Edit1.Text),StrToInt(Edit2.Text),Add); 　　end; 　　procedure TForm1.Button2Click(Sender: TObject); 　　begin 　　 RunProc(StrToInt(Edit1.Text),StrToInt(Edit2.Text),Sub); 　　end;
delphi参数传递
ly930156123的博客
09-07 3692
delphi参数传递 参数传递     声明/实现一个过程使用的参数称为形式参数（简称形参），调用过程时传入的参数称为实际参数（简称实参）。 { Info是形参} procedure ShowInfo(Info: String); begin   ShowMessage(Info); end; var   S: String; begin   S := 'lx
Delphi 参数传递
Vigor's Blog
01-21 4466
1.数值参数  变量和结构被完全拷贝到堆栈中,调用函数接受到的只是一个副本.数值参数传递方式是Delphi的默认方式,也是其他大部分语言的默认参数传递方式(比如C++,VC,java...).形式: function  myFunc(object:TObject):Byte;          procedure myProc(object:TObject);PS:堆栈可以这样理解,每次函数或过程
Delphi中调用API函数经验点滴
weixin_34362790的博客
12-21 243
在Delphi中调用Windows API 函数十分方便，只需在单元的uses段加入Windows 单元名即可（对于由Delphi自动创建的单元，该项工作已经完成）。单元Windows.pas 已经由Delphi编写并直接提供开发者引用。笔者在开发Windows 应用时对于几个特别的API函数总结了一些经验供大家参考。以下开发经验均在Windows 9x中适用。 一、关闭...
在DELPHI中把函数作为参数传递
06-02 2050
    有时候我们需要在一个函数内进行的操作依赖与另外一个函数，在C#中，开发者提供了委托机制，那么在DLEPHI中呢？    其实很简单    下面我么用个简单的例子来说明：type  AFunctionType = function(value: integer) : integer;//首先你要定义一个类型function AddProc(value: integer)
有用 delphi函数
06-21
参数是在函数调用时传递给函数的值。例如，一个接受两个整数并返回它们之和的函数可能如下所示： ```delphi function AddNumbers(a, b: Integer): Integer; ``` 在这个例子中，`a`和`b`是参数，`Integer`是它们...
dll3_researchleq_delphiDLL传参数_往dll中写字符_源码
10-04
本主题聚焦于“dll3_researchleq_delphiDLL传参数_往dll中写字符_源码”，将深入探讨如何在Delphi环境下创建DLL，并实现主程序向DLL传递参数以及在DLL中写入字符的功能。 首先，我们需要了解Delphi DLL的基础知识。...
用delphi开发的通用动态库调用程序（带源码）
07-16
总之，通过这个Delphi开发的通用动态库调用程序，我们可以学习到DLL的创建、导出函数的定义、动态加载和调用的实现方法，以及不同类型的参数处理。这是一项基础但至关重要的技能，对于任何需要进行跨程序共享代码的...
Delphi7与C#实现Des加解密互通Demo,全网找遍只次一份
07-12
这里的关键在于，Delphi和C#的密钥和初始化向量的表示方式必须一致，通常都是以字节数组的形式传递。 实现互通性的一个主要挑战在于数据类型和编码的转换。Delphi使用PChar和AnsiString，而C#则使用字符串和byte...
Delphi函数的内存管理和最佳实践
本文首先概述了Delphi函数的基本概念，随后深入探讨了其内存管理基础，包括内存分配机制、内存管理工具以及常见问题。第二部分侧重于Delphi函数内存管理的实践，涉及自定义内存管理策略、函数指针及匿名
delphi通过函数名动态调用函数的方法（方便功能的扩展）
疯流人物
04-19 963
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TMyCacl = class(TObject) public { Public declarations } ...
Delphi中的参数传递方式
敦格
10-30 3171
.参数传递方式:         Delphi中有自己的参数传递方式,而Windows API也有自己的参数传递方式,那么他们之间有什么不同呢,要如何做到兼容呢,尤其是在编写动态库时?  (1)cdecl:     通常是C/C++所使用的参数传递方式,它的传递方式是由右到左,而且当被调用的函数结束之后,将会由调用函数本身来清除堆栈上的参数数据.  (2)stdcall:     参数传递方式,也
Delphi常用的4种过程函数传递参数的方式
PleaseGo的博客
02-01 1098
Delphi常用的4种过程函数传递参数的方式
delphi 调用系统函数例子
corning的专栏
10-12 697
//声明要调用的函数类型   function GetName(hModul:HINST;lpFileName:PAnsiChar;nSize:DWORD):DWORD;stdcall; //函数的实现   function GetName;external 'KERNEL
Delphi语言的函数实现
最新发布
2501_90406404的博客
01-28 1395
在编程中，函数是一组执行特定任务的代码块。函数接收输入（参数），并返回一个输出（返回值）。函数可以提高代码的重用性和可读性，减少代码的重复性。通过将特定的逻辑封装在函数中，程序员可以轻松管理和维护代码。delphifunction 函数名(参数列表): 返回类型;begin// 函数体end;在这里，AddNumbers函数接收两个整数参数a和b，返回它们的和。Result是在Delphi中用于返回值的特殊变量。
Delphi函数详解:全局函数,内部函数,类的成员函数,类的静态方法
wozengcong的专栏
02-27 6091
1. Delphi中的全局函数 //要点: 需要给其他单元调用, 必须在 interface 声明, 但必须在 uses 区后面 unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type
Delphi语言学习6-函数参数
weixin_34185560的博客
02-12 259
1.参数定义方式 Code functionPower(X:Real;Y:Integer):Real; //(X,Y:Real) //(varS:string;X:Integer) //(HWnd:Integer;Text,Caption:PChar;Flags:Integer) //(constP;I:Integer) 2.引用类型和值类型 ...
Delphi 函数和过程的参数问题
hhhfff2010的专栏
02-01 802
Delphi 函数和过程的参数问题 {默认参数是传值, 不会被改变}function MyF1(x: Integer): Integer;begin Inc(x); Result := x;end;{var参数是传地址,参数会被改变，而且参数只能是变量}function MyF2(var x: Integer): Integer;begin Inc(x); Res
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值