delphi - 使用 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;