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

2014-09-29 04:51:47 573 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

GUI Agent本质：智能调度中枢而非自动点击器 GUI Agent是一种面向图形用户界面的智能操作代理，其核心在于将自然语言指令转化为可执行动作序列，依赖视觉感知、任务规划与动作执行三层协同。它不同于传统RPA或脚本工具，关键能力体现在环境状态理解、动态路径规划与容错执行上，技术价值在于支撑复杂业务系统（如CRM、ERP）的跨应用自动化。典型应用场景包括销售报表导出、邮件自动分发、多窗口协同操作等。本文深入解析GUI Agent的四层架构设计——视觉感知层（YOLO轻量检测）、任务规划层（LangGraph状态机）、动作执行层（PyAutoGUI安全模式阅读详情

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

...全文

保姆级教程：在RK3568 Debian系统上搞定AIC8800 WiFi与蓝牙驱动（含固件路径与开机自启脚本）本文提供在RK3568 Debian系统上配置AIC8800 WiFi与蓝牙驱动的保姆级教程，涵盖驱动移植、固件部署、开机自启脚本等关键步骤。通过详细的硬件连接指南、内核配置示例和常见问题解决方案，帮助开发者快速实现无线模块的全功能配置，特别适合嵌入式Linux开发者参考。阅读详情

随风随恨

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

随风随恨 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

打赏
举报

肿么木有人来哇

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

相关推荐