Question

我正在iPhone4上测试以下代码（没有SIM卡，但我不知道这是多么重要，因为它的邮件程序运行正常）：

SharedApplication 和 canOpenURL 等都是XE4提供的所有例程。

procedure TFormMain.sbContactsDetailsEmailClick(Sender: TObject);
var
  S: string;
  NSU: NSUrl;
begin
 // URL.stringByAddingPercentEscapesUsingEncoding(NSUTF8StringEncoding);
  S := 'mailto:' + 'info@example.com' + '?subject=' + 'title' + '&body=';
  NSU := StringToNSUrl(S);
  if SharedApplication.canOpenURL(NSU) then
    SharedApplication.openUrl(NSU)
  ;
end;

不幸的是，似乎 SharedApplication.canOpenURL（NSU）返回false。我做错了吗？

Answer 1

我自己应该完成它，但是这里有：

做好工作

'mailto:info@example.com?subject=test'
'mailto:info@example.com?subject=test%20test'

不起作用

'mailto:info@example.com?subject=test test'

（即解决方案是将空格转换为％20）

Delphi XE4 iOS开放电子邮件程序无效

1 个答案: