MyDac的第二个重大Bug

zhgc

MyDac的第二个重大Bug

bug出在：

CRAccess.pas

procedure TCRConnection.DoError(E: Exception; var Fail: boolean);

    if Reconnect then begin
      FReconnected := False;
      try
        FInProcessError := True;
        if Attempt = 0 then
          Disconnect;
      except // don't raise exception
      end;
      try
        Connect('');
        FReconnected := True;
        if Assigned(FOnReconnectSuccess) then
          FOnReconnectSuccess;        
      except // don't raise exception
      end;
      FInProcessError := False;


FReconnected本来已经设置为True了， 但是在调用处理事件后，不知道是什么原因FReconnected变为False;

zhgc

处理方式修改为：

procedure TDataModule2.MyConnection1AfterConnect(Sender: TObject);
begin
  self.Timer1.Enabled:=true;
end;

procedure TDataModule2.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled:=false;
  if(MyConnection1.Tag=0)then
  begin
    MyConnection1.Tag:=1;
    try  //在XC的实践证明：这里会有死循环 ，会在syant.z_session中产生巨量的数据
      //self.MyConnection1.ExecSQL('SET sql_log_bin=0',[]);
      strCheckVersion:=sessionstart(true);
    finally
      MyConnection1.Tag:=0;
    end;
  end;
end;