关于memo显示网页源码的问题,菜鸟请教!

[chengran1984]

我是超级小菜鸟,我在寻找delphi的门槛,现在还没摸着.

我想用一个memo显示网页源码

先用Idhttp读取以后然后在memo中显示,

但是怎么显示都是乱码,读取的网页是GB2312的

代码如下
TempStr:=GetWebPage('http://www.5sf.com/index.asp');
Memo1.text:=TempStr;

[ccrun.com]

用以下函数转换一下内码：
AnsiToUtf8
Utf8ToAnsi

[wintergoes]

procedure TForm1.Button2Click(Sender: TObject);
var
  tempStr: string;
begin
  IdHTTP1.Request.Referer := 'http://www.5sf.com/index.asp';
  TempStr:=idhttp1.get('http://www.5sf.com/index.asp');
  Memo1.text:=TempStr;
end;

在我这显示正确的

[chengran1984]

1楼的，我不知道你让我转码是什么意思

2楼的，我按照你给的源码，memo1显示的是乱码，我用的是Delphi2009，是不是版本的问题？

[chengran1984]

[ccrun.com]

你用2009？早说嘛。

procedure TForm6.Button1Click(Sender: TObject);
var
    ms: TMemoryStream;
begin
    ms := TMemoryStream.Create;
    try
        IdHTTP1.Get('http://www.5sf.com/index.asp', ms);
        ms.Position := 0;
        Memo1.Lines.LoadFromStream(ms);
    finally
        ms.Free;
    end;
end;

[阿三]

Memo1.Lines.Text := utf8toansi(IdHTTP1.Get(Edit1.Text));

[chengran1984]

没在这上面发过帖子，请问我如何给你分呢？

[ccrun.com]

点那个"结帖去"的按钮