L
luckywangxw
Unregistered / Unconfirmed
GUEST, unregistred user!
代码如下,调用动态库 显示的结果是乱码,,如果把动态库改成delphi7 则不会出错---动态库delphi2009function showstr(avchar):boolean;begin showmessage(av);end;exports showstr;...---调用程序 delphi7var pschar;const atitle='111';begin ps := StrAlloc(255); StrCopy(ps, PChar(atitle)); showstr(ps); StrDispose(p);end;