在DLL中使用PCHAR作为参数传递的问题(200分)

RJU · 2003-10-13

看了很多关于这方面的问题,仍然不得其解 在DLL中使用PCHAR作为参数的奇怪问题 有如下的测试程序(没有加入SHAREMEM单元),在DLL中有一个函数  Function GetUserName(userid

char;var vName

Char):boolean;  begin     SHOWMESSAGE(USERID);//在此跟踪,得到的USERID经常是乱码  end;  在多次尝试中,得到下面的程序是能正常运行,但感觉无法保证程序得稳定性.问题如下   1:能否解释注释部分出现的现象是什么原因?   2:对在DLL中传递字符串常量和返回字符串有什么好的建议   3:对在DLL中传递一个自定义类型的数据有什么好的方法?  var    GetuserName:TMgetuserName;    DllPathFile,temp: String;    cHnd: THandle;    userid,vName

char;  begin   cHnd:=0;   DllPathFile :=Trim('my.dll');   if NOT FileExists(DllPathFile) Then      Exit;   GetMem(vName,255);   Try      strPCopy(vName,'00');      cHnd :=LoadLibrary(PChar(DllPathFile));      if cHnd>0 then      begin         MgetuserName:=GetProcAddress(cHnd,'MgetuserName');         temp:='291';         UserID:=PChar(temp); // 只有这样赋值,参数才能正确传递,如果用                                  // GetMem,setPCopy的方法,传递的                              // USERID的值是乱码!!         //ShowMessage(temp); // 如果没有屏蔽这句,在DLL中跟踪会发现传递的userID的值是乱码.         if Assigned(MgetuserName) then         begin             MgetuserName(UserID,vName);             ShowMessage(vName);         end;     end;   finally     if cHnd>0 then       freelibrary(cHnd);     FreeMem(vName);   end; end;

app2001 · 2003-10-13

DEPHI 5 开发人员指南 http://lib.cqu.edu.cn/pcbook/FILES/PRO-DEPHI-EXPLOIN.htm 认真看一下这本书的第9章,不过要装上Acrobat Reader 5.1才看得到

RJU · 2003-10-13

app2001:你提供的资料有一定的帮助,但我还是不明白我的问题 需要帮助!

app2001 · 2003-10-13

我觉得，你的函数为那个变量在内存中申请了一个地址，所以你一定要用PCHAR来将数据传送到指针指向的那个地址，别外你有没有试过ShowMessage(string(temp)); 这样的方式来查看一下数据？

lich · 2003-10-14

Delphi 程序中的优化非常厉害, 如果一个局部字符串,在后面的代码中不再使用,那么他可能已经不存在了 所以你的指针也就没有意义了 按下面的写法,应该不会有什么问题:,而且也不用分配内存,不用担心内存泄漏了 假设你的函数这么声明: Function GetUserName(userid

char; vName

Char):boolean; 调用如下

是从你的程序翻译过来的) var   GetuserName:TMgetuserName;   DllPathFile,temp, vName: String;   cHnd: THandle; begin  cHnd:=0;  DllPathFile :='my.dll';  if NOT FileExists(DllPathFile) Then Exit;  Try     cHnd :=LoadLibrary(PChar(DllPathFile));     if cHnd>0 then     begin        MgetuserName:=GetProcAddress(cHnd,'MgetuserName');        temp:='291';        if Assigned(MgetuserName) then        begin            SetLength(vName, 200);            MgetuserName(PChar(UserID,vName), PChar(vName));            ShowMessage(vName);        end;    end;  finally    if cHnd>0 then      freelibrary(cHnd);  end; end;

一曲新词酒一杯 · 2003-10-13

您的问题在于对PChar的理解[

]： 1.PChar的本质是指针。 2.PChar指向的内存如果没有正确分配，或分配后但释放了，内容即为乱码。 3.如果您交给别的例程用指针的方式使用一段内存，请在这个例程使用结束前保护好这段内存。 ------------------------------------------------------------------------------- >>        UserID:=PChar(temp); // 只有这样赋值,参数才能正确传递,如果用     >>                             // GetMem,setPCopy的方法,传递的 >>                             // USERID的值是乱码!! 赋值的目的是您应确知 UserID 指向的内存。 >>        //ShowMessage(temp); // 如果没有屏蔽这句,在DLL中跟踪会发现传递的userID的值是乱码. Showmessage中是否有内存分配待考。但您的 Temp 此时可能已经被释放了（检查编译优化选项）。 您可以试试将这个语句放到调用过 Dll 函数之后。

RJU · 2003-10-14

app2001:    ShowMessage(string(temp)),增加类型转换应该是无效的,因为DELPHI对同类型转换是忽略的.   lich:     非常多谢你帮我吧声明中的VAR去掉. 一曲新词酒一杯:     如果您交给别的例程用指针的方式使用一段内存，请在这个例程使用结束前保护好这段内存也很有帮助. 多谢各位的帮助.先加分了.   不知有没有对于传递一列数据(因为TSTRINGLIST不太安全)的建议?

RJU · 2003-10-14

怎么没有地方加分!!

yanyandt2 · 2003-10-14

对于导出的函数应该使用 stdcall 声明

RJU · 2003-10-16

多人接受答案了。

在DLL中使用PCHAR作为参数传递的问题(200分)

RJU

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

RJU

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

一曲新词酒一杯

Unregistered / Unconfirmed

RJU

Unregistered / Unconfirmed

RJU

Unregistered / Unconfirmed

yanyandt2

Unregistered / Unconfirmed

RJU

Unregistered / Unconfirmed

Similar threads