想用TWebbrowser组件做一个类似腾迅浏览器一样的可在Pagecontrol下多页切换的游览器,为什么总是随机的报内存错误呢?例如,让这样一个浏览器同时打开多个门户网站,这些门户网站名称,URL存在数组中: for I:=Low(portal) to High(portal) do
begin
Inc(iTag);
TabSheet1:=TTabSheet.Create(self);
TabSheet1.PageControl:=PageControl1;
TabSheet1.Align:=alClient;
TabSheet1.Caption:=portal[I].Name;
TabSheet1.Tag:=iTag;
WebBrowser1:=TWebBrowser.Create(self);
WebBrowser1.Resizable:=true;
WebBrowser1.ParentWindow:=TabSheet1.Handle;
TControl(WebBrowser1).Parent:=TabSheet1;
WebBrowser1.Align:=alClient;
WebBrowser1.Tag:=iTag;
WebBrowser1.Navigate(portal[i].URL+EdtGoods.Text,Flag,Frame,pData,Header);
end;
关闭其中一页时用这部分语句: try
PageControl1.ActivePage.Free;
Except
on exception do exit;
end;
为什么总是莫名其妙的报内存错(通常在关闭页面时)?而且这种内存错误往往是随机的?
错误:Access violation at address 00000000. Read of address 00000000.
begin
Inc(iTag);
TabSheet1:=TTabSheet.Create(self);
TabSheet1.PageControl:=PageControl1;
TabSheet1.Align:=alClient;
TabSheet1.Caption:=portal[I].Name;
TabSheet1.Tag:=iTag;
WebBrowser1:=TWebBrowser.Create(self);
WebBrowser1.Resizable:=true;
WebBrowser1.ParentWindow:=TabSheet1.Handle;
TControl(WebBrowser1).Parent:=TabSheet1;
WebBrowser1.Align:=alClient;
WebBrowser1.Tag:=iTag;
WebBrowser1.Navigate(portal[i].URL+EdtGoods.Text,Flag,Frame,pData,Header);
end;
关闭其中一页时用这部分语句: try
PageControl1.ActivePage.Free;
Except
on exception do exit;
end;
为什么总是莫名其妙的报内存错(通常在关闭页面时)?而且这种内存错误往往是随机的?
错误:Access violation at address 00000000. Read of address 00000000.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货