delphi - 在默认浏览器中打开网页，网址内带双引号 (")

Question

当我尝试打开任何链接内有双引号 (") 的网站时，例如 user.php?name="stackoverflow" 它只是剪切 " 或者有时它会将我重定向到 Google!？使用的代码:

ShellExecute(0, 'open', PChar('open'), PChar(URL), nil, SW_SHOW) ;

Answer 1

您需要使用完全限定的 URL，包括 http:// 并通过替换双引号 ( ") 与 %22。

您还传递了错误的参数。

参见 MSDN:Use ShellExecute to launch the default Web browser

示例:

procedure TForm1.Button1Click(Sender: TObject);
var
  URL: string;
begin
  URL := 'http://www.user.com/?name="stackoverflow"';
  URL := StringReplace(URL, '"', '%22', [rfReplaceAll]);
  ShellExecute(0, 'open', PChar(URL), nil, nil, SW_SHOWNORMAL);
end;

您应该始终对 URL 参数进行编码，而不仅仅是双引号。您可以将 Indy 与 TIdURI.URLEncode - IdURI 单位一起使用。
您还可以使用 HTTPApp 单元中的 HTTPEncode 对 URL 中的每个参数进行编码。

请注意，TIdURI.URLEncode 也会对 ? 和 & 分隔符进行编码。所以我认为用 HTTPEncode 单独编码每个参数是一个更好的主意，例如:

URL := 'http://www.user.com/?param1=%s&param2=%s';
URL := Format(URL, [
  HTTPEncode('"stackoverflow.com"'),
  HTTPEncode('hello word!')]);
// output: http://www.user.com/?param1=%22stackoverflow.com%22&param2=hello+word!