- android - RelativeLayout 背景可绘制重叠内容
- android - 如何链接 cpufeatures lib 以获取 native android 库?
- java - OnItemClickListener 不起作用,但 OnLongItemClickListener 在自定义 ListView 中起作用
- java - Android 文件转字符串
我正在使用 delphi 在桌面上进行开发。我想用 ToastGeneric 类型通知创建 toast 通知 LToastFactory.CreateToastNotification(LXMLTemplate);
此外,我正在使用 xml,如 https://learn.microsoft.com/en-us/windows/uwp/controls-and-patterns/tiles-and-notifications-adaptive-interactive-toasts
我的问题是如何让 delphi 接受这个 xml,我还没有找到将该字符串转换为 Xml_Dom_IXmlDocument 类型的方法。
最佳答案
我遇到了同样的问题。
我的目标是从使用 toastGeneric 的 Delphi 创建一个 Toast 通知。但是,我找不到任何通过操作 xml 来执行此操作的任何语言的示例 - 所有示例都使用了似乎无法从 Delphi 访问的类。
我的解决方案是创建一个标准模板,然后用自定义模板所需的 xml 覆盖该标准模板中的 xml。下面是一些应该给你想法的 Delphi 代码。它是一个完整的控制台应用程序。此代码在 Delphi 10.2 Tokyo 下编译。早期版本可能需要进行一些调整。您会对 OverwriteToastTemplateXML
函数感兴趣。
我的代码基于 Marco Cantu 博客文章最后评论中引用的标准 toast 模板示例:http://blog.marcocantu.com/blog/2015-june-windows10-notifications-vcl-winrt.html
请注意我的 XML 中对“英雄”图像 jpg 文件的引用。为了让通知充分发挥作用,请确保您在 c:\notifications\hero.jpg 中有一个 jpg,或者在 xml 中注释掉该行。
除了将 XML 字符串转换为自定义 toast 模板外,该代码还将 toast 模板转换回字符串,这对于调试很有用 - 这就是 ToastTemplateToString
函数。这些是我对原始示例的主要功能修改。为了我自己的理解,我还更改了示例代码的结构,以便变量范围以及每行代码与其他代码的关系也更加明显。
让我知道这是否适合您 - 我发现 Toast 通知是 Delphi 的一项艰巨工作!
干杯
史蒂夫
program ConsoleNotifier;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
// Required to create the Toast Notification
WinAPI.WinRT,
WinAPI.DataRT,
WinAPI.UI.Notifications,
WinAPI.ActiveX,
WinAPI.CommonTypes,
// Required for creating the Desktop Shell Link
WinAPI.PropKey,
WinAPI.PropSys,
WinAPI.ShlObj,
System.Win.ComObj,
Windows
;
function CreateDesktopShellLink(const TargetName: string): Boolean;
function GetStartMenuFolder: string;
var
Buffer: array [0 .. MAX_PATH - 1] of Char;
begin
Result := '';
GetEnvironmentVariable(PChar('APPDATA'), Buffer, MAX_PATH - 1);
Result := Buffer + '\Microsoft\Windows\Start Menu\Programs\Desktop Delphi Toasts App.lnk';
end;
var
IObject: IUnknown;
ISLink: IShellLink;
IPFile: IPersistFile;
LinkName: string;
LStore: WinAPI.PropSys.IPropertyStore;
LValue: TPropVariant;
begin
Result := False;
IObject := CreateComObject(CLSID_ShellLink);
ISLink := IObject as IShellLink;
IPFile := IObject as IPersistFile;
LStore := IObject as WinAPI.PropSys.IPropertyStore;
with ISLink
do begin
SetPath(PChar( ParamStr(0) ));
end;
ISLink.SetArguments(PChar(''));
if Succeeded(InitPropVariantFromStringAsVector(PWideChar('Delphi.DesktopNotification.Sample'), LValue))
then begin
if Succeeded(LStore.SetValue(PKEY_AppUserModel_ID, LValue))
then LStore.Commit;
end;
LinkName := GetStartMenuFolder;
if not FileExists(LinkName)
then
if IPFile.Save(PWideChar(LinkName), True) = S_OK
then Result := True;
end;
function HStr( Value:String ): HString;
begin
if NOT Succeeded(
WindowsCreateString(PWideChar(Value), Length(Value), Result)
)
then raise Exception.CreateFmt('Unable to create HString for %s', [ Value ] );
end;
function ToastTemplateToString( Const Template:Xml_Dom_IXmlDocument ): String;
function HStringToString(Src: HSTRING): String;
var
c: Cardinal;
begin
c := WindowsGetStringLen(Src);
Result := WindowsGetStringRawBuffer(Src, @c);
end;
begin
Result := HStringToString(
( Template.DocumentElement as Xml_Dom_IXmlNodeSerializer ).GetXml
);
end;
function GetFactory( Const Name:String; Const GUID:String ): IInspectable;
var
FactoryHString : HString;
FactoryGUID : TGUID;
begin
FactoryHString := HStr( Name );
try
FactoryGUID := TGUID.Create(GUID);
if NOT Succeeded(
RoGetActivationFactory(FactoryHString, FactoryGUID, Result)
)
then raise Exception.CreateFmt('Error creating factory: %s %s', [ Name, GUID ] );
finally
WindowsDeleteString( FactoryHString );
end;
end;
procedure OverwriteToastTemplateXML( Const Template: Xml_Dom_IXmlDocument; Const XML:String );
var
hXML: HSTRING;
begin
hXML := HStr( XML );
try
(Template as Xml_Dom_IXmlDocumentIO).LoadXml( hXML );
finally
WindowsDeleteString( hXML );
end;
end;
procedure SteveNotification( Const AppID:String; Const XML:String );
var
ToastNotificationManagerStatics : IToastNotificationManagerStatics;
ToastTemplate : Xml_Dom_IXmlDocument;
LToastNotification : IToastNotification;
ToastNotificationManagerFactory : IInspectable;
ToastNotificationFactory : IInspectable;
hAppID : HString;
begin
ToastNotificationManagerFactory := GetFactory( sToastNotificationManager, '{50AC103F-D235-4598-BBEF-98FE4D1A3AD4}' );
ToastNotificationManagerStatics := IToastNotificationManagerStatics(ToastNotificationManagerFactory);
ToastTemplate := ToastNotificationManagerStatics.GetTemplateContent(ToastTemplateType.ToastText01);
OverwriteToastTemplateXML( ToastTemplate, XML );
WriteLn( 'XML: ', ToastTemplateToString( ToastTemplate ) );
ToastNotificationFactory := GetFactory( SToastNotification, '{04124B20-82C6-4229-B109-FD9ED4662B53}' );
LToastNotification := IToastNotificationFactory(ToastNotificationFactory).CreateToastNotification(ToastTemplate);
hAppID := HStr( AppID );
try
ToastNotificationManagerStatics
.CreateToastNotifier( hAppID )
.Show(LToastNotification);
finally
WindowsDeleteString( hAppID );
end;
end;
Const
AppID = 'My Application ID';
XML = '<toast activationType="protocol" launch="http://www.ecutek.com" >'
+ ' <visual>'
+ ' <binding template="ToastGeneric">'
+ ' <text>Body Text ABC</text>'
+ ' <text>More Text</text>'
+ ' <image placement="hero" src="file:///c:\notifications\hero.jpg"/>'
+ ' </binding>'
+ ' </visual>'
+ ' <actions>'
+ ' <action content="Open Google" activationType="protocol" arguments="http://www.google.com" />'
+ ' </actions>'
+ '</toast>';
var
c : char;
begin
try
if TOSVersion.Major < 10
then raise Exception.Create('Windows 10 Required');
RoInitialize(RO_INIT_MULTITHREADED);
CreateDesktopShellLink( ParamStr(0) );
SteveNotification( AppID, XML );
// Wait for a KeyPress
Read( c ); write( c );
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
关于windows - 如何使用 ToastGeneric 在 delphi 中创建 toast 通知,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/45856979/
前言: 有时候,一个数据库有多个帐号,包括数据库管理员,开发人员,运维支撑人员等,可能有很多帐号都有比较大的权限,例如DDL操作权限(创建,修改,删除存储过程,创建,修改,删除表等),账户多了,管理
所以我用 Create React App 创建并设置了一个大型 React 应用程序。最近我们开始使用 Storybook 来处理和创建组件。它很棒。但是,当我们尝试运行或构建应用程序时,我们不断遇
遵循我正在创建的控件的代码片段。这个控件用在不同的地方,变量也不同。 我正在尝试编写指令来清理代码,但在 {{}} 附近插入值时出现解析错误。 刚接触 Angular ,无法确定我错过了什么。请帮忙。
我正在尝试创建一个 image/jpeg jax-rs 提供程序类,它为我的基于 post rest 的 Web 服务创建一个图像。我无法制定请求来测试以下内容,最简单的测试方法是什么? @POST
我一直在 Windows 10 的模拟器中练习 c。后来我改用dev C++ IDE。当我在 C 中使用 FILE 时。创建的文件的名称为 test.txt ,而我给出了其他名称。请帮助解决它。 下面
当我们创建自定义 View 时,我们将 View 文件的所有者设置为自定义类,并使用 initWithFrame 或 initWithCode 对其进行实例化。 当我们创建 customUITable
我正在尝试为函数 * Producer 创建一个线程,但用于创建线程的行显示错误。我为这句话加了星标,但我无法弄清楚它出了什么问题...... #include #include #include
今天在做项目时,遇到了需要创建JavaScript对象的情况。所以Bing了一篇老外写的关于3种创建JavaScript对象的文章,看后跟着打了一遍代码。感觉方法挺好的,在这里与大家分享一下。 &
我正在阅读将查询字符串传递给 Amazon 的 S3 以进行身份验证的文档,但似乎无法理解 StringToSign 的创建和使用方式。我正在寻找一个具体示例来说明 (1) 如何构造 String
前言:我对 C# 中任务的底层实现不太了解,只了解它们的用法。为我在下面屠宰的任何东西道歉: 对于“我怎样才能开始一项任务但不等待它?”这个问题,我找不到一个好的答案。在 C# 中。更具体地说,即使任
我有一个由一些复杂的表达式生成的 ILookup。假设这是按姓氏查找人。 (在我们简单的世界模型中,姓氏在家庭中是唯一的) ILookup families; 现在我有两个对如何构建感兴趣的查询。 首
我试图创建一个 MSI,其中包含 和 exe。在 WIX 中使用了捆绑选项。这样做时出错。有人可以帮我解决这个问题。下面是代码: 错误 error LGH
在 Yii 中,Create 和 Update 通常使用相同的形式。因此,如果我在创建期间有电子邮件、密码、...other_fields...等字段,但我不想在更新期间专门显示电子邮件和密码字段,但
上周我一直在努力创建一个给定一行和一列的 QModelIndex。 或者,我会满足于在已经存在的 QModelIndex 中更改 row() 的值。 任何帮助,将不胜感激。 编辑: QModelInd
出于某种原因,这不起作用: const char * str_reset_command = "\r\nReset"; const char * str_config_command = "\r\nC
现在,我有以下由 original.df %.% group_by(Category) %.% tally() %.% arrange(desc(n)) 创建的 data.frame。 DF 5),
在今天之前,我使用/etc/vim/vimrc来配置我的vim设置。今天,我想到了创建.vimrc文件。所以,我用 touch .vimrc cat /etc/vim/vimrc > .vimrc 所
我可以创建一个 MKAnnotation,还是只读的?我有坐标,但我发现使用 setCooperative 手动创建 MKAnnotation 并不容易。 想法? 最佳答案 MKAnnotation
在以下代码中,第一个日志语句按预期显示小数,但第二个日志语句记录 NULL。我做错了什么? NSDictionary *entry = [[NSDictionary alloc] initWithOb
我正在使用与此类似的代码动态添加到数组; $arrayF[$f+1][$y][$x+1] = $value+1; 但是我在错误报告中收到了这个: undefined offset :1 问题:尝试创
我是一名优秀的程序员,十分优秀!