使用Delphi打开URL

Question

我正在为朋友做点小事（或者至少我希望这没什么），但已经有 10 年左右没有使用过 Delphi...而且我的搜索并没有多大用处

我在做什么尝试做的就是获取一个 URL，然后解析 HTML 以找到他需要的一些信息。我希望有这样的东西（在 python 中） fileHandle = urllib2.urlopen(urlStr) 并且 fileHandle 会收到我请求的页面的 HTML。我发现的所有示例都打开了默认浏览器，但

我使用的是 Linux、Lazarus 和 Free Pascal，他使用的是 Delphi 7（如果我没记错的话），如果这很重要的话。

谢谢。

Answer 1

使用 Indy，您可以使用 TidHttp 组件。

var
  http : TidHttp;
  page : String;
begin
  http := TidHttp.Create(nil);
  try
  page := http.get(URL);
  finally 
    http.Free;
  end;
end;

如果您需要其他格式的内容并需要传递附加信息，Get 有多个重载版本。

Answer 2

选项：

1. 调用 wget（您必须在 Windows 上安装）将页面下载到文本文件，然后将其打开。

2. 如果您想完全在 Delphi 中完成，请使用 Indy 或 Synapse。

（我一直使用 Synapse 来做这类事情）。

Answer 3

在您的应用中使用 TWebbrowser。
您可以获取文本框的值或单击页面中的按钮。

var
  ovElements: OleVariant;
  i: Integer;
begin
  ovElements := WebBrowser1.OleObject.document.Forms.item(0).elements;
  for i := 0 to (ovElements.Length - 1) do
    if (ovElements.item(i).Name = 'ASPxButton1') 

      (ovElements.item(i).Name = 'ASPxButton1') then
      ovElements.item(i).Click;

或者

WebBrowser1.OleObject.document.Forms.item(0)
        .elements.item
        ('ASPTEXTBOXNAME').value;