小弟用DELPHI 寫DLL小程式 library TestDLL; function IsTest(PassWord:string):string; var i:integer; PassWordState:string; begin PassWordState:=''; For i:=0 to 5 do PassWordState:=PassWordState 'A'; Result:=PassWordState; end; exports IsTest index 1; begin end. 編輯此程式無誤 用語呼叫程式 unit CallDLLU; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; 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} function IsTest(PasswORD:string):string; external 'TestDLL.DLL'; procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:=IsTest('1234'); end; end. 執行時卻出現 Invalid pointer operation 錯誤訊息

1. String 改為 PCHAR 。 2. 或 Uses sharemem 單元    另外在DLL 使用請加上 StdCall function IsTest(PassWord:string):string;stdcall; 發表人 - wameng 於 2004/10/25 20:43:17

方法二:uses sharemem例

[code delphi]
= = = = = AP: = = = = = = = = = =
program Project1;
uses
ShareMem, Forms,
CallDLLu in 'CallDLLu.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
- - - - - - - - - - - - - - - - -
unit CallDLLU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
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}
function IsTest(PasswORD:string):string; stdcall;
external 'TestDLL.DLL';
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IsTest('1234');
end;
end.
=====TestDLL.dpr=====
library TestDLL;
uses ShareMem;
function IsTest(PassWord:string):string; stdcall;
var
i:integer;
PassWordState:string;
begin
PassWordState:='';
For i:=0 to 5 do PassWordState:=PassWordState 'B';
Result:=PassWordState;
end;
exports
IsTest;
begin
end.
[/code]

===================引 用 wameng 文 章===================
1. String 改為 PCHAR 。 2. 或 Uses sharemem 單元 另外在DLL 使用請加上 StdCall function IsTest(PassWord:string):string;stdcall; 發表人 - wameng 於 2004/10/25 20:43:17

------
What do we live for if not to make life less difficult for each other?