将 Internet Explorer 当前网址作为字符串获取的最佳方法是什么

Question

我正在寻找一种从当前 Internet Explorer URL 以字符串形式返回 url 的方法。

这种方法使用 dde。它非常快并且运行良好，除了它返回一个非常长的字符串，分为两部分，都带有引号。

uses
  ddeman;

function GetURL(Service: string): string;
var
  ClDDE: TDDEClientConv;
  temp: PAnsiChar;
begin
  Result := '';
  ClDDE := TDDEClientConv.Create(nil);
  with ClDDE do
  begin
    SetLink(Service, 'WWW_GetWindowInfo');
    temp := RequestData('0xFFFFFFFF');
    Result := StrPas(temp);
    StrDispose(temp);
    CloseLink;
  end;
  ClDDE.Free;
end;

例如，这会返回： "http://core2.staticworld.net/images/article/2014/01/counterfeit_android_apps1-100227383-medium.jpg","http://core2.staticworld.net/images/article/2014/01/counterfeit_android_apps1-100227383-medium.jpg"

但我只在第一个逗号之前寻找不带引号的第一部分： http://core2.staticworld.net/images/article/2014/01/counterfeit_android_apps1-100227383-medium.jpg

对另一种方法或如何解析字符串以生成不带引号且仅显示字符串第一部分的结果有任何建议吗？

Answer 1

您可以自己非常简单地解析字符串：

// Extract string up to position of the ,
Temp := Copy(Temp, 1, Pos(',', Temp) - 1);
// Remove double-quotes from resulting string
Temp := StringReplace(temp, '"', '', [rfReplaceAll]);

这是一个示例控制台应用程序，它在您提供的示例响应上使用上述逻辑，并将最终内容输出到控制台：

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  LinkStr = '"http://core2.staticworld.net/images/article/2014/01/counterfeit_android_apps1-100227383-medium.jpg","http://core2.staticworld.net/images/article/2014/01/counterfeit_android_apps1-100227383-medium.jpg"';

var
  Temp: string;

begin
  Temp := Copy(LinkStr, 1, Pos(',', LinkStr) - 1);
  Temp := StringReplace(Temp, '"', '', [rfReplaceAll]);
  Writeln('After: ' + Temp);
  ReadLn;
end.

输出：