发送数据库插入电子邮件

时间:2013-08-15 10:10:34

标签: mysql delphi delphi-xe4

我有一个包含3列的mysql表:

  • EMAIL_ADDRESS
  • email_message
  • message_status

我需要创建一个跟踪此表的应用程序,每当消息状态为0的消息插入到表中时,应用程序应发送电子邮件并将消息状态更新为{{ 1}}。

2 个答案:

答案 0 :(得分:2)

不要轮询数据库进行更改!

您需要TRIGGER ON INSERT,可能还有某种UDF功能。

如果您不想编写自己的UDF,请尝试查看“sys”存储库中的http://www.mysqludf.org/。您将能够从MySQL“调用sh​​ell命令”。如果你这样做,请考虑安全隐患!

答案 1 :(得分:1)

使用您的查询(您使用的是Tquery,myquery,uniquery ..),您可以使用字段编辑器设置操作,选择字段并将其onchange属性设置为您的邮件功能。在您的函数中检查消息的状态你插入。如果bool为true,则发送消息并更新状态。

如果您有更多数据,可以在clientdata或memdata中附加消息信息,并在查询结束时发送。