L
linuxping
Unregistered / Unconfirmed
GUEST, unregistred user!
代码:
const
Site='http://www.iciba.com/search?s=大';
begin
IdHTTP1.Host:='http://www.iciba.com';
IdHTTP1.HTTPOptions:=IdHTTP1.HTTPOptions+[hoForceEncodeParams];
IdHTTP1.HandleRedirects:=True;
IdHTTP1.Request.AcceptCharSet:='GB18030';
IdHTTP1.Request.AcceptLanguage:='ch';
try
mmo1.Lines.Text:=IdHTTP1.Get(Site);
except
on E:EidException do
ShowMessage(IntToStr(IdHTTP1.Responsecode));
else
ShowMessage('normal error ');
end;
mmo1里出现乱码
const
Site='http://www.iciba.com/search?s=大';
begin
IdHTTP1.Host:='http://www.iciba.com';
IdHTTP1.HTTPOptions:=IdHTTP1.HTTPOptions+[hoForceEncodeParams];
IdHTTP1.HandleRedirects:=True;
IdHTTP1.Request.AcceptCharSet:='GB18030';
IdHTTP1.Request.AcceptLanguage:='ch';
try
mmo1.Lines.Text:=IdHTTP1.Get(Site);
except
on E:EidException do
ShowMessage(IntToStr(IdHTTP1.Responsecode));
else
ShowMessage('normal error ');
end;
mmo1里出现乱码