各位大大：

我是剛學寫DLL的人，我在程式中寫了一個Function,經測試是沒問題的，我把那個Function移到DLL中，就會出現'Invalid Pointer Operation'的錯誤訊息，寫DLL時要注意那些事情，麻煩各位大大幫忙一下，感恩。


此段為呼叫DLL程式
[code delphi]
var
Form1: TForm1;
function FillZero(Len : integer;var Str : string) : Integer; far ; external'd:\dll\projPubDll.Dll' Name 'FillZero';
//function FillZero(Len : integer;var Str : String) : Integer;
implementation
{$R *.dfm}
{function FillZero(Len : integer;var Str : String) : Integer;
var
i,FLen : Integer;
begin
result := -1;
FLen := Length(Str);
for i := Flen to Len-1 do
Str := '0' Str ;
result := 0;
end; }
procedure TForm1.Button1Click(Sender: TObject);
var
S : String;
i : Integer;
begin
try
strtoint(edit1.Text);
S := (Edit1.Text);
except
exit;
end;
i := FillZero(5,S);
Edit1.Text := S;
end;

[/code]
此段為DLL內容
[code delphi]
function FillZero(Len : Integer;var Str : String) : Integer; export;
implementation
function FillZero(Len : integer;var Str : String) : Integer;
var
i,FLen : Integer;
begin
result := -1;
FLen := Length(Str);
for i := Flen to Len-1 do
Str := '0' Str ;
result := 0;
end;
[/code]

------
Ken Hsueh

請在你的Host Project以及Dll Project的首引用單元中都添加 ShareMM 引用。


如：
[code delphi]
library projPubDll;

uses
ShareMem,
SysUtils,
Classes;

//---------------------

program Project1;

uses
ShareMem,
Forms,
Unit1 in 'Unit1.pas' {Form1};
[/code]

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

感謝您的回覆，我按照您的說明去作，在程式執行時已無問題，可是程式Close是仍會出現相同的錯誤訊息。

------
Ken Hsueh

===================引 用 ken77 文 章===================
非常謝謝您的幫忙，我自己犯了一個錯誤，沒把ShareMEM放在一第個位置，看了Help以後才知道，在次感謝您。
----------------------------------------------------------------------------------------------------------------------------------------------
感謝您的回覆，我按照您的說明去作，在程式執行時已無問題，可是程式Close是仍會出現相同的錯誤訊息。

------
Ken Hsueh

 前段時間,我也犯過這樣的錯誤,謝謝樓上的樓上指點!