delphi 製作 .dll 動態鏈結庫，封裝常用的函式。
1，建立 dll 檔案：
建立工程 檔案 mydll.dpr：
library mydll;
uses
sysutils, classes, graphics, controls, forms, dialogs, stdctrls;
/procedure mymsg(const smsg: pchar); stdcall;
begin
showmessage(smsg);
end;
/function myleftstr(str: pchar; i: integer): pchar; stdcall;
begin
result :=pchar(copy(str,1,i));
end;
/function myrightstr(str: pchar; i: integer): pchar; stdcall;
begin
result :=pchar(copy(str,length(str)-i+1,255));
end;
function myspaces(n: integer): pchar; stdcall;
vari: integer;
s: string;
begin
if n<=0 then
begin
result := pchar('');
exit;
end;
s := '';
for i := 1 to n do
s := s + ' ';
result := pchar(s);
end;
begin
end.
按 ctrl+f9編譯，生成 mydll.dll 檔案。
2，呼叫 dll:
unit unit1;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls;
type
tform1 = class(tform)
edit1: tedit;
button1: tbutton;
button2: tbutton;
procedure button1click(sender: tobject);
private
public
end;
tmyspc = function(n: integer): pchar;
varform1: tform1;
implementation
end.
注意：函式的引數和返回值為 string 型別時，用 pchar 代替。
**測試環境：
作業系統：windows server 2003，delphi7.0
作者微博：
「十萬個為什麼」電腦學習網：
用Delphi製作DLL的方法
用delphi製作dll的方法 一 dll的製作一般步驟 二 引數傳遞 三 dll的初始化和退出清理 如果需要初始化和退出清理 四 全域性變數的使用 五 呼叫靜態載入 六 呼叫動態載入 七 在dll建立乙個tform 八 在dll中建立乙個 ichildform 九 示例 十 delphi製作的dl...
用Delphi製作DLL的方法
用delphi製作dll的方法 一 dll的製作一般步驟 二 引數傳遞 三 dll的初始化和退出清理 如果需要初始化和退出清理 四 全域性變數的使用 五 呼叫靜態載入 六 呼叫動態載入 七 在dll建立乙個tform 八 在dll中建立乙個 ichildform 九 示例 十 delphi製作的dl...
Delphi呼叫C 編寫的動態鏈結庫dll的方法
首先宣告這個dll中的函式，然後就可以直接呼叫了 function addnum num1,num2 integer integer stdcall external project1.dll name addnumber function addnum num1,num2 integer inte...