Fórum access violation at address 000000 no win7 ? #400246

procedure CheckInterbase6Error(PlainDriver: IZInterbasePlainDriver;


  StatusVector: TARRAY_ISC_STATUS; LoggingCategory: TZLoggingCategory = lcOther;


  SQL: string = '');


var


  Msg: array[0..1024] of Char;


  PStatusVector: PISC_STATUS;


  ErrorMessage, ErrorSqlMessage: string;


  ErrorCode: LongInt;


begin


  if (StatusVector[0] = 1) and (StatusVector[1] > 0) then


  begin


    ErrorMessage:='';


    PStatusVector := @StatusVector;


    while PlainDriver.isc_interprete(Msg, @PStatusVector) > 0 do


      ErrorMessage := ErrorMessage + ' ' + StrPas(Msg);





    ErrorCode := PlainDriver.isc_sqlcode(@StatusVector);


    PlainDriver.isc_sql_interprete(ErrorCode, Msg, 1024);


    ErrorSqlMessage := StrPas(Msg);





{$IFDEF INTERBASE_EXTENDED_MESSAGES}


    if SQL <> '' then


      SQL := Format(' The SQL: %s; ', [SQL]);


{$ENDIF}





    if ErrorMessage <> '' then


    begin


      DriverManager.LogError(LoggingCategory, PlainDriver.GetProtocol,


        ErrorMessage, ErrorCode, ErrorSqlMessage + SQL);





{$IFDEF INTERBASE_EXTENDED_MESSAGES}


      raise EZSQLException.CreateWithCode(ErrorCode,


        Format('SQL Error: %s. Error Code: %d. %s',


        [ErrorMessage, ErrorCode, ErrorSqlMessage]) + SQL);


{$ELSE}


      raise EZSQLException.CreateWithCode(ErrorCode,


        Format('SQL Error: %s. Error Code: %d. %s',


        [ErrorMessage, ErrorCode, ErrorSqlMessage]));


{$ENDIF}


    end;


  end;


end;

//funcoes INI
//Primeiro verifica se tem o arquivo ini de conexão com o banco
//se não tiver precisa perguntar se vai ser local o remoto
procedure TDM.GravarINITableMotoboy(Ip, CaminhoDB, Porta, Pass, Userx,
  Protoc: String);
var
  Arq: TIniFile;
  NovoNome: string;
begin
  (* Cria arquivo ini *)
  NovoNome := dm.DataDirectory + 'ConexaoBanco.ini';
  if not FileExists(NovoNome) then
  begin
    Arq := TIniFile.Create(NovoNome);
    try
      Arq.WriteString('ConexaoBanco', 'HostName', IP);
      Arq.WriteString('ConexaoBanco', 'Database', CaminhoDB);
      Arq.WriteString('ConexaoBanco', 'Port', Porta);
      Arq.WriteString('ConexaoBanco', 'Password', Pass);
      Arq.WriteString('ConexaoBanco', 'User', Userx);
      Arq.WriteString('ConexaoBanco', 'Protocol', Protoc);
      //Autor: Adriano
      //Data: 22/04/2011
      //Não ha mais necessidade da linha abaixo.
      {
      if frmParametrizarBanco.bTipoConnection = True then
        Arq.WriteString('ConexaoBanco', 'Tipo Conexão', RetornaVersaoFirebird)
      else
        Arq.WriteString('ConexaoBanco', 'Tipo Conexão', RetornaVersaoFirebird);
       }
    finally
      FreeAndNil(Arq);
    end;
  end;
end;

procedure TDM.CarregaArquivoIni;
var
  Porta, CaminhoDB: String;
  Arq: TIniFile;
  ListaAtributos: TStrings;
  i: Integer;
  NovoNome: string;
begin
  //Se não tiver gravado o INI no diretorio então cria o INI
  (* Cria arquivo ini *)
  NovoNome := dm.DataDirectory + 'ConexaoBanco.ini';
  if not FileExists(NovoNome) then
  begin
    Arq := TIniFile.Create(NovoNome);
    try
      MeuIP := IdIPWatch1.LocalIP;  //busca o IP da maquina
      Application.CreateForm(TfrmParametrizarBanco, frmParametrizarBanco);
      if frmParametrizarBanco.ShowModal = mrOk then
         GravarINITableMotoboy('', //Nome do computador
                        frmParametrizarBanco.edtCaminhoBanco.Text, //Caminho do banco
                        frmParametrizarBanco.edtPorta.Text,
                        frmParametrizarBanco.edtsenha.Text,
                        frmParametrizarBanco.edtUser.Text,
                        frmParametrizarBanco.cbProtocolo.Text);

    finally
      FreeAndNil(Arq);
    end;
  end;

  //Lista e carrega o INI no sistema
  ListaAtributos := TStringList.Create;
  CaminhoINI := dm.DataDirectory + 'ConexaoBanco.ini';
  //Se existe o INI então conecta
  if not FileExists(CaminhoINI) then
    raise Exception.Create('Atenção! Não foi criado o arquivo CONEXAOBANCO.INI')
  else
  begin
    (* Le o arquivo INI *)
    Arq := TIniFile.Create(CaminhoINI);
    Arq.ReadSectionValues('ConexaoBanco', ListaAtributos);
    sHostName  := Arq.ReadString('ConexaoBanco','HostName','');
    sDatabase  := Arq.ReadString('ConexaoBanco','Database','');
    sPort      := Arq.ReadString('ConexaoBanco','Port','');
    sPassword  := Arq.ReadString('ConexaoBanco','Password','');
    sUser      := Arq.ReadString('ConexaoBanco','User','');
    sProtocol  := Arq.ReadString('ConexaoBanco','Protocol','');
    sLocal     := Arq.ReadString('ConexaoBanco','Tipo Conexão','');
    if sLocal = '(LOCAL)' then
      bLocal := True
    else
      bLocal := False;
  end;
  Arq.Free;
  ListaAtributos.Free;
end;

{$IFDEF FULLVERSION}
  {Criando a conexão com o banco}
  AUXConexao:= 1;
  try
    case AUXConexao of
      1: ConectarDataBase;
    end;
   except
     on E: Exception do
       begin
          Raise Exceptio.Create('Erro!' +  e.Message);
          application.terminate;
          exit;
       end;
   end;
  //Se passar pelo ConectarDataBase então faço um select para verificar a chave do sistema
  try
    with dm.registrocliente do
    begin
      Close;
      sql.Clear;
      sql.Text := ' SELECT * FROM registro ';
      Open; <= Mais esta parando aqui e da o erro da imagem acima UNAVAILABLE DATABASE.
      //Ne não tiver registro então abre o form para cadastrar um novo registro
      if IsEmpty then
        ChamaForm(TfrmRegistroCliente, frmRegistroCliente);
    end;
  except
    on E:Exception do
      raise exception.Create(e.Message);
  end;

  {$ENDIF}

procedure TFRMPRINCIPAL.ConectarDataBase;
begin
  with dm.connection do
  begin
    Database := dm.sDatabase;
    User     := dm.sUser;
    Password := dm.sPassword;
    Protocol := dm.sProtocol;
    Connect;
  end;
end;