delphi access violation

2012-02-08 11:32:19 344 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

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

Delphi 通过Access Violation地址错误找到错误的哪行代码什么是 MAP 文件？简单地讲， MAP 文件是程序的全局符号、源文件和代码行号信息的唯一的文本表示方法，它可以在任何地方、任何时候使用，不需要有额外的程序进行支持。而且，这是唯一能找出程序崩溃的地方的救星。 DELPHI下生成MAP文件的方法:生成详细的MAP信息的方法(二选一)1. project -> options -> Linker -> Map file ... 阅读详情

主窗体方法DeCodeMethod(IMSI:PChar; StartDate:PChar; LastDays:Integer):String;
其中调用C语言 dll中一个方法, 返回一个字符串 str

在子窗体中调用主窗体方法DeCodeMethod 得到返回的str ，采用ShowMessage(Str) 正确没问题！
采用Self.Edit.Text:=Str; 就产生一个 access violation atox00452d25...错误，百思不得其解.....
求原因求办法....

...全文

abap中使用Screen painter为普通屏幕创建单选按钮组radiobutton组的过程选择屏幕中，创建radiobutton组直接使用代码实现，如下所示 SELECTION-SCREEN BEGIN OF BLOCK BK1 WITH FRAME TITLE TEXT-001. PARAMETERS R1 RADIOBUTTON GROUP GR1. PARAMETERS R2 RADIOBUTTON GROUP GR1. PARAMETERS R3 RADIOBUTTON GR 阅读详情

liuyonghong159632

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

liuyonghong159632 2012-02-10

打赏
举报

20分实在难以表达我对你们的感谢，可不知道怎么加分！就委屈委屈了哈哈！
谢谢亲们....

liuyonghong159632 2012-02-10

打赏
举报

[Quote=引用 14 楼 kaikai_kk 的回复:]
self去掉,或把self改成子窗体的name值，比如form2.Edit1.Text
若报错，表示form2未建立，或者建立了但在调用主窗体方法时（是否还有其它的代码），被关了
[/Quote] 亲呀你咋不早现身呢，我把self 换成了窗体的名字后就没问题了！
这实在太坑爹了......折腾了我两天！
比我老板那SB的办法好让我先存到数据库再从数据库提取！（都快把我给吹死了）！
问题是解决了可这是为什么呢！咋用了主窗体那个方法后用self 就成这样了....

zhouxianqun 2012-02-10

打赏
举报

严重同意kaikai_kk！
你直接给Self.Edit1.Text:=‘你有病呀’
看会不会出错。
如果出错的话可以肯定你把Self用错了。或者Edit1根本没创建

kaikai_kk 2012-02-10

打赏
举报

self去掉,或把self改成子窗体的name值，比如form2.Edit1.Text
若报错，表示form2未建立，或者建立了但在调用主窗体方法时（是否还有其它的代码），被关了

liuyonghong159632 2012-02-10

打赏
举报

我方法返回的本来就是String ;
强制转换了一下还是错误！

测了N久发现：在子窗体的某个事件中只要调用了主窗体方法，获得了正常的返回值 tmpStr 之后，
接着对子窗体控件的操作就都失败了！如：
tmpStr:=MsgCatFrm.DeCodeMethod(PChar('2222'),PChar('20120203'),360);
ShowMessage(tmpStr);//正确 "slfowenfia13k492923u4"
Self.Edit1.Text:='想不通';//依然产生地址错误
Self.Edit1.Text:=tmpStr;//会产生地址错误

返回值 tmpStr 没问题可以从新赋值或存入数据库.....
再求答案.....

gitionyet 2012-02-09

打赏
举报

我也试过……错误使用指针或无效地址，修复以后却显示@xx not find，坐等高手解答

CS_DNisSB2B 2012-02-09

打赏
举报

强制类型转化一下 edit1.Text := string(tmpStr)

liuyonghong159632 2012-02-09

打赏
举报

长度是多少就是多少没问题我数过[Quote=引用 8 楼 erhan 的回复:]
ShowMessage(tmpStr);//正确 "slfowenfia13k492923u4"
showmessage(inttostr(length(tmpstr))); 是多少？
[/Quote]

liuyonghong159632 2012-02-09

打赏
举报

长度是多少就是多少没问题我数过[Quote=引用 7 楼 liuyonghong159632 的回复:]
子窗体的一个按钮点击事件...
Var
tmpStr:String;
Begin
tmpStr:=MsgCatFrm.DeCodeMethod(PChar('2222'),PChar('20120203'),360);
ShowMessage(tmpStr);//正确 "slfowenfia13k492923u4"
Self.Edit1.Text:=tmpStr;//……
[/Quote]

kaikai_kk 2012-02-08

打赏
举报

一般就是某个控件/窗体/变量...没创建就使用，或者是分配了内容未释放才报地址错误
要看具体代码怎么写的

erhan 2012-02-08

打赏
举报

ShowMessage(tmpStr);//正确 "slfowenfia13k492923u4"
showmessage(inttostr(length(tmpstr))); 是多少？

liuyonghong159632 2012-02-08

打赏
举报

子窗体的一个按钮点击事件...
Var
tmpStr:String;
Begin
tmpStr:=MsgCatFrm.DeCodeMethod(PChar('2222'),PChar('20120203'),360);
ShowMessage(tmpStr);//正确 "slfowenfia13k492923u4"
Self.Edit1.Text:=tmpStr;//错误
Self.Memo1.Text:=tmpStr;//错误
Self.Memo1.Lines.add(tmpStr);//错误
End;

liuyonghong159632 2012-02-08

打赏
举报

就没有人回复么？难道我问的问题太白痴了....

babydog01 2012-02-08

打赏
举报

把出错上下的语句贴出来，看看。。。

liuyonghong159632 2012-02-08

打赏
举报

Function TMsgCatFrm.DeCodeMethod(IMSI:PChar; StartDate:PChar; LastDays:Integer):String;
Type
TDeCodeMethod=Function( const imsi:PChar; Const start_date:PChar; days:Integer; out_str: PChar):Integer;stdcall;
Var
tmpInt:Integer;
tmpStr:String;
DeCodePChar:PChar;
DeCodeMethod:TDeCodeMethod;
DeCodeHandle:Thandle;
Begin

tmpInt:=-1;
tmpStr:='';
GetMem(DeCodePChar,65); //动态申请内存空间 65字符

Try
DeCodeHandle:=LoadLibrary('BdEncrypterLib.dll'); //加载外部解码动态链接库
@DecodeMethod:=GetProcAddress(DeCodeHandle,'EncryptData'); //绑定动态链接库中的方法
if(Assigned(@DecodeMethod)) then begin //如果关联成功
tmpInt:=DeCodeMethod(IMSI, StartDate, LastDays, DeCodePChar); //调用方法
tmpStr:=DeCodePChar;
end;
Finally
FreeLibrary(DeCodeHandle); //释放当前句柄
FreeMem(DeCodePChar); //释放内存空间
End;

if(tmpInt<>-1) then begin
//解码入库记录**********************************************************
end else begin
ShowMessage('青蛙友情提示：'+#13+#10+'解码错误，请确认手机IMSI 起始日期持续时间！');
end;
Result:=tmpStr;

End;

liuyonghong159632 2012-02-08

打赏
举报

子窗体的控件都存在，并且其他地方都能正常使用此控件!

只要是类似于把Str 赋值给窗体控件的都会产生地址错误，有点儿像这个Str没有提前赋值一样...
而直接ShowMessage(Str) 缺是正常结果....

bdmh 2012-02-08

打赏
举报

看看Self或者Edit是否存在

delphi access violation

相关推荐