我用delphi7做一個網頁資訊采集系統，界面如下：
代碼如下：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
procedure into(i:Word);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses UI_Less;
{$R *.dfm}
procedure TForm1.into(i:Word);
var
sh:TUILess;
su:boolean;
surl:PWideChar;
begin
surl:=PWideChar(Trim(Edit1.Text));
sh:=TUILess.Create(nil);
try
Memo1.Clear;
case i of
1:
sh.GetAnchorList(sh.Get(surl,su,False),Memo1.Lines);
2:
sh.GetImageList(sh.Get(surl,su,False),Memo1.Lines);
3:
begin
sh.Get(surl,su,False);
Memo1.Lines:=sh.BodyHtml;
end;
end;
finally
sh.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
into(1);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
into(2);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
into(3);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
into(4);
end;
end.
但是點擊任何一個按鈕時，會出現如下提示：
求各位給我指點，比較急啊，小弟在此謝謝大家了！
uj5u.com熱心網友回復：
00000000這種錯是訪問了不存在的物件，檢查一下sh.BodyHtml是否為niluj5u.com熱心網友回復：
除錯，定位到錯誤的代碼轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/108816.html
標籤：網絡通信/分布式開發