Array
(
)

Travamento no processo

Rzcoimbra
   - 08 ago 2005

Olá,

Estou tentando desesperadamente resolver um problema que tem ocorrido em um site que estou desenvolvendo em ASP.NET no Delphi 2005. Ainda nao sei o que pode estar ocorrendo, só sei que o site esta funcionando perfeitamente com todas as suas funcionalidades, de repente ele para de funcionar, a pagina fica travada tentando executar o processo asp.net, porem nada aparece na tela. Neste momento a aplicação só volta a funcionar se entrar no painel de controle e reiniciar a aplicacao asp.net ou republicar a dll. Assim ela volta a funcionar. de uns tempos para cá isso tem acontecido diversas vezes, tendo que reiniciar a aplicacão as vezes até 5 vezes ao dia.

Quem puder me ajudar ficarei eternamente grato pois nao tenho ideia do problema. Abaixo um exemplo da pagina inicial:

#Código

procedure TWFindex.Page_Load(sender: System.Object; e: System.EventArgs);
begin
  MostrarDestaques();
  MostrarFoto();
  MostrarTodasNot();
  // TODO: Put user code to initialize the page here
end;

procedure TWFindex.MostrarDestaques;
Var
  ReaderMostrarDestaques : OdbcDataReader;
  CommandMostrarDestaques: OdbcCommand;
  sMostrarDestaques : System.Text.StringBuilder;
begin
  sMostrarDestaques := System.Text.StringBuilder.Create();
  sMostrarDestaques.Append(´SELECT noticia.noticia_id, noticia.noticia_titulo, ´ +
    ´noticia.noticia_resumo, destaque_noticia.destaque_local FROM noticia, destaque_noticia ´ +
    ´WHERE noticia.noticia_id = destaque_noticia.noticia_id AND destaque_pagina = "index.aspx"´);
  CommandMostrarDestaques := OdbcCommand.Create(sMostrarDestaques.ToString(), Connection);
  try
    Connection.Open();
    ReaderMostrarDestaques := CommandMostrarDestaques.ExecuteReader();
    While ReaderMostrarDestaques.Read() do begin
          if ReaderMostrarDestaques.Item[´destaque_local´].ToString = ´Notícia 1´ then begin
            noticiadestaqueid := ReaderMostrarDestaques.Item[´noticia_id´].ToString;
            noticia1t.Text := ReaderMostrarDestaques.Item[´noticia_titulo´].ToString;
            noticia1t.NavigateUrl := ´detnoticia.aspx?id=´ + noticiadestaqueid;
            noticia1txt.Text := ReaderMostrarDestaques.Item[´noticia_resumo´].ToString;
          end
          else if ReaderMostrarDestaques.Item[´destaque_local´].ToString = ´Notícia 2´ then begin
            noticia2t.Text := ReaderMostrarDestaques.Item[´noticia_titulo´].ToString;
            noticia2t.NavigateUrl := ´detnoticia.aspx?id=´ + ReaderMostrarDestaques.Item[´noticia_id´].ToString;
            noticia2txt.Text := ReaderMostrarDestaques.Item[´noticia_resumo´].ToString;
          end
          else if ReaderMostrarDestaques.Item[´destaque_local´].ToString = ´Notícia 3´ then begin
            noticia3t.Text := ReaderMostrarDestaques.Item[´noticia_titulo´].ToString;
            noticia3t.NavigateUrl := ´detnoticia.aspx?id=´ + ReaderMostrarDestaques.Item[´noticia_id´].ToString;
            noticia3txt.Text := ReaderMostrarDestaques.Item[´noticia_resumo´].ToString;
          end
          else if ReaderMostrarDestaques.Item[´destaque_local´].ToString = ´Notícia 4´ then begin
            noticia4t.Text := ReaderMostrarDestaques.Item[´noticia_titulo´].ToString;
            noticia4t.NavigateUrl := ´detnoticia.aspx?id=´ + ReaderMostrarDestaques.Item[´noticia_id´].ToString;
            noticia4txt.Text := ReaderMostrarDestaques.Item[´noticia_resumo´].ToString;
          end
    end;
    ReaderMostrarDestaques.Close();
    Connection.Close();
  except
    if Connection.State = ConnectionState.Open then begin
      Connection.Close();
    end
  end;
end;

procedure TWFindex.MostrarFoto;
Var
  ReaderMostrarFoto : OdbcDataReader;
  CommandMostrarFoto: OdbcCommand;
  sMostrarFoto : System.Text.StringBuilder;
begin
  sMostrarFoto := System.Text.StringBuilder.Create();
  sMostrarFoto.Append(´SELECT noticia_foto.fotonot_arquivo, noticia_foto.fotonot_credito ´ +
  ´FROM noticia_foto, noticia WHERE noticia.noticia_fotodestaque = noticia_foto.fotonot_id ´ +
  ´AND noticia.noticia_id = ´ + noticiadestaqueid);
  CommandMostrarFoto := OdbcCommand.Create(sMostrarFoto.ToString(), Connection);
  try
    Connection.Open();
    ReaderMostrarFoto := CommandMostrarFoto.ExecuteReader();
    ReaderMostrarFoto.Read();
    IMGDestaque.ImageUrl := ´imagensbd/282/´ + ReaderMostrarFoto.Item[´FOTONOT_ARQUIVO´].ToString;
    lcredito.Text := ReaderMostrarFoto.Item[´FOTONOT_CREDITO´].ToString;
    ReaderMostrarFoto.Close();
    Connection.Close();
  except
    if Connection.State = ConnectionState.Open then begin
      Connection.Close();
    end
  end;
end;

procedure TWFindex.MostrarTodasNot;
Var
  ReaderTodasNoticias : OdbcDataReader;
  CommandTodasNoticias: OdbcCommand;
  sTodasNoticias : System.Text.StringBuilder;
begin
  sTodasNoticias := System.Text.StringBuilder.Create();
  sTodasNoticias.Append(´SELECT NOTICIA_ID, NOTICIA_DTCAD, NOTICIA_TITULO FROM ´ +
    ´noticia ORDER BY noticia_dtcad DESC, noticia_id DESC LIMIT 0,5´);
  CommandTodasNoticias := OdbcCommand.Create(sTodasNoticias.ToString(), Connection);
  try
    Connection.Open();
    ReaderTodasNoticias := CommandTodasNoticias.ExecuteReader();
    DGNoticias.DataSource := ReaderTodasNoticias;
    DGNoticias.DataBind();
    ReaderTodasNoticias.Close();
    Connection.Close();
  except
    if Connection.State = ConnectionState.Open then begin
      Connection.Close();
    end
  end;
end;


Movido de Delphi para ASP.NET