delphi2007 教程

delphi2007 教程

首页 新随笔 联系 聚合 管理
  1013 Posts :: 0 Stories :: 28 Comments :: 0 Trackbacks
打开、保存对话框execute时,莫名其妙的报内存读取错误,哪位大侠给解决一下,万分感谢 VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061225115259132.html
打开、保存对话框execute时,莫名其妙的报内存读取错误,就是打开对话框后,没有进行任何操作的时候就报错,哪位大侠给解决一下,万分感谢  
  错误提示为:  
  Access   violation   at   address   00404170   in   module   'SysManager.exe'.Read   of   address   000034F6  
  程序开发过程中都是用的delphi自带控件,没有使用任何第三方控件,并且机子上没有安装vclskin,使用的操作系统为XP

贴出源码  
 

是不是和你其它程序有冲突啊,你单独建个工程试试...

with   TOpenDialog.create(nil)   do  
  begin  
      try  
      if   execute   then  
      begin  
          showmessage(filename);  
      end;  
      finally  
          Free;  
      end;    
  end;    
  就这句代码

这段代码没有错误,显然错误在此之前就产生了。  
 

调试跟踪  
 

就是这里出现的,在弹出了对话框后,跟踪调试到汇编,看不懂,太晕,呵呵,苦恼中,原来好像听说过这个问题,哪位大侠给解决一下

肯定不是因为这段代码才出错

没有人碰到过吗?  
 

你传的参数filename名称是否合法   不要带有非法字符,如:/。

不用动态方式,改为静态元件试一试。

如果你只是这么写  
  procedure   TForm1.Button4Click(Sender:   TObject);  
  begin  
      with   TOpenDialog.Create(nil)   do  
      begin  
      try  
          if   Execute   then  
              ShowMessage(FileName);  
      finally  
          Free;  
      end;  
      end;  
  end;  
   
  那么没问题,  
   
  如果有问题,可能是with   的问题,看看是不是有同名的方法调用,例如你的这段代码不是像我这样单独写在一个函数或过程中的。。  
   
   
  你定义一个变量,试试  
  procedure   TForm1.Button3Click(Sender:   TObject);  
  var  
      dialog   :   TOpenDialog;  
  begin  
      dialog   :=   TOpenDialog.Create(nil);  
      try  
          if   dialog.Execute   then  
              ShowMessage(dialog.FileName);  
      finally  
          dialog.Free;  
      end;  
  end;  
 

我碰到过类似问题,lz看看showmodal是不是也会出错呢?  
   
  目前我也不知道怎么解决.

建议使用一个TFileDialog变量,可能是你的uses   unit中包含了execute函数的其他单元,调用时跑到别的同名函数上了

Harryfin(Harry)   ,你好,我用showmodal没有出错  
  另外上面的兄弟,我试了直接拖控件和dialog.Execute   这两种方式,照样出错,极度郁闷中,呵呵,以前没有碰到过

with   TOpenDialog.Create(nil)   do//避免用nil,改为Application或者其它组件名称试试。。。  
      begin  
      try  
          if   Execute   then  
              ShowMessage(FileName);  
      finally  
          Free;  
      end;  
      end;  
 

问题仍未解决,放弃,哈哈,放分  
 

GS

posted on 2008-09-19 13:43 delphi2007 阅读(147) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。