N
netbug
Unregistered / Unconfirmed
GUEST, unregistred user!
请看:
type
TForm1 = class(TForm)
HTML1: THTML;
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
procedure TForm1.Button1Click(Sender: TObject);
var urlstr:string;
begin
urlstr:='http://fbserver';
form1.html1.requestdoc(urlstr);
end;
其中fbserver是LAN中的Web服务器,我直接用IE可以浏览,但用以上程序运行时
则出现:HTTP错误401,401.1未授权,登陆失败。
请问这是为何,如何解决?
另:以上程序是在Delphi3.0中编写的,如在Delphi5.0中如何编写浏览器(在
Delphi5.0中没有HTML控件)?
谢谢。
type
TForm1 = class(TForm)
HTML1: THTML;
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
procedure TForm1.Button1Click(Sender: TObject);
var urlstr:string;
begin
urlstr:='http://fbserver';
form1.html1.requestdoc(urlstr);
end;
其中fbserver是LAN中的Web服务器,我直接用IE可以浏览,但用以上程序运行时
则出现:HTTP错误401,401.1未授权,登陆失败。
请问这是为何,如何解决?
另:以上程序是在Delphi3.0中编写的,如在Delphi5.0中如何编写浏览器(在
Delphi5.0中没有HTML控件)?
谢谢。