Delphi 的 Dll 函数的 调用
一、Dll建立
（一）DLL项目的建立
library mydll;
uses
base in 'base.pas';
exports
Triple name 'Tr';
{$R *.res}
begin
end.
（二）函数单元
unit base;
interface
uses windows;
function Triple(N:integer):integer;stdcall;
implementation
function Triple(N:integer):integer;stdcall;
begin
result:=n*3;
end;
end.
二、静态调用
unit Unit1;
interface
uses
Windows, SysUtils, Controls, Forms,
StdCtrls, Classes;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
const
gdi32='mydll';
function triple(n:integer):integer;stdcall;external gdi32 name 'Tr';
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=inttostr(triple(10));
end;
end.
三、动态调用
unit Unit2;
interface
uses
Windows, SysUtils, Controls, Forms,
StdCtrls, Classes;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
type
Taddc=function(n:integer):integer;stdcall;//定义函数指针
var
Handle:Thandle;
addc:Taddc;
begin
Handle:=LoadLibrary('mydll.dll');//加载mydll
if Handle>32 then
begin
@addc:=GetProcAddress(Handle,'Tr'); //取Tr函数入口地址，大小写敏感。Tr为mydll中的Triple的exports 的name命名
if @a
相关文档：
VC声明
HANDLE CreateMutex(
LPSECURITY_ATTRIBUTES lpMutexAttributes, // SD
BOOL bInitialOwner, // initial owner
LPCTSTR lpName // object name
);
delphi声明：
function CreateMutex(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PChar): THandle; stdcall;
创� ......
一个友好的用户界面,必须具有下拉菜单，弹出菜单，工具条和快捷键。同样一个功能，程序员可能要提供几种操作方式，如文本拷贝，菜单命令&Copy,快捷键Ctrl+C,工具条上的拷贝按钮，都是程序员提供给用户的操作，可以大大方便了不同层次的用户。但是，多增加一种操作方式，就意味着增加响应事件的代码� ......
Delphi通过向导可以非常迅速和方便的直接建立实现COM对象的代码，但是整个COM实现的过程被完全的封装，甚至没有VCL那么结构清晰可见。一个没有C++下COM开发经验甚至没有接触过COM开发的Delphi程序员，也能够很容易的按照教程设计一个接口，但是，恐怕深入一想，连生成的代码代表何种意义，哪些能够定制都不清楚。前几期 &ld ......
DELPHI 指针使用用的一篇好文 收藏
Delphi里自己管理内存的两对函数 new(),dispose()和getmem(),freemem()
大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。� ......
Delphi7 调用 C#的Webservice 不能传入参数
解决办法：
在Delphi导入WSDL后生成的单元的最后一行，即initialization里的初始化端口的代码中加入代码
InvRegistry.RegisterInvokeOptions(TypeInfo(接口名), ioDocument);
即可
......
