[紧急求助]InHttp的问题，无法访问内容...在线等(100分)

B

buddydeus

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-24

• #1

procedure TForm1.Button1Click(Sender: TObject);
var ss:TMemoryStream;
begin
ss := TMemoryStream.Create;
Form1.IdHTTP1.Host := 'www.netms.com.cn';
Form1.IdHTTP1.Port := 80;
Form1.IdHTTP1.Connect();
Form1.IdHTTP1.Get('test.html',ss);
ss.SaveToFile('F:/test.ini');
ss.Free;
end;

没别的代码，就是这些，我不知道为什么，他就是返回400错误。。。但我用ie能正常访问这个文件，紧急求助阿

 

网

网中戏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-24

• #2

顶

 

冰

冰力不足

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-24

• #3

要Cookie的

 

冰

冰力不足

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-24

• #4

GET /test.html HTTP/1.1
Accept: */*
Accept-Language: zh-cn
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
Host: www.netms.com.cn
Connection: Keep-Alive
Cookie: ........................;
.......................

 

冰

冰力不足

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-24

• #5

ss.Position := 0;

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-24

• #6

procedure TForm1.Button1Click(Sender: TObject);
var ss:TMemoryStream;
begin
ss := TMemoryStream.Create;
Form1.IdHTTP1.Get('http://www.netms.com.cn:80/test.html',ss);
ss.SaveToFile('F:/test.ini');
ss.Free;
end;

 

B

buddydeus

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-27

• #7

谢谢，zqw0117的办法已经通过，谢谢