关于dll问题(100分)

深

深圳shi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-10

• #1

我的dll
procedure Hobbit (var str: string)
stdcall;
begin
str := '12345';
end;
exports
Hobbit index 1；

调用
procedure Hobbit (var str: string)
stdcall
external 'Entry_Dll.dll' index 1;


调用时出现" invalid pointer operation" 错误
为什么？

 

积

积步

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-10

• #2

ShareMM.DLL

 

深

深圳shi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-10

• #3

sharemem单元还是不行

 

积

积步

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-10

• #4

procedure Hobbit (str: PChar)
stdcall;

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-10

• #5

不用 index 1 不可以吗

 

深

深圳shi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-10

• #6

还是不行，我把以前的delphi6的程序(以前运行正常)拿出来，出同样的错误!

 

P

pihome

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-12

• #7

Dll中最好还是不要用String，否则需要在工程第一位置引用ShareMem，用下面方法试试
procedure Hobbit (str: PChar)
stdcall;
var
s: String;
begin
s:='12345';
Move(s[0],str^,Length(s));
end;

exports
Hobbit index 1；

调用：
procedure Hobbit (str: PChar)
stdcall
external 'Entry_Dll.dll' index 1;

var
Str: String;
begin
SetLength(Str,5)
//先分配足够的长度
Hobbit(@Str[1]);
ShowMessage(Str);
end;