| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 884 人关注过本帖
标题:各位大哥,delphi 调用Dll出现“access ... in model "D9999.dll'问题
只看楼主 加入收藏
sh_acct_yangxm
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2008-5-14
结帖率:0
收藏
 问题点数:0 回复次数:3 
各位大哥,delphi 调用Dll出现“access ... in model "D9999.dll'问题
一、主文件:
unit P000002;
interface
uses
ShareMem,SysUtils,....
.....
function ljzc(fwq,yh,mm,sjk:pchar;ljfs,mmjmf:integer):pchar;
external 'D9999.dll';
......

wlsjk1:=string(ljzfc(pchar(edit2.text),pchar(edit3.text),pchar(edit4.text),pchar(edit1.text),1,0));//这句出错;

二、Dll文件
library D9999;
uses
  ShareMem,.....
.......
{$R *.res}
function ljzc(fwq,yh,mm,sjk:pchar;ljfs,mmjmf:integer):pchar;stdcall; //ljfs:0,windows;1,sql;mmjm:0,不加密;1,加密
var
i:integer;
ljzf,fwqs,yhs,mms,sjks:string;
begin
fwqs:=string(fwq);
yhs:=string(yh);
sjks:=string(sjk);
if mmjmf=1 then begin
   i:=mmjm(mm);
   mms:=inttostr(i);
end;
if ljfs=0 then
   ljzf:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='
        +trim(sjks)+';Data Source='+trim(fwqs)
else
   if trim(mms)='' then
      ljzf:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+trim(yhs)+';Initial Catalog='
           +trim(sjks)+';Data Source='+trim(fwqs)
      else
      ljzf:='Provider=SQLOLEDB.1;Password='+trim(mms)
           +';Persist Security Info=False;User ID=sa1;Initial Catalog='
           +trim(sjks)+';Data Source='+trim(fwqs);
result:=pchar(ljzf);
end;
exports
ljzc;
begin
end.

两天了,整整两天了,肿么个回事呢?
搜索更多相关主题的帖子: 加密 function library 
2012-07-21 09:05
sh_acct_yangxm
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2008-5-14
收藏
得分:0 
是delphi2010+xp环境
2012-07-21 09:09
sh_acct_yangxm
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2008-5-14
收藏
得分:0 
这个吊地方人气不行。
2012-08-09 16:16
uubird
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:74
专家分:133
注 册:2009-7-2
收藏
得分:0 
晕~~
2012-09-07 13:10
快速回复:各位大哥,delphi 调用Dll出现“access ... in model "D9999.dll'问题 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.038349 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved