善
善凉的狼
Unregistered / Unconfirmed
GUEST, unregistred user!
处于查询时,不使程序象死机,用了多线程访问数据库。可能是线程没处理好,程序很不稳定,运行几次后就会抛出“EinvaldOperation with messag 'canvas does not allow drawing'”.
出错后,光标停在如下程序Hsum处:
ini2 := Tinifile.Create(ExtractFilePath(Application.ExeName) + '/Info/Time.inf');
Lsum := FDateToSec(StrToDateTime(ini2.ReadString('StartDate','StartDate',' '))
,StrToDateTime(ini2.ReadString('StartTime','StartTime',' ')));
ini2 := Tinifile.Create(ExtractFilePath(Application.ExeName) + '/Info/Time.inf');
——》 Hsum := FDateToSec(StrToDateTime(ini2.ReadString('EndDate','EndDate','')),
StrToDateTime(ini2.ReadString('EndTime','EndTime','')));
end
else
到底是那里的错呀。
出错后,光标停在如下程序Hsum处:
ini2 := Tinifile.Create(ExtractFilePath(Application.ExeName) + '/Info/Time.inf');
Lsum := FDateToSec(StrToDateTime(ini2.ReadString('StartDate','StartDate',' '))
,StrToDateTime(ini2.ReadString('StartTime','StartTime',' ')));
ini2 := Tinifile.Create(ExtractFilePath(Application.ExeName) + '/Info/Time.inf');
——》 Hsum := FDateToSec(StrToDateTime(ini2.ReadString('EndDate','EndDate','')),
StrToDateTime(ini2.ReadString('EndTime','EndTime','')));
end
else
到底是那里的错呀。