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

随风随恨 2014-09-29 04:51:47
RT,根据要求,要根据一个URL,例如http://www.baidu.com这个网址,就要得到其网页的标题,有什么方法么?那个什么TIdHTTP控件用不好,再次谢过!
...全文
506 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
随风随恨 2014-10-09
  • 打赏
  • 举报
回复
感谢楼上诸位的回答,怪我没说明白,我用了webbrowser 控件,然后使用IHTMLDocument2(wb1.Document).title这句话就出来了,散分!
Mit1208 2014-10-02
  • 打赏
  • 举报
回复
idhttp你感觉不好用,应该是最后返回的编码问题,自己定义一个字符流,然后给返回的字符流设置为UTF8编码就可以了。
nm_wyh 2014-09-30
  • 打赏
  • 举报
回复
两种方式都可以!但是3楼的相对复杂一下,你可以用2楼的,比较简单!
s11ss 2014-09-29
  • 打赏
  • 举报
回复
用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;
缘中人 2014-09-29
  • 打赏
  • 举报
回复
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;
随风随恨 2014-09-29
  • 打赏
  • 举报
回复
肿么木有人来哇

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧