DElphi 调dll 报地址错误求大虾帮~

2011-08-21 05:35:56 294 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

freechy2008 墨衍会员 · AI 创作全网分发关注 + 加入社区

[delphi教程]delphi开发教程全攻略（1）如何在Image上提示字符？怎样加入tb2k FastReport4.0安装后中文的问题。怎样单独得到现在的年和月?? [考题]这两种字符串赋值语句有什么区别 TXmlDocument控件使用问题急急急!!!网络数据通讯问题(多线程如何解决???) 关于保存一个Record类型到文件中的问题如何使窗体在用户按下显示桌面之后不会隐藏(不是将它始终置前)谢谢各位大家好，请D 阅读详情

在delphi中调用dll后显示成功，但运行到该函数的结尾end时报错。

...全文

英伟达 DGX Spark & Reachy Mini 入门教程（一）英伟达在2026年CES上发布多款开放模型，包括Nemotron推理LLM、Isaac GR00T VLA和Cosmos世界模型，助力开发者构建个性化AI代理。文章详细介绍了如何通过DGXSpark和Reachy Mini机器人打造办公助手，涵盖材料准备（推理/视觉模型、文本转语音服务）、智能体构建（NeMo Agent Toolkit框架）、工具调用和路由策略实现。系统支持本地/云端部署，提供语音交互、视觉识别和动作执行功能，并保持完全开源可定制。最后给出运行演示的终端配置步骤和测试用例，鼓励开发者在此基阅读详情

freechy2008

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

freechy2008 2011-08-22

打赏
举报

这段代码执行是可以正确执行的。但只要改动就会报错。即使你的改动完全没有意义。比如在此函数加一个参数。但我不用它执行ir:=IC_WritePurchase_D0_PS01就一定报错执行 ir:=IC_Purchase_D0_Ex却不会。
但ir:=IC_WritePurchase_D0_PS01执行是成功的需运行到end.的时候才报错
Access violation at address 0x000000 in module 'star.exe '. Read

rainychan2009 2011-08-22

打赏
举报

LZ，请不要相信诡异一说，至少在计算机中。你这个想法只会让你正面定位、解决问题越来越远。当遇到一个问题无从下手，可以采取砍掉一步代码，精简，然后测试的办法。

freechy2008 2011-08-22

打赏
举报

当然我改变的那个函数在此函数前被调用了。这个unit 全部都存放的调用该dll的函数。问题是我只是做一个完全不影响现在执行环境的改动。就如加一个参数，却不用它。而且我是改变另外一个函数哦。而且一旦出错。我改回去。让代码完全和以前一样。还出错。只能说太诡异。。。。。。。

freechy2008 2011-08-22

打赏
举报

问题在于它本身是可以的。现在这个函数所在的unit 我改变了另外一个函数一样执行到这里也出错啊。
郁闷得想死。。。。

freechy2008 2011-08-22

打赏
举报

代码太多我吧调用方式发出来
function IC_WritePurchase_D0_PS01(iport: Longint; iDataFormat:integer; pszID:PCHAR; dkWh:double; iTimes:integer; pszDateTime:PCHAR; iParamFlag:integer; dPrewarnningkWh:double; dWarnningkWh:double; dCornerkWh:double; dDayFee:double; dMaxOverDraftkWh:double; dMaxTickkWh:double; dMaxCurrent:double; dSpecialMaxCurrent:double;iMaxTripTimes:integer; pszPassword:PCHAR; iCalcuMode:integer; var isw:integer): Longint;
stdcall; external 'starcpu2.dll';

funxu 2011-08-22

打赏
举报

LZ不要被报错的位置迷惑了，感觉问题应该出现在内存的使用上，使用了不该使用的内存等，这些问题在dll释放时暴露出来，所以才会在end时弹出错误，还是把主要代码贴出来看看吧

一剑飘雪 2011-08-22

打赏
举报

贴主要代码

lhs203203 2011-08-22

打赏
举报

请问下你调用dll的调用方式是什么你都没有写当然在释放的时候就会报指针错误了加上stdcall或是cdecl就可以了

rainychan2009 2011-08-22

打赏
举报

[Quote=引用 3 楼 freechy2008 的回复:]

这段代码执行是可以正确执行的。但只要改动就会报错。即使你的改动完全没有意义。比如在此函数加一个参数。但我不用它执行ir:=IC_WritePurchase_D0_PS01就一定报错执行 ir:=IC_Purchase_D0_Ex却不会。
但ir:=IC_WritePurchase_D0_PS01执行是成功的需运行到end.的时候才报错
Access violation at ……
[/Quote]
访问0地址，肯定是尝试访问一个没有分配内存的指针

rainychan2009 2011-08-21

打赏
举报

什么样的错呢？很怀疑是string类型的形参造成的。加ShareMM

freechy2008 2011-08-21

打赏
举报

附该函数源码：
function gf_WritePurchase_Ex(iMode:integer;
iDataFormat:integer;
szID:string;
dkWh:double;
iTimes:integer;
szDatetime:string;
iParamFlag:integer;
dPrewarningkWh:double;
dWarningkWh:double;
dCornerkWh:double;
dMinUsekWh:double;
dMaxOverDraftkWh:double;
dMaxTickkWh:double;
dMaxLoadkW:double;
iMaxTripTimes:integer;
iPTCT:integer;
szPassword:string;
dTickLoadThreshold:double;
isw:integer;szmetermodel:string):integer;
var
ir:integer;
begin
try
if (iMode=$D0) or (iMode=$B0) then begin
if szmetermodel ='S' then
ir:=IC_Purchase_D0_Ex(giPort,iDataFormat, PChar(szID), dkWh, iTimes , PChar(szDatetime),
iParamFlag, dPrewarningkWh, dWarningkWh, dCornerkWh, dMinUsekWh,
dMaxOverDraftkWh, dMaxTickkWh, dMaxLoadkW, iMaxTripTimes, iPTCT,PChar(szPassword), iMode, dTickLoadThreshold, isw)
else
ir:=IC_WritePurchase_D0_PS01(giPort,iDataFormat, PChar(szID), dkWh, iTimes , PChar(szDatetime),
iParamFlag, dPrewarningkWh, dWarningkWh, dCornerkWh, dMinUsekWh,
dMaxOverDraftkWh, dMaxTickkWh, dMaxLoadkW, dTickLoadThreshold,iMaxTripTimes, PChar(szPassword), iMode, isw);
end else
ir:=IC_Purchase_Ex(giPort,iDataFormat, PChar(szID), dkWh, iTimes , PChar(szDatetime),
iParamFlag, dPrewarningkWh, dWarningkWh, dCornerkWh, dMinUsekWh,
dMaxOverDraftkWh, dMaxTickkWh, dMaxLoadkW, iMaxTripTimes, iPTCT,PChar(szPassword), iMode, dTickLoadThreshold, isw);
except
ir:=-1;
end;
result:=ir;
end;

DElphi 调dll 报地址错误 求大虾帮~

相关推荐

DElphi 调dll 报地址错误求大虾帮~