主题：[求助]请版主帮忙看看代码，成交邮件确认不停的发送

请版主帮忙看看代码，成交就发送一次邮件确认，但是不知为什么不停的发送

 

myhold:=EXTGBDATA('myholddata');
EXTGBDATASET('myholdtest',THOLDING2);
mytest:=EXTGBDATA('myholdtest');
if myhold<>mytest then
begin
SENDMAIL(1,'*******@sohu.com',numtostr(TENTERPRICE,1)&numtostr(EXITPRICE,1)&'成交'&numtostr(THOLDING2,1),'');
EXTGBDATASET('myholddata',THOLDING2);
end

不知道能否帮到你
myhold:=EXTGBDATA('myholddata');
if myhold<>THOLDING2 then
begin
SENDMAIL(1,'*******@sohu.com',numtostr(TENTERPRICE,1)&numtostr(EXITPRICE,1)&'成交'&numtostr(THOLDING2,1),'');
EXTGBDATASET('myholddata',THOLDING2);
end

楼主可以加入DEBUGFILE2函数，实时调试，问题很容易看出来

请版主帮忙,这个代码是分钟改变就显示一次的代码稍作改动来的，下面这个代码测试没有问题啊，只是把minu改成tholding2

,把DEBUGFILE2改成sendmail,不知为什么不停发送邮件，请版主指教

 

 

谢谢

 

seco:=mod(TIMETOT0(CURRENTTIME),60);
minu:=(mod(TIMETOT0(CURRENTTIME),3600)-mod(TIMETOT0(CURRENTTIME),60))/60;

dd:=EXTGBDATA('mydd');
EXTGBDATASET('mytt',minu);
tt:=EXTGBDATA('mytt');
if tt<dd then
begin
DEBUGFILE2('D:\TEST.TXT','tt=%f',tt,1);
EXTGBDATASET('mydd',minu);
end

SENDMAIL是最后一个周期有效的函数，使用时应该限定在最后一个周期

IF ISLASTBAR THEN

BEGIN

...

END

这样搞，另外再自己加上DEBUGFILE函数调试

 楼主说的问题我遇到过类似的，我当时是想实现满足条件仅告警一次，结果不停的预警。后来经过调试，加些约束，解决了。