我正在 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)似乎返回错误。我做错什么了吗?