DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: jit6266668
今日帖子: 2
在线用户: 4
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 phper2000 (phper2000) ▲△△△△ -
注册会员
2017/4/18 19:48:36
标题:
@武稀松 求教一个htmlparser的问题! 浏览:478
加入我的收藏
楼主: 稀松大侠你好,首先非常感谢您的这个插件!

在一个多线程代码,执行htmlparser的这个函数时:
if not ParserHTML(allNodes, aPageContent) then Exit;


有时报错:Project YXTest.exe raised exception class $C0000005 with message 'c0000005' ACCESS_VIOLATION'.

追踪发现:
[quote]procedure TSourceContext.IncSrc;
begin
  if CurrentChar = #10 then
  begin
    Inc(LineNum);
    ColNum := 1;
  end
  else
    Inc(ColNum);
  Inc(CodeIndex);
  CurrentChar := Code[CodeIndex];
{$IFDEF DEBUG}
  currentCode := PChar(@Code[CodeIndex]);
{$ENDIF}
end;[/quote]

就是Code[CodeIndex]出现异常,原本想研读一下您的代码,看了会,真一时看不懂,所以恳求帮助,具体这个是什么原因,万分感激!
----------------------------------------------
-
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲△ -
普通会员
2017/4/19 8:38:51
1楼: 每个人都呼唤 武大侠,他要累倒咯。。。
----------------------------------------------
(C)(P)Flying Wang
作者:
男 fausten (fausten) ▲▲▲▲▲ -
盒子活跃会员
2017/4/19 9:03:14
2楼: 内存越界都可能提示这个错误,需要自己从多个角度尝试解决问题,不要有问题了就问人。
----------------------------------------------
-
作者:
男 jackalan (nVicen) ★☆☆☆☆ -
盒子活跃会员
2017/4/19 13:17:59
3楼: Code越界了呗,打印一下codeindex,在打印一下code的上下界
----------------------------------------------
顺其自然,随遇而安~~~
作者:
男 phper2000 (phper2000) ▲△△△△ -
注册会员
2017/4/19 15:00:22
4楼: 非常感谢各位朋友的回复帮助!

不过我当然清楚CodeIndex>Length(Code)越界了,然而如果只是写如下:
if CodeIndex<=Length(Code) then
begin
CurrentChar := Code[CodeIndex];
{$IFDEF DEBUG}
  currentCode := PChar(@Code[CodeIndex]);
{$ENDIF}
end;

但这样写,会进入其他函数的死循环,所有才求教武稀松的
----------------------------------------------
-
作者:
男 phper2000 (phper2000) ▲△△△△ -
注册会员
2017/4/19 15:03:16
5楼: 另外,如果这样写
var
  s: String;
  ch: Char;
begin
  s:= '1234';
  ch := s[100];
end;

即便ch := s[1000];
这样的代码也不会报错呀!

我用的是Delphi 10.1 Berlin
----------------------------------------------
-
作者:
男 phper2000 (phper2000) ▲△△△△ -
注册会员
2017/4/19 15:34:27
6楼: 现在应该好了!

procedure TSourceContext.IncSrc;
var
  len: Integer;
begin
  if CurrentChar = #10 then
  begin
    Inc(LineNum);
    ColNum := 1;
  end
  else
    Inc(ColNum);
  Inc(CodeIndex);
  len := Length(Code);
  if CodeIndex<=len then
  begin
    CurrentChar := Code[CodeIndex];
    {$IFDEF DEBUG}
      currentCode := PChar(@Code[CodeIndex]);
    {$ENDIF}
  end else
    CurrentChar := #0;
end;

function TSourceContext.ReadStr(UntilChars: TSysCharSet): string;
加上:
if CurrentChar = #0 then
      Break;
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行37.10938毫秒 RSS