*-- hansqldmo.PRG DEFINE CLASS hndBackup as Session IMPLEMENTS BackupSink IN "sqldmo.backup" PROCEDURE BackupSink_Complete(cmessage as String) as long PROCEDURE BackupSink_PercentComplete(cmessage as String, percent as Long) as long PROCEDURE BackupSink_NextMedia(cmessage as String) as long ENDDEFINEand my test program are :
SET PROCEDURE TO clas/hansqldmo.PRG RELEASE h RELEASE o o = CREATEOBJECT("sqldmo.backup") h = CREATEOBJECT("hndbackup") ? EVENTHANDLER(o,h,.t.) +EVENTHANDLER() return always .F.
Quidquid latine dictum sit, altum sonatur