关于Delphi中的DLL ( 积分: 50 )

Z

zhi_dian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-10

• #1

DLL中是不是不能传String，那如果一定要传，应该怎么解决？？

 

Z

zhi_dian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-10

• #2

DLL中是不是不能传String，那如果一定要传，应该怎么解决？？

 

G

gooodlife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-10

• #3

//传String 是可以的,不过在 调用和DLL的单元中都要加入
//这样就非Delphi的环境下就可能不可以调用 这个DLL的了
uses
ShareMem,

//
//不过我建议不要传送 String 参数,全都改成传 PChar 的参数,就可以了
//接收入再进行类型传换就可以

//有什么不明可以问我,我自认为对DLL的认识还是有一点的

 

Z

zhi_dian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-10

• #4

function Untie(pwd1:string):string;
var i:integer;
pwd2:string;
begin
pwd2:='';
i:=1;
while i<=length(pwd1) do
begin
pwd2:=pwd2+chr(trunc(ord(pwd1)/2)+ord(pwd1[i+1])-48);
i:=i+2;
end;
result:=pwd2;
end;
那我这个该怎么改？

 

G

gooodlife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-10

• #5

定义
function Untie(pwd1: PChar)Char;
var i:integer;
pwd2:string;
TempPwd1 : String;
begin
if pwd1 = Nil then
TempPwd1 := ''
else
TempPwd1 := String(pwd1);
pwd2:='';
i:=1;
while i<=length(pwd1) do
begin
pwd2:=pwd2+chr(trunc(ord(pwd1)/2)+ord(pwd1[i+1])-48);
i:=i+2;
end;
result:= PChar(pwd2);
end;

 

Z

zhi_dian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-10

• #6

TempPwd1
这有什么用？？

 

G

gooodlife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-10

• #7

再定义DLL接口函数时，最好是在定义是 加上 SafeCall

如function Untie(pwd1: PChar)Char
SafeCall;

动态调用时也进行相同的定义
这样主程序就可以接收到 DLL程序的出错信息

 

Z

zhi_dian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-10

• #8

我怎么传到DLL里，pwd1变成空了？？

 

G

gooodlife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-10

• #9

把你的调用方式和调用代码Copy出来看看

 

Z

zhi_dian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-10

• #10

unit testdll;
interface
function Untie(pwd1char)char;
implementation
function Untie
external 'unties.dll';
end.

 

Z

zhi_dian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-10

• #11

uses testdll;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=string(Untie(pchar(edit1.Text)));
end;

 

G

gooodlife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-10

• #12

调用代码呢？

 

Z

zhi_dian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-10

• #13

就是这样了啊

 

K

kinneng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-10

• #14

可以传String 只要内容不长，不用uses ShareMem

 

G

gooodlife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-11

• #15

定义
function Untie(pwd1: PChar)Char;
var
i:integer;
pwd2:string;
TempPwd1 : String;
begin
if pwd1 = Nil then
TempPwd1 := ''
else
TempPwd1 := String(pwd1);

pwd2:='';
i:=1;
while i<=length(TempPwd1) do
begin
// 不好意思，，， 这里不记的修改
pwd2:=pwd2+chr(trunc(ord(TempPwd1)/2)+ord(TempPwd1[i+1])-48);
i:=i+2;
end;
result:= PChar(pwd2);
end


把你的 pwd1 全都改成 TempPwd1 了，，原来还有地方未改，不好意思了

参数值是 'Edit1'
返回值是 'Vv'
不知有没有错呢？

 

Z

zhi_dian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-10

• #16

不行的，会有“错误指针操作”的提示的

 

G

gooodlife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-10

• #17

把你的 pwd1 全都改成 TempPwd1 了，，原来还有地方未改，不好意思了

 

Z

zhi_dian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-11

• #18

哦，好象是这样的，谢谢啦！
下次再有DLL方面的问题，再请教你！
[]

 

Z

zhi_dian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-11

• #19

To goodlife
还是有问题啊~~~~！
现在调用时出现
Access violation at address 0040400F in module 'project1.exe'.Read of address 00DC00C.
的错误提示！