Typhon之异常错误克星TLSException
typhon例子，在目录CodeOcean\pl_Solutions\samples\LSException
unit xxxfrm;
{$mode objfpc}{$H+}
type
{ TMainForm }
...
interface
uses
SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
var
...
implementation{$R *.frm}
uses
LSException;
{ TMainForm }
...
initialization
//可以发邮件 TLSException.Register(True, 'Your Name', '[email protected]', '[email protected]', //'yourpassword','smtp.gmail.com', '465', True, True);
TLSException.Register();end.
效果见下图：