关于Delphi 根据URL获取该网址title（也即是标题）的问题~~~

[随风随恨]

RT，根据要求，要根据一个URL，例如http://www.baidu.com这个网址，就要得到其网页的标题，有什么方法么？那个什么TIdHTTP控件用不好，再次谢过！

[随风随恨]

肿么木有人来哇

[缘中人]

procedure TForm1.itle1Click(Sender: TObject);
var
  Document: IHTMLDocument2;
begin
  WebBrowser1.Navigate('www.baidu.com');

  while WebBrowser1.busy do
    Application.ProcessMessages;

  while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
    Application.ProcessMessages;
  Document := WebBrowser1.Document as IHTMLDocument2;
  Caption := Document.title;
end;

[s11ss]

用Internet控件页的TTcpClient控件速度最快！

procedure TForm1.Button1Click(Sender: TObject);
var
  buf: array[0..1023] of Char;
  I, J, K: Integer;
begin
  TcpClient1.RemoteHost := 'www.baidu.com';
  TcpClient1.RemotePort := '80';
  TcpClient1.Connect;
  buf :=
    'GET / HTTP/1.1'+sLineBreak+
    'UserAgent: Mozilla/3.0 (compatible)'+sLineBreak+
    'Host: www.baidu.com'+sLineBreak+
    'Connection: Close'+sLineBreak+
    sLineBreak;
  TcpClient1.SendBuf(buf, 256);
  buf := '';
  TcpClient1.ReceiveBuf(buf, 1024);
  buf := '';
  TcpClient1.ReceiveBuf(buf, 1024);
  TcpClient1.Disconnect;

  for I:=0 to 1023-5 do
    if (buf[I]='<') and (buf[I+1]='t') and (buf[I+2]='i') and (buf[I+3]='t') and (buf[I+4]='l') and (buf[I+5]='e') then
      for J:=I+6 to 1023-5 do
        if buf[J]='>' then
          for K:=J+1 to 1023-5 do
            if buf[K]='<' then
            begin
              buf[K-(J+1)]:=#0;
              ShowMessage(Utf8Decode(buf));
              Exit
            end else
              buf[K-(J+1)]:=buf[K]
end;

[nm_wyh]

两种方式都可以！但是3楼的相对复杂一下，你可以用2楼的，比较简单！

[Mit1208]

idhttp你感觉不好用，应该是最后返回的编码问题，自己定义一个字符流，然后给返回的字符流设置为UTF8编码就可以了。

[随风随恨]

感谢楼上诸位的回答，怪我没说明白，我用了webbrowser 控件，然后使用IHTMLDocument2(wb1.Document).title这句话就出来了，散分！